paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Ken Wright for broken FPC changes

Browse Source 
git-svn-id: trunk@13211 -
This commit is contained in:
michael 2009-05-29 07:30:46 +00:00
parent ddd02b7f26
commit 6fa94ad9d8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/ncurses/src/ocrt.pp
View File

@ -144,6 +144,10 @@ Unit oCrt;
| 1) Added nReadScr, nReadScrStr, nReadScrColor, nWriteScrStr,
| nGrabScreen, nPopScreen, nReleaseScreen.
| 2) Fixed some trouble with PrevWn accuracy.
2.16.01 | 05/26/2009 | kjw |
| 1) Corrected error with tnWindow.PutFrame and wattr_get. Recent
| updates to ncurses and ocrt by the FreePascal team introduced an
| error with tnWindow.PutFrame's use of wattr_get.
------------------------------------------------------------------------------
}
Interface
@ -858,10 +862,11 @@ Var
x,y,
mx,my,
atts : longint;
junk : smallint;
Begin
wbkgd(win,COLOR_PAIR(nSetColorPair(att)));
atts := wattr_get(win,nil,Nil,nil);
wattr_get(win,@atts,@junk,nil);
If nisbold(att) then wattr_on(win,atts or A_BOLD,Nil);
box(win,ACS_VLINE,ACS_HLINE);
framecolor := att;