Menu
▾
▴
[Win32forth-cvs] win32forth/apps/ForthForm FormHelp.f,NONE,1.1 FormMenu.f,NONE,1.1 GroupAction.f,NONE,1.1 TabPropertyWindow.ff,NONE,1.1 ABOUT.F,1.2,1.3 CONTROLPROPERTYII.ff,1.1,1.2 CreateMenu.f,1.2,1.3 CreateToolBar.f,1.1,1.2 FORMCONTROLS.F,1.1,1.2 FORMOBJECT.F,1.4,1.5 FORMPROPERTY.F,1.2,1.3 FORMPROPERTY.ff,1.1,1.2 FORTHFORM.F,1.6,1.7 FormPad.f,1.1,1.2 Forms.frm,1.1,1.2 GroupAction.ff,1.1,1.2 PREFERENCES.ff,1.1,1.2 RECT.F,1.1,1.2 SplitterWindow.f,1.1,1.2
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:16
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/apps/ForthForm Modified Files: ABOUT.F CONTROLPROPERTYII.ff CreateMenu.f CreateToolBar.f FORMCONTROLS.F FORMOBJECT.F FORMPROPERTY.F FORMPROPERTY.ff FORTHFORM.F FormPad.f Forms.frm GroupAction.ff PREFERENCES.ff RECT.F SplitterWindow.f Added Files: FormHelp.f FormMenu.f GroupAction.f TabPropertyWindow.ff Log Message: Updated ForthForm, docs and some associated files. - EAB Index: RECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/RECT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** RECT.F 21 Dec 2004 00:18:45 -0000 1.1 --- RECT.F 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 22,25 **** --- 22,27 ---- int drawmode int drawcolor + ColorObject DotColor + :M ClassInit: ( -- ) *************** *** 28,31 **** --- 30,36 ---- BLACK to drawcolor R2_NOT to drawmode \ inverse drawing by default + Color: RED NewColor: DotColor + PS_DOT Put: DotColor.PenStyle + InitColor: DotColor ;M *************** *** 54,63 **** left top Lineto: thedc ; ! :M Draw: ( -- ) thedc if drawcolor LineColor: thedc drawrectangle then ;M ! /* \ Works better on hi-color systems --- 59,74 ---- left top Lineto: thedc ; ! :M DrawNormal: ( -- ) thedc if drawcolor LineColor: thedc drawrectangle then ;M ! ! :M DrawDotted: ( -- ) ! drawcolor drawmode \ save on stack ! R2_COPYPEN ( R2_NOTCOPYPEN ) SetRop2: thedc drop ! Addr: DotColor to drawcolor ! DrawNormal: self ! to drawmode to drawcolor ;M /* \ Works better on hi-color systems *************** *** 105,109 **** :M DrawFilled: { fillcolor -- } Left Top Right Bottom fillcolor FillArea: thedc ! Draw: self ;M --- 116,120 ---- :M DrawFilled: { fillcolor -- } Left Top Right Bottom fillcolor FillArea: thedc ! DrawNormal: self ;M Index: ABOUT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/ABOUT.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsNf0f8i and /tmp/cvs9RNEKd differ Index: CreateToolBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/CreateToolBar.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CreateToolBar.f 21 Dec 2004 00:18:45 -0000 1.1 --- CreateToolBar.f 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 685,692 **** : ViewSource ( -- ) \ view source code for a toolbar CompileToolBar TheBuffer ! new$ >r ! s" Toolbar: " r@ place ! name count r@ +place ! r> count View: FormPad ; :M Close: ( -- ) --- 685,691 ---- : ViewSource ( -- ) \ view source code for a toolbar CompileToolBar TheBuffer ! s" Toolbar-" pad place ! name count pad +place ! pad count ShowSource ; :M Close: ( -- ) *************** *** 726,730 **** ;Object ! : CreateToolBar ( -- ) ! Start: frmCreateToolBar ; ! --- 725,728 ---- ;Object ! :NoName ( -- ) ! Start: frmCreateToolBar ; is doCreateToolBar Index: Forms.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/Forms.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Forms.frm 21 Dec 2004 00:18:45 -0000 1.1 --- Forms.frm 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 1,7 **** ! \ FORMPROPERTY.FRM \- textbox needs excontrols.f ! :Object frmEditFormProperties <Super DialogWindow Font WinFont --- 1,7 ---- ! \ TABPROPERTYWINDOW.FRM \- textbox needs excontrols.f [...1172 lines suppressed...] + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + + :M On_Paint: ( -- ) + 0 0 GetSize: self Addr: FrmColor FillArea: dc + ;M + + :M On_Done: ( -- ) + Delete: WinFont + originx originy 2to XYPos + \ Insert your code here + On_Done: super + ;M + + ;Object + + Index: PREFERENCES.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/PREFERENCES.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvstRBr1J and /tmp/cvs2FuaKF differ Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FORTHFORM.F 12 Jun 2005 08:37:33 -0000 1.6 --- FORTHFORM.F 21 Aug 2005 06:22:00 -0000 1.7 *************** *** 7,11 **** anew -ForthForm.f ! : sysgen ; \ add the ForthForm folder's to our path list --- 7,11 ---- anew -ForthForm.f ! : sysgen ; [...1155 lines suppressed...] + forthform also \ add the Application Icon to the resource of the exe-file if possible ! \+ sysgen s" src\res\ForthForm.ico" s" ForthForm.exe" AddAppIcon ! \+ sysgen previous \+ sysgen 1 pause-seconds bye *************** *** 1335,1343 **** \s That's all folks! - Mark these files for the project manager - thisfile forthform.ico - thisfile forthform.exe - thisfile w32fconsole.dll - thisfile wincon.dll - thisfile forthform.cfg - |
