Menu
▾
▴
[Win32forth-cvs] win32forth/src Dc.f,1.9,1.10 FONTS.F,1.5,1.6 paths.f,1.5,1.6
|
From: Dirk B. <db...@us...> - 2005-11-01 12:21:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13139/src Modified Files: Dc.f FONTS.F paths.f Log Message: - Added my GDI class library to the CVS - WinDC and Font classes rewritten to use the GDI class library - Added some demo's whitch are using the GDI class library Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Dc.f 17 Oct 2005 08:56:21 -0000 1.9 --- Dc.f 1 Nov 2005 12:21:40 -0000 1.10 *************** *** 13,129 **** in-application ! : NewStruct ( n1 --- hstruct ) ! dup>r malloc dup r> erase ; ! ! : DeleteStruct ( hstruct -- ) ! release ; ! 8 value CHAR-WIDTH \ Width of each character in pixels ! 14 value CHAR-HEIGHT \ Height of each character in pixels ! :CLASS WinDC <Super Object - int hdc \ Handle to the device context - int tabbuf - int tabcnt - int tabwidth int currentfont Rectangle FillRect - 40 constant deftabs - - deftabs cells bytes tabarray - - :M DefaultTabs: ( -- ) - deftabs 0 - ?DO i 1+ tabwidth * char-width * - tabarray i cells+ ! \ fill default tabs - LOOP - tabarray to tabbuf - deftabs to tabcnt - ;M - :M ClassInit: ( -- ) ClassInit: super ! 8 to tabwidth ! DefaultTabs: self ! 0 to hdc ! ;M ! ! :M SetTabs: ( a1 n1 -- ) \ a1 is array of cells with offsets ! to tabcnt ! to tabbuf ! ;M ! ! :M SetTabSize: ( n1 -- ) ! to tabwidth ! DefaultTabs: self ! ;M ! ! :M GetTabSize: ( -- n1 ) ! tabwidth ;M ! :M GetHandle: ( -- hdc ) hdc ;M ! ! :M PutHandle: ( hdc -- ) to hdc ;M ! ! :M SelectObject: ( object -- oldobj ) ! hDC Call SelectObject ! ;M :M DeleteObject: ( object -- ) ! Call DeleteObject ?win-error ! ;M ! ! :M GetStockObject: ( id -- object ) ! Call GetStockObject ! ;M ! ! :M SelectStockObject: ( id -- oldobj ) ! GetStockObject: self SelectObject: self ! ;M :M GetTextMetrics: ( tm -- ) ! hDC Call GetTextMetrics ?win-error ! ;M ! ! \ old Win32s support removed ! \ September 17th, 2003 - 10:38 dbu ! :M GetTextExtent: { adr len \ exttemp -- width height } ! 2 cells LocalAlloc: exttemp \ allocate some space ! exttemp 2 cells erase \ init it to zeros ! exttemp ! len ! adr ! hDC Call GetTextExtentPoint32 ?win-error ! exttemp @ \ the width ! exttemp cell+ @ \ the height ! ;M :M SetTextColor: { color_object -- } color_object ?ColorCheck drop ! Color: color_object hdc Call SetTextColor drop ;M :M SetBkColor: { color_object -- } color_object ?ColorCheck drop ! Color: color_object hDC Call SetBkColor drop ;M :M SetBkMode: ( mode -- ) ! hDC Call SetBkMode drop ! ;M ! :M SaveDC: ( -- ) \ Save current DC context and objects including the ! \ current font. ! hDC Call SaveDC drop ! ;M :M RestoreDC: ( -- ) \ restore current DC context including font ! -1 hDC Call RestoreDC ?win-error ! ;M :M SetFont: ( font_handle -- ) --- 13,67 ---- in-application ! needs gdi/gdiDC.f ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ WinDC class ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + :CLASS WinDC <Super gdiDC ! int hDC \ Handle to the device context ! \ I can't get rid of it since some old applications ! \ are accesing this ivar like this: dc.hDC int currentfont Rectangle FillRect :M ClassInit: ( -- ) ClassInit: super ! 0 to currentfont ;M ! :M PutHandle: ( hdc -- ) ! dup to hDC ! to hObject ;M :M DeleteObject: ( object -- ) ! Call DeleteObject ?win-error ;M :M GetTextMetrics: ( tm -- ) ! GetTextMetrics: super >r swap r> move ;M :M SetTextColor: { color_object -- } color_object ?ColorCheck drop ! Color: color_object SetTextColor: super drop ;M :M SetBkColor: { color_object -- } color_object ?ColorCheck drop ! Color: color_object SetBackgroundColor: super drop ;M :M SetBkMode: ( mode -- ) ! SetBackgroundMode: super drop ;M ! :M SaveDC: ( -- ) \ Save current DC context and objects ! Save: super drop ;M \ including the current font. :M RestoreDC: ( -- ) \ restore current DC context including font ! Restore: super drop ;M :M SetFont: ( font_handle -- ) *************** *** 133,235 **** :M GetFont: ( -- font_handle ) ! currentfont ! ;M ! ! :M TextOut: ( x y addr len -- ) ! 4reverse hDC Call TextOut ?win-error ! ;M ! ! :M DrawText: ( addr len rect format -- ) ! 4reverse hDC Call DrawText drop ! ;M :M TabbedTextOut: ( x y addr len -- text_dimensions ) ! 2>r 2>r 0 tabbuf tabcnt 2r> 2r> ! 4reverse hDC Call TabbedTextOut ! ;M :M LineColor: { color_object -- } color_object ?ColorCheck drop ! Pen: color_object hDC Call SelectObject drop ! ;M :M PenColor: ( color_object -- ) ! LineColor: self ! ;M :M BrushColor: { color_object -- } color_object ?ColorCheck drop ! Brush: color_object hDC Call SelectObject drop ! ;M :M MoveTo: ( x y -- ) ! 0 3reverse ! hDC Call MoveToEx ?win-error ! ;M ! ! :M LineTo: ( x y -- ) ! swap ! hDC Call LineTo ?win-error ! ;M ! ! \ July 29th, 1998 - 9:03 tjz ! \ Removed an extra swap after 'rel>abs' in the following two definitions, ! \ per a bug reported by Pierre Abbat ! :M PolyBezierTo: ( ptr cnt -- ) ! swap hDC Call PolyBezierTo ?win-error ;M ! ! :M PolyBezier: ( ptr cnt -- ) ! swap hDC Call PolyBezier ?win-error ;M ! ! \ July 29th, 1998 - 9:03 tjz ! \ Added Polygon: as suggested by Pierre Abbat ! :M Polygon: ( ptr cnt - ) ! swap hDC Call Polygon ?win-error ;m ! ! \ Samstag, Oktober 01 2005 dbu ! \ Added as suggested by David R Pochin in Forthwrite 127 (December 2004) ! :M Polyline: ( ptr cnt - ) ! swap hDC Call Polyline ?win-error ;m :M PolyDraw: ( tptr pptr cnt -- ) ! rot hDC Call PolyDraw ?win-error ;M ! ! :M BeginPath: ( -- ) ! hDC Call BeginPath ?win-error ;M ! ! :M FillPath: ( -- ) ! hDC Call FillPath ?win-error ;M ! ! :M StrokePath: ( -- ) ! hDC Call StrokePath ?win-error ;M ! ! \ Samstag, Oktober 01 2005 dbu ! \ Removed as suggested by David R Pochin in Forthwrite 127 (December 2004) ! \ :M FillPath: ( -- ) \ rls - new ? Needs Brushes ? ! \ hDC Call FillPath ?win-error ;M ! ! :M StrokeAndFillPath: ( -- ) \ rls - new ? Needs Brushes ? ! hDC Call StrokeAndFillPath ?win-error ;M ! ! :M EndPath: ( -- ) ! hDC Call EndPath ?win-error ;M :M SetROP2: ( mode -- oldmode ) ! hDC Call SetROP2 ! ;M :M SetPixel: { x y color_object -- } ! color_object ?ColorCheck drop ! Color: color_object y x hDC Call SetPixel drop ! ;M :M GetPixel: ( x y -- colorref ) \ returns a "COLORREF", not a color object ! swap ! hDC Call GetPixel ! ;M :M BitBlt: ( blitmode sourcex,y sourcedc sizex,y destinationx,y -- ) ! 2>r 2>r >r swap r> 2r> swap 2r> swap ! hdc ( 9 win-parameters ) call BitBlt ?win-error ;M :M StretchBlt: ( blitmode srcsizex,y srcx,y srcdc dstsizex,y dstx,y -- ) --- 71,110 ---- :M GetFont: ( -- font_handle ) ! currentfont ;M :M TabbedTextOut: ( x y addr len -- text_dimensions ) ! TabbedTextOut: super word-join ;M :M LineColor: { color_object -- } color_object ?ColorCheck drop ! Pen: color_object SelectObject: super drop ;M :M PenColor: ( color_object -- ) ! LineColor: self ;M :M BrushColor: { color_object -- } color_object ?ColorCheck drop ! Brush: color_object SelectObject: super drop ;M :M MoveTo: ( x y -- ) ! MoveTo: super 2drop ;M :M PolyDraw: ( tptr pptr cnt -- ) ! \ is ROT right?!? I think it should be 3REVERSE (dbu) ! rot hObject Call PolyDraw ?win-error ;M :M SetROP2: ( mode -- oldmode ) ! SetROP: super ;M :M SetPixel: { x y color_object -- } ! color_object ?ColorCheck drop ! Color: color_object y x hObject Call SetPixel drop ;M :M GetPixel: ( x y -- colorref ) \ returns a "COLORREF", not a color object ! swap hObject Call GetPixel ;M :M BitBlt: ( blitmode sourcex,y sourcedc sizex,y destinationx,y -- ) ! 2>r 2>r >r swap r> 2r> swap 2r> swap ! 8reverse BitBlt: super ;M :M StretchBlt: ( blitmode srcsizex,y srcx,y srcdc dstsizex,y dstx,y -- ) *************** *** 243,271 **** 2r> swap \ recover, swap dstsizex,y 2r> swap \ recover, swap dstx,y ! hdc ( 11 win-parameters ) call StretchBlt ?win-error ;M :M FillRect: { color_object rectangle -- } color_object ?ColorCheck drop Brush: color_object ! rectangle hdc ! ( 3 win-parameters ) Call FillRect ?win-error ;M :M FillArea: { left top right bottom color_object -- } color_object ?ColorCheck drop Brush: color_object ! left top right bottom SetRect: FillRect ! Addrof: FillRect hdc ! ( 3 win-parameters ) Call FillRect ?win-error ;M - :M Ellipse: { left top right bottom -- } - bottom right top left - hdc Call Ellipse ?win-error ;M - - :M Arc: { left top right bottom x1 y1 x2 y2 -- } - y2 x2 y1 x1 bottom right top left - hdc Call Arc ?win-error ;M - :M FillCircle: { x y radius -- } x radius - y radius - x radius + y radius + --- 118,137 ---- 2r> swap \ recover, swap dstsizex,y 2r> swap \ recover, swap dstx,y ! hObject ( 11 win-parameters ) call StretchBlt ?win-error ;M :M FillRect: { color_object rectangle -- } color_object ?ColorCheck drop + Left: rectangle Top: rectangle Right: rectangle Bottom: rectangle Brush: color_object ! FillRect: super ;M :M FillArea: { left top right bottom color_object -- } color_object ?ColorCheck drop + left top right bottom Brush: color_object ! FillRect: super ;M :M FillCircle: { x y radius -- } x radius - y radius - x radius + y radius + *************** *** 276,298 **** 0 0 0 0 Arc: self ;M ! \ Samstag, Oktober 08 2005 dbu ! \ Added as suggested by Larry Daniel ! :M RoundRect: { left top right bottom width height -- } ! height width bottom right top left hDC Call RoundRect ?win-error ! ;M ! ! \ Samstag, Oktober 08 2005 dbu ! \ Added as suggested by Larry Daniel ! :M InvertRect: ( left top right bottom -- ) ! SetRect: FillRect ! Addrof: FillRect hDC Call InvertRect ?win-error ! ;M ! ! :M CreateCompatibleBitmap: ( width height -- hbitmap ) ! swap hdc ! Call CreateCompatibleBitmap ;M ! ;Class 0 value #PAGES-UP --- 142,155 ---- 0 0 0 0 Arc: self ;M ! ;class ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ WinPrinter class ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + 8 value CHAR-WIDTH \ Width of each character in pixels + 14 value CHAR-HEIGHT \ Height of each character in pixels 0 value #PAGES-UP *************** *** 458,462 **** NewColor: PRINTCOLOR penwidth PenWidth: PRINTCOLOR ! Pen: PRINTCOLOR hDC Call SelectObject drop ;M --- 315,319 ---- NewColor: PRINTCOLOR penwidth PenWidth: PRINTCOLOR ! Pen: PRINTCOLOR GetHandle: super Call SelectObject drop ;M *************** *** 465,469 **** Brush: PRINTFILLCOLOR left top right bottom SetRect: FillRect ! FillRect.AddrOf hdc ( 3 win-parameters ) Call FillRect ?win-error ;M --- 322,326 ---- Brush: PRINTFILLCOLOR left top right bottom SetRect: FillRect ! FillRect.AddrOf GetHandle: super ( 3 win-parameters ) Call FillRect ?win-error ;M *************** *** 472,485 **** :M Width: ( -- horizontal-dots-on-page ) ! HORZRES hdc Call GetDeviceCaps ;M :M Height: ( -- vertical-dots-on-page ) ! VERTRES hdc Call GetDeviceCaps ;M :M DPI: ( -- horizontal-dots-per-inch vertical-dots-per-inch ) ! LOGPIXELSX hdc Call GetDeviceCaps ! LOGPIXELSY hdc Call GetDeviceCaps ;M --- 329,346 ---- :M Width: ( -- horizontal-dots-on-page ) ! \ HORZRES GetHandle: super Call GetDeviceCaps ! HORZRES GetDeviceCaps: super ;M :M Height: ( -- vertical-dots-on-page ) ! \ VERTRES GetHandle: super Call GetDeviceCaps ! VERTRES GetDeviceCaps: super ;M :M DPI: ( -- horizontal-dots-per-inch vertical-dots-per-inch ) ! \ LOGPIXELSX GetHandle: super Call GetDeviceCaps ! \ LOGPIXELSY GetHandle: super Call GetDeviceCaps ! LOGPIXELSX GetDeviceCaps: super ! LOGPIXELSY GetDeviceCaps: super ;M *************** *** 489,497 **** :M SetStretchBltMode: ( mode_value -- ) ! hdc Call SetStretchBltMode drop ;M :M Nullify: ( -- ) \ mark the printer hdc as not in use ! 0 to hdc 0 to drawlist 0 to drawoff --- 350,358 ---- :M SetStretchBltMode: ( mode_value -- ) ! GetHandle: super Call SetStretchBltMode drop ;M :M Nullify: ( -- ) \ mark the printer hdc as not in use ! 0 PutHandle: super 0 to drawlist 0 to drawoff *************** *** 577,582 **** IF auto-print-init ELSE print-init ! THEN dup to hdc ! ELSE hdc THEN -IF set-print-params --- 438,443 ---- IF auto-print-init ELSE print-init ! THEN dup PutHandle: super ! ELSE GetHandle: super THEN -IF set-print-params *************** *** 591,596 **** IF 3drop auto-print-init ELSE print-init2 ! THEN dup to hdc ! ELSE 3drop hdc THEN -IF set-print-params --- 452,457 ---- IF 3drop auto-print-init ELSE print-init2 ! THEN dup PutHandle: super ! ELSE 3drop GetHandle: super THEN -IF set-print-params *************** *** 601,606 **** :M AutoOpen: ( -- f1 ) \ open the printer for use printing? 0= ! IF auto-print-init dup to hdc ! ELSE hdc THEN -IF set-print-params --- 462,467 ---- :M AutoOpen: ( -- f1 ) \ open the printer for use printing? 0= ! IF auto-print-init dup PutHandle: super ! ELSE GetHandle: super THEN -IF set-print-params *************** *** 613,617 **** :M Landscape: ( -- ) ! TRUE print-orientation dup to hdc IF set-print-params 0 to #pages --- 474,478 ---- :M Landscape: ( -- ) ! TRUE print-orientation dup PutHandle: super IF set-print-params 0 to #pages *************** *** 620,624 **** :M Portrait: ( -- ) ! FALSE print-orientation dup to hdc IF set-print-params 0 to #pages --- 481,485 ---- :M Portrait: ( -- ) ! FALSE print-orientation dup PutHandle: super IF set-print-params 0 to #pages *************** *** 627,634 **** :M Start: ( -- ) \ start a new page and document ! hdc 0= \ if not initialized penwidth -1 = or \ or penwidth hasn't been set IF Open: self \ -- f1 = true if ready to print ! ELSE hdc set-print-params THEN --- 488,495 ---- :M Start: ( -- ) \ start a new page and document ! GetHandle: super 0= \ if not initialized penwidth -1 = or \ or penwidth hasn't been set IF Open: self \ -- f1 = true if ready to print ! ELSE GetHandle: super set-print-params THEN *************** *** 651,655 **** :M Setup: ( window_handle -- ) print-setup ?dup ! IF to hdc set-rows-cols THEN ;M --- 512,516 ---- :M Setup: ( window_handle -- ) print-setup ?dup ! IF PutHandle: super set-rows-cols THEN ;M *************** *** 1049,1055 **** THEN false to drawing? ! hdc IF print-close ! 0 to hdc THEN ;M --- 910,916 ---- THEN false to drawing? ! GetHandle: super IF print-close ! 0 PutHandle: super THEN ;M Index: FONTS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FONTS.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** FONTS.F 29 Aug 2005 15:56:27 -0000 1.5 --- FONTS.F 1 Nov 2005 12:21:40 -0000 1.6 *************** *** 4,127 **** \ Font creation Class and control methods ! in-application ! ! VARIABLE font-link \ Global linked list of font objects ! font-link OFF ! ! :Class Font <Super Object ! ! int handle \ the handle to the created font ! ! Record: LOGFONT \ structure that holds ! int lfHeight \ width in pixels, device specific ! int lfWidth \ height in pixels, device specific ! int lfEscapement ! int lfOrientation \ in 10ths of a degree ! int lfWeight ! byte lfItalic \ TRUE/FALSE ! byte lfUnderline \ TRUE/FALSE ! byte lfStrikeOut \ TRUE/FALSE ! byte lfCharSet ! byte lfOutPrecision ! byte lfClipPrecision ! byte lfQuality ! byte lfPitchAndFamily ! LF_FACESIZE bytes lfFaceName \ the font name ! ;Record ! ! : trim-fonts ( nfa -- nfa ) ! \in-system-ok dup font-link full-trim ; ! ! \in-system-ok forget-chain chain-add trim-fonts ! :M ClassInit: ( -- ) ! 0 to handle \ clear handle ! 14 to lfHeight ! 9 to lfWidth ! 0 to lfEscapement ! 0 to lfOrientation \ in 10th degrees ! FW_DONTCARE to lfWeight ! FALSE to lfItalic ! FALSE to lfUnderline ! FALSE to lfStrikeOut ! ANSI_CHARSET to lfCharSet ! OUT_TT_PRECIS to lfOutPrecision ! CLIP_DEFAULT_PRECIS to lfClipPrecision ! PROOF_QUALITY to lfQuality ! FIXED_PITCH \ font pitch ! 0x04 or \ use TrueType fonts ! FF_SWISS or to lfPitchAndFamily \ font family ! lfFaceName LF_FACESIZE erase \ clear font name ! s" Courier New" lfFaceName swap move \ move in default name ! font-link link, \ link into list ! self , \ so we can send ! ;M \ ourself messages ! :M Height: ( n1 -- ) to lfHeight ;M ! :M Width: ( n1 -- ) to lfWidth ;M ! :M Escapement: ( n1 -- ) to lfEscapement ;M ! :M Orientation: ( n1 -- ) to lfOrientation ;M \ 10th/degree increments ! :M Weight: ( n1 -- ) to lfWeight ;M ! :M Italic: ( f1 -- ) to lfItalic ;M \ TRUE/FALSE ! :M Underline: ( f1 -- ) to lfUnderline ;M \ TRUE/FALSE ! :M StrikeOut: ( f1 -- ) to lfStrikeOut ;M \ TRUE/FALSE ! :M CharSet: ( n1 -- ) to lfCharSet ;M ! :M OutPrecision: ( n1 -- ) to lfOutPrecision ;M ! :M ClipPrecision: ( n1 -- ) to lfClipPrecision ;M ! :M Quality: ( n1 -- ) to lfQuality ;M ! :M PitchAndFamily: ( n1 -- ) to lfPitchAndFamily ;M ! :M SetFaceName: ( a1 n1 -- ) ! lfFaceName LF_FACESIZE erase ! LF_FACESIZE 1- min lfFaceName swap move ! ;M ! :M GetFaceName: ( -- a1 n1 ) ! lfFaceName LF_FACESIZE 2dup 0 scan nip - ! ;M :M Delete: ( -- ) ! handle ?dup ! if Call DeleteObject ?win-error ! 0 to handle ! then ! ;M ! ! :M Create: ( -- ) ! Delete: self ! LOGFONT Call CreateFontIndirect to handle ! ;M ! ! :M Handle: ( -- HFONT ) ! handle ! ;M ! ! \ **************** INTERNAL SYSTEM FUNCTIONS FOLLOW **************** ! \ The following functions and methods make sure that any font objects ! \ created in your application get reset at system startup, and deleted ! \ when Win32Forth closes. ! ! :M zHandle: ( -- ) \ zero the font handle ! 0 to handle ! ;M ! ! : do-fonts { method -- } ! font-link @ \ clear all font handles ! begin dup ! while dup cell+ @ ! method execute ! @ ! repeat drop ; ! ! : zero-fonts ( -- ) ! [getmethod] zHandle: font do-fonts ; ! ! initialization-chain chain-add zero-fonts ! ! : delete-fonts ( -- ) ! [getmethod] Delete: font do-fonts ; ! ! unload-chain chain-add delete-fonts ! ;Class --- 4,37 ---- \ Font creation Class and control methods ! cr .( Loading Font class...) ! in-application ! needs gdi/gdiFont.f ! \ ---------------------------------------------------------------------- ! \ Font class ! \ ---------------------------------------------------------------------- ! :Class Font <Super GdiFont ! :M Height: ( n1 -- ) SetHeight: super ;M ! :M Width: ( n1 -- ) SetWidth: super ;M ! :M Escapement: ( n1 -- ) SetEscapement: super ;M ! :M Orientation: ( n1 -- ) SetOrientation: super ;M ! :M Weight: ( n1 -- ) SetWeight: super ;M ! :M Italic: ( f1 -- ) SetItalic: super ;M ! :M Underline: ( f1 -- ) SetUnderline: super ;M ! :M StrikeOut: ( f1 -- ) SetStrikeOut: super ;M ! :M CharSet: ( n1 -- ) SetCharSet: super ;M ! :M OutPrecision: ( n1 -- ) SetOutPrecision: super ;M ! :M ClipPrecision: ( n1 -- ) SetClipPrecision: super ;M ! :M Quality: ( n1 -- ) SetQuality: super ;M ! :M PitchAndFamily: ( n1 -- ) SetPitchAndFamily: super ;M :M Delete: ( -- ) ! Destroy: super ;M ! :M Handle: ( -- hFont ) ! GetHandle: super ;M + ;class Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** paths.f 29 Aug 2005 15:56:28 -0000 1.5 --- paths.f 1 Nov 2005 12:21:40 -0000 1.6 *************** *** 133,136 **** --- 133,137 ---- s" src" "fpath+ s" src\lib" "fpath+ + s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ s" src\console" "fpath+ |
