Menu
▾
▴
[Win32forth-cvs] win32forth/apps/ForthForm EXAMPLE.ff, 1.1, 1.2 EXAMPLE.frm, 1.1, 1.2 FileLister.f, 1.5, NONE IMAGEWINDOW.F, 1.4, NONE
|
From: Ezra B. <ezr...@us...> - 2006-06-14 05:59:04
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14799/apps/ForthForm Modified Files: EXAMPLE.ff EXAMPLE.frm Removed Files: FileLister.f IMAGEWINDOW.F Log Message: Some file shifting. EAB --- IMAGEWINDOW.F DELETED --- --- FileLister.f DELETED --- Index: EXAMPLE.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/EXAMPLE.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsaWPYgH and /tmp/cvsYONzPV differ Index: EXAMPLE.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/EXAMPLE.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EXAMPLE.frm 21 Dec 2004 00:18:45 -0000 1.1 --- EXAMPLE.frm 14 Jun 2006 05:59:01 -0000 1.2 *************** *** 1,67 **** ! anew tstfrmExample ! needs excontrols.f ! ! TextBox txtName ! TextBox txtAddress ! TextBox txtCity ! TextBox txtCountry ! CheckBox chkWin32Forth ! CheckBox chkSwiftForth ! CheckBox chkOther ! TextBox txtFileName ! PushButton btnBrowse ! PushButton btnOk ! PushButton btnCancel ! PushButton Button4 ! CheckBox Check4 ! colorobject formcolor ! :Object frmExample <Super Child-Window ! Font WinFont ! 0 value hparent \ pointer to parent of form ! ' 2drop value OnWmCommand \ function pointer for WM_COMMAND ! Label lblName ! Label lblAddress ! Label lblCity ! Label lblCountry ! GroupBox grpForthProgrammer ! Label lblFile ! RadioButton Radio1 ! Label Label6 :M ClassInit: ( -- ) ClassInit: super ! +dialoglist ;M :M WindowStyle: ( -- style ) ! windowstyle: super ;M \ if this form is a modal form a non-zero parent must be set ! :M ParentWindow: ( -- parent | 0 if no parent ) ! hparent ;M ! :M SetParent: ( parentwindow -- ) \ set owner window ! to hparent ;M :M WindowTitle: ( -- ztitle ) ! z" Forthform Example" ;M :M StartSize: ( -- width height ) ! 505 262 ;M :M StartPos: ( -- x y ) ! 64 213 ;M :M Close: ( -- ) \ Insert your code here Close: super --- 1,54 ---- ! \ EXAMPLE.FRM ! \- textbox needs excontrols.f ! \- -filelister.f needs filelister.f \ folder browser ! FileWindow dirbox ! TextBox txtpath ! PushButton btnDelete ! PushButton btnChoose ! PushButton btnClose ! ComboListBox CmbLstFilters ! :Object frmExample <Super DialogWindow + Font WinFont \ default font + ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND + ColorObject FrmColor \ the background color + StatusBar TheStatusBar ! Label lblPath :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here ;M :M WindowStyle: ( -- style ) ! WS_POPUPWINDOW WS_DLGFRAME or ;M \ if this form is a modal form a non-zero parent must be set ! :M ParentWindow: ( -- hwndparent | 0 if no parent ) ! parent ;M ! :M SetParent: ( hwndparent -- ) \ set owner window ! to parent ;M :M WindowTitle: ( -- ztitle ) ! z" Example - Directory Viewer" ;M :M StartSize: ( -- width height ) ! 345 455 ;M :M StartPos: ( -- x y ) ! 150 175 ;M :M Close: ( -- ) + Close: dirbox \ Insert your code here Close: super *************** *** 71,211 **** s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont ! Create: WinFont ! ! color_btnface call GetSysColor NewColor: formcolor ! ! self Start: lblName ! 33 22 45 17 Move: lblName ! Handle: Winfont SetFont: lblName ! SS_RIGHT +Style: lblName ! s" Name:" SetText: lblName ! ! self Start: lblAddress ! 33 41 45 17 Move: lblAddress ! Handle: Winfont SetFont: lblAddress ! SS_RIGHT +Style: lblAddress ! s" Address:" SetText: lblAddress ! ! self Start: lblCity ! 33 60 45 17 Move: lblCity ! Handle: Winfont SetFont: lblCity ! SS_RIGHT +Style: lblCity ! s" City:" SetText: lblCity ! ! self Start: lblCountry ! 33 79 45 17 Move: lblCountry ! Handle: Winfont SetFont: lblCountry ! SS_RIGHT +Style: lblCountry ! s" Country:" SetText: lblCountry ! ! self Start: txtName ! 83 22 236 17 Move: txtName ! Handle: Winfont SetFont: txtName ! ! self Start: txtAddress ! 83 41 236 17 Move: txtAddress ! Handle: Winfont SetFont: txtAddress ! ! self Start: txtCity ! 83 60 236 17 Move: txtCity ! Handle: Winfont SetFont: txtCity ! ! self Start: txtCountry ! 83 79 236 17 Move: txtCountry ! Handle: Winfont SetFont: txtCountry ! ! self Start: grpForthProgrammer ! 28 109 270 63 Move: grpForthProgrammer ! Handle: Winfont SetFont: grpForthProgrammer ! s" Forth Programmer" SetText: grpForthProgrammer ! ! self Start: chkWin32Forth ! 44 127 81 19 Move: chkWin32Forth ! WS_GROUP +Style: chkWin32Forth ! Handle: Winfont SetFont: chkWin32Forth ! s" Win32Forth" SetText: chkWin32Forth ! ! self Start: chkSwiftForth ! 127 127 81 19 Move: chkSwiftForth ! Handle: Winfont SetFont: chkSwiftForth ! s" SwiftForth" SetText: chkSwiftForth ! self Start: chkOther ! 210 127 81 19 Move: chkOther ! Handle: Winfont SetFont: chkOther ! s" Other" SetText: chkOther ! self Start: txtFileName ! 61 184 221 18 Move: txtFileName ! Handle: Winfont SetFont: txtFileName - self Start: btnBrowse - 289 184 62 19 Move: btnBrowse - Handle: Winfont SetFont: btnBrowse - s" Browse" SetText: btnBrowse ! self Start: btnOk ! 40 227 119 31 Move: btnOk ! WS_GROUP +Style: btnOk ! Handle: Winfont SetFont: btnOk ! s" &Ok" SetText: btnOk ! self Start: btnCancel ! 200 227 119 31 Move: btnCancel ! Handle: Winfont SetFont: btnCancel ! s" &Cancel" SetText: btnCancel ! self Start: lblFile ! 16 184 42 16 Move: lblFile ! Handle: Winfont SetFont: lblFile ! SS_RIGHT +Style: lblFile ! s" File:" SetText: lblFile ! self Start: Button4 ! 382 23 103 23 Move: Button4 ! Handle: Winfont SetFont: Button4 ! s" These were" SetText: Button4 ! self Start: Check4 ! 382 52 98 19 Move: Check4 ! Handle: Winfont SetFont: Check4 ! s" added after" SetText: Check4 ! self Start: Radio1 ! 382 80 95 18 Move: Radio1 ! Handle: Winfont SetFont: Radio1 ! s" the demo" SetText: Radio1 ! self Start: Label6 ! 382 114 91 17 Move: Label6 ! Handle: Winfont SetFont: Label6 ! s" was written" SetText: Label6 - ParentWindow: self \ if this is a modal form disable parent - if 0 ParentWindow: self Call EnableWindow drop then ;M :M WM_COMMAND ( h m w l -- res ) over LOWORD ( ID ) self \ object address on stack ! OnWMCommand ?dup \ must not be zero if execute else 2drop \ drop ID and object address then 0 ;M ! :M SetCommand: ( cfa -- ) \ set OnWMCommand function ! to OnWMCommand ;M :M On_Paint: ( -- ) ! 0 0 GetSize: self formcolor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont - ParentWindow: self \ if modal form re-enable parent - if 1 ParentWindow: self Call EnableWindow drop - \ reset focus to parent if we have one - ParentWindow: self Call SetFocus drop - then \ Insert your code here On_Done: super --- 58,123 ---- s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont ! Create: WinFont drop \ not testing return flag ! \ set form color to system color ! COLOR_BTNFACE Call GetSysColor NewColor: FrmColor ! self Start: TheStatusBar ! self Start: dirbox ! 8 37 225 358 Move: dirbox ! self Start: lblPath ! 9 9 72 19 Move: lblPath ! Handle: Winfont SetFont: lblPath ! s" Selected Path:" SetText: lblPath ! self Start: txtpath ! 83 9 247 21 Move: txtpath ! Handle: Winfont SetFont: txtpath ! self Start: btnDelete ! 239 40 100 25 Move: btnDelete ! Handle: Winfont SetFont: btnDelete ! s" &Delete File" SetText: btnDelete ! self Start: btnChoose ! 239 69 100 25 Move: btnChoose ! Handle: Winfont SetFont: btnChoose ! s" Choose &Folder" SetText: btnChoose ! self Start: btnClose ! 239 364 100 25 Move: btnClose ! Handle: Winfont SetFont: btnClose ! s" &Close" SetText: btnClose ! self Start: CmbLstFilters ! 8 401 224 20 Move: CmbLstFilters ! Handle: Winfont SetFont: CmbLstFilters ;M :M WM_COMMAND ( h m w l -- res ) over LOWORD ( ID ) self \ object address on stack ! WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address 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_Size: ( -- ) ! Redraw: TheStatusBar ;M :M On_Done: ( -- ) Delete: WinFont \ Insert your code here On_Done: super *************** *** 213,219 **** ;Object - - window mywin start: mywin - 1 setid: frmexample - mywin start: frmexample - 0 0 startsize: frmexample move: frmexample \ No newline at end of file --- 125,126 ---- |
