Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Win32ForthIDE/Forms EdPreferences.ff, 1.2, 1.3 EdPreferences.frm, 1.2, 1.3
|
From: Ezra B. <ezr...@us...> - 2008-09-08 03:08:17
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1454/apps/Win32ForthIDE/Forms Modified Files: EdPreferences.ff EdPreferences.frm Log Message: IDE updates. EAB Index: EdPreferences.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.frm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdPreferences.frm 4 May 2008 18:13:25 -0000 1.2 --- EdPreferences.frm 8 Sep 2008 03:08:13 -0000 1.3 *************** *** 26,45 **** \ Coordinates and dimensions for BackChild 130 value BackChildX ! 57 value BackChildY 34 value BackChildW 25 value BackChildH \ Coordinates and dimensions for CurrentChild 130 value CurrentChildX ! 84 value CurrentChildY 34 value CurrentChildW 25 value CurrentChildH \ Coordinates and dimensions for SelForeChild 130 value SelForeChildX ! 111 value SelForeChildY 34 value SelForeChildW 25 value SelForeChildH \ Coordinates and dimensions for SelBackChild 130 value SelBackChildX ! 138 value SelBackChildY 34 value SelBackChildW 25 value SelBackChildH --- 26,45 ---- \ Coordinates and dimensions for BackChild 130 value BackChildX ! 58 value BackChildY 34 value BackChildW 25 value BackChildH \ Coordinates and dimensions for CurrentChild 130 value CurrentChildX ! 86 value CurrentChildY 34 value CurrentChildW 25 value CurrentChildH \ Coordinates and dimensions for SelForeChild 130 value SelForeChildX ! 114 value SelForeChildY 34 value SelForeChildW 25 value SelForeChildH \ Coordinates and dimensions for SelBackChild 130 value SelBackChildX ! 142 value SelBackChildY 34 value SelBackChildW 25 value SelBackChildH *************** *** 52,55 **** --- 52,68 ---- PushButton btnOk PushButton btnCancel + PushButton btnBrowseFore + PushButton btnBrowseBack + \ Coordinates and dimensions for BrowseForeChild + 130 value BrowseForeChildX + 170 value BrowseForeChildY + 34 value BrowseForeChildW + 25 value BrowseForeChildH + \ Coordinates and dimensions for BrowsebackChild + 130 value BrowsebackChildX + 198 value BrowsebackChildY + 34 value BrowsebackChildW + 25 value BrowsebackChildH + :M ClassInit: ( -- ) *************** *** 76,80 **** :M StartSize: ( -- width height ) ! 388 303 ;M --- 89,93 ---- :M StartSize: ( -- width height ) ! 381 361 ;M *************** *** 83,86 **** --- 96,104 ---- ;M + :M Start: ( -- ) + Start: Super + Begin WinPause Hwnd 0= Until + ;M + :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved *************** *** 88,91 **** --- 106,120 ---- ;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_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont *************** *** 103,107 **** self Start: grpNavigator ! 16 196 190 57 Move: grpNavigator Handle: Winfont SetFont: grpNavigator s" Project Navigator" SetText: grpNavigator --- 132,136 ---- self Start: grpNavigator ! 16 244 190 57 Move: grpNavigator Handle: Winfont SetFont: grpNavigator s" Project Navigator" SetText: grpNavigator *************** *** 113,142 **** self Start: grpColors ! 16 14 161 155 Move: grpColors Handle: Winfont SetFont: grpColors s" Editor Colors" SetText: grpColors self Start: btnForeground ! 28 30 100 25 Move: btnForeground Handle: Winfont SetFont: btnForeground s" ForeGround" SetText: btnForeground self Start: btnBackground ! 28 57 100 25 Move: btnBackground Handle: Winfont SetFont: btnBackground s" BackGround" SetText: btnBackground self Start: btnCurrentline ! 28 84 100 25 Move: btnCurrentline Handle: Winfont SetFont: btnCurrentline s" Current Line" SetText: btnCurrentline self Start: btnSelectFore ! 28 111 100 25 Move: btnSelectFore Handle: Winfont SetFont: btnSelectFore s" Select Foreground" SetText: btnSelectFore self Start: btnSelectBack ! 28 138 100 25 Move: btnSelectBack Handle: Winfont SetFont: btnSelectBack s" Select Background" SetText: btnSelectBack --- 142,171 ---- self Start: grpColors ! 16 14 162 215 Move: grpColors Handle: Winfont SetFont: grpColors s" Editor Colors" SetText: grpColors self Start: btnForeground ! 28 30 100 26 Move: btnForeground Handle: Winfont SetFont: btnForeground s" ForeGround" SetText: btnForeground self Start: btnBackground ! 28 58 100 26 Move: btnBackground Handle: Winfont SetFont: btnBackground s" BackGround" SetText: btnBackground self Start: btnCurrentline ! 28 86 100 26 Move: btnCurrentline Handle: Winfont SetFont: btnCurrentline s" Current Line" SetText: btnCurrentline self Start: btnSelectFore ! 28 114 100 26 Move: btnSelectFore Handle: Winfont SetFont: btnSelectFore s" Select Foreground" SetText: btnSelectFore self Start: btnSelectBack ! 28 142 100 26 Move: btnSelectBack Handle: Winfont SetFont: btnSelectBack s" Select Background" SetText: btnSelectBack *************** *** 168,198 **** self Start: chkIncludeLibs ! 28 217 175 24 Move: chkIncludeLibs Handle: Winfont SetFont: chkIncludeLibs s" Include library files when tracking" SetText: chkIncludeLibs self Start: btnOk ! 18 272 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 100 272 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel 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 - 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 --- 197,227 ---- self Start: chkIncludeLibs ! 28 265 175 24 Move: chkIncludeLibs Handle: Winfont SetFont: chkIncludeLibs s" Include library files when tracking" SetText: chkIncludeLibs self Start: btnOk ! 18 320 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 100 320 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel + self Start: btnBrowseFore + 28 170 100 26 Move: btnBrowseFore + Handle: Winfont SetFont: btnBrowseFore + s" Browse Foreground" SetText: btnBrowseFore + + self Start: btnBrowseBack + 28 198 100 26 Move: btnBrowseBack + Handle: Winfont SetFont: btnBrowseBack + s" Browse Background" SetText: btnBrowseBack + ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then ;M Index: EdPreferences.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.ff,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsWl4faj and /tmp/cvsvCDvjk differ |
