Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Ezra B. <ezr...@us...> - 2008-04-28 05:22:55
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6208/apps/ForthForm Modified Files: CreateMenu.f CreateToolBarForm.ff FORMCONTROLS.F FORMOBJECT.F FORMPROPERTY.F FORMTOOLBAR.F FORTHFORM.F FormMonitor.f Forms.frm POINT.F PREFERENCES.ff TabPropertyWindow.ff Log Message: ForthForm update (probably the last). EAB Index: Forms.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/Forms.frm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Forms.frm 27 Dec 2006 18:43:57 -0000 1.5 --- Forms.frm 28 Apr 2008 05:22:44 -0000 1.6 *************** *** 8,12 **** ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color ! 150 175 2value XYPos \ save screen location of form TabControl TabProperties --- 8,12 ---- ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color ! 720 70 2value XYPos \ save screen location of form TabControl TabProperties *************** *** 145,149 **** ClassInit: super +dialoglist \ allow handling of dialog messages ! 442 to id \ set child id, changeable \ Insert your code here ;M --- 145,149 ---- ClassInit: super +dialoglist \ allow handling of dialog messages ! 419 to id \ set child id, changeable \ Insert your code here ;M *************** *** 1398,1402 **** ClassInit: super +dialoglist \ allow handling of dialog messages ! 443 to id \ set child id, changeable \ Insert your code here ;M --- 1398,1402 ---- ClassInit: super +dialoglist \ allow handling of dialog messages ! 420 to id \ set child id, changeable \ Insert your code here ;M *************** *** 1635,1639 **** ClassInit: super +dialoglist \ allow handling of dialog messages ! 444 to id \ set child id, changeable \ Insert your code here ;M --- 1635,1639 ---- ClassInit: super +dialoglist \ allow handling of dialog messages ! 421 to id \ set child id, changeable \ Insert your code here ;M *************** *** 1803,1806 **** --- 1803,1808 ---- CheckBox chkShowMonitor CheckBox chkShowReleaseNotes + CheckBox chkSingleControl + CheckBox chkAutoProperty GroupRadioButton radAlignTop RadioButton radAlignBottom *************** *** 1844,1848 **** :M StartSize: ( -- width height ) ! 302 199 ;M --- 1846,1850 ---- :M StartSize: ( -- width height ) ! 302 257 ;M *************** *** 1871,1903 **** self Start: grpOther ! 11 78 139 79 Move: grpOther Handle: Winfont SetFont: grpOther s" Options" SetText: grpOther self Start: grpToolBar ! 11 6 140 65 Move: grpToolBar Handle: Winfont SetFont: grpToolBar s" Toolbar" SetText: grpToolBar self Start: chkFlatToolBar ! 18 21 79 18 Move: chkFlatToolBar Handle: Winfont SetFont: chkFlatToolBar s" Flat Style" SetText: chkFlatToolBar self Start: chkButtonText ! 18 43 122 18 Move: chkButtonText Handle: Winfont SetFont: chkButtonText s" Show Text in Buttons" SetText: chkButtonText self Start: chkShowMonitor ! 18 101 89 18 Move: chkShowMonitor Handle: Winfont SetFont: chkShowMonitor s" Show Monitor" SetText: chkShowMonitor self Start: chkShowReleaseNotes ! 18 121 120 25 Move: chkShowReleaseNotes Handle: Winfont SetFont: chkShowReleaseNotes s" Show Release Notes" SetText: chkShowReleaseNotes self Start: radAlignTop 180 21 61 19 Move: radAlignTop --- 1873,1915 ---- self Start: grpOther ! 8 77 158 109 Move: grpOther Handle: Winfont SetFont: grpOther s" Options" SetText: grpOther self Start: grpToolBar ! 9 6 140 65 Move: grpToolBar Handle: Winfont SetFont: grpToolBar s" Toolbar" SetText: grpToolBar self Start: chkFlatToolBar ! 16 21 79 18 Move: chkFlatToolBar Handle: Winfont SetFont: chkFlatToolBar s" Flat Style" SetText: chkFlatToolBar self Start: chkButtonText ! 16 43 122 18 Move: chkButtonText Handle: Winfont SetFont: chkButtonText s" Show Text in Buttons" SetText: chkButtonText self Start: chkShowMonitor ! 16 102 114 18 Move: chkShowMonitor Handle: Winfont SetFont: chkShowMonitor s" Show Monitor" SetText: chkShowMonitor self Start: chkShowReleaseNotes ! 16 121 125 18 Move: chkShowReleaseNotes Handle: Winfont SetFont: chkShowReleaseNotes s" Show Release Notes" SetText: chkShowReleaseNotes + self Start: chkSingleControl + 16 141 137 18 Move: chkSingleControl + Handle: Winfont SetFont: chkSingleControl + s" Click adds single control" SetText: chkSingleControl + + self Start: chkAutoProperty + 16 161 145 18 Move: chkAutoProperty + Handle: Winfont SetFont: chkAutoProperty + s" Auto display properties" SetText: chkAutoProperty + self Start: radAlignTop 180 21 61 19 Move: radAlignTop *************** *** 1921,1925 **** self Start: btnOk ! 74 170 58 22 Move: btnOk WS_GROUP +Style: btnOk Handle: Winfont SetFont: btnOk --- 1933,1937 ---- self Start: btnOk ! 74 218 58 22 Move: btnOk WS_GROUP +Style: btnOk Handle: Winfont SetFont: btnOk *************** *** 1927,1931 **** self Start: btnCancel ! 144 170 58 22 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel --- 1939,1943 ---- self Start: btnCancel ! 144 218 58 22 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** FORTHFORM.F 13 May 2007 07:52:26 -0000 1.22 --- FORTHFORM.F 28 Apr 2008 05:22:44 -0000 1.23 *************** *** 37,41 **** needs HtmlControl.f \ for viewing the help file needs ScintillaControl.f \ editor for FormPad ! needs FileLister.f \ directory viewer needs Win32Help.f needs Resources.f --- 37,42 ---- needs HtmlControl.f \ for viewing the help file needs ScintillaControl.f \ editor for FormPad ! \ needs FileLister.f \ directory viewer using treeview ! needs folderview.f needs Win32Help.f needs Resources.f *************** *** 104,113 **** 0 value ctrldata-size \ before opening it true value show-notes? \ display release notes on startup? ! false value one-click? \ allow one control to be added at a time? ! variable formwindow-link \ all forthform windows, allow simple closing formwindow-link off ! WM_USER 256 + constant FF_PASTE \ message to tell Win32forth to paste source text ColorObject FormColor \ background form color --- 105,114 ---- 0 value ctrldata-size \ before opening it true value show-notes? \ display release notes on startup? ! true value SingleControl? \ allow only one control to be added at a time? ! false value AutoProperty? \ automatically display appropriate property dialog? variable formwindow-link \ all forthform windows, allow simple closing formwindow-link off ! WM_USER 256 + constant FF_PASTE \ message to tell Win32forthIDE to paste source text ColorObject FormColor \ background form color *************** *** 119,123 **** \ adapted from WinEd ! 20208 constant fform_version# \ 2.02.08 \ Version numbers: v.ww.rr --- 120,124 ---- \ adapted from WinEd ! 20209 constant fform_version# \ 2.02.09 \ Version numbers: v.ww.rr *************** *** 348,364 **** needs formmonitor.f \ monitor window for positioning forms ! Form DummyForm ! ControlObject DummyControl : UpdateFormPicker ( -- ) \ update combolist control ! GetHandle: FormPicker 0= ?exit ! Clear: FormPicker ! #Forms ?dup if 1+ 1 ?do i >Link#: FormList Data@: FormList FormName: [ ] ! count asciiz AddStringTo: FormPicker loop ActiveForm ?dup ! if ?FormNumber 1- 0max SetSelection: FormPicker then then ; --- 349,365 ---- needs formmonitor.f \ monitor window for positioning forms ! Form DummyForm \ dummy ! ControlObject DummyControl \ objects : UpdateFormPicker ( -- ) \ update combolist control ! GetHandle: FormPicker 0= ?exit \ not opened ! Clear: FormPicker \ reset it ! #Forms ?dup \ if we have any if 1+ 1 ?do i >Link#: FormList Data@: FormList FormName: [ ] ! count asciiz AddStringTo: FormPicker \ add string loop ActiveForm ?dup ! if ?FormNumber 1- 0max SetSelection: FormPicker \ show active form then then ; *************** *** 411,417 **** Monitor.OriginY s>d (d.) s" MonitorTop" SetSetting then ! \+ withbgnd ImageFileName: BkGndImageWindow s" BackGroundImage" SetSetting FlatToolbar? s>d (d.) s" ToolbarStyle" SetSetting ShowMonitor? s>d (d.) s" ShowMonitor" SetSetting align_rebar s>d (d.) s" AlignRebar" SetSetting RebarHeight s>d (d.) s" RebarHeight" SetSetting --- 412,424 ---- Monitor.OriginY s>d (d.) s" MonitorTop" SetSetting then ! #IFDEF withbgnd ImageHandle: BKGndImageWindow ! if ImageFileName: BkGndImageWindow ! else pad 0 ! then s" BackGroundImage" SetSetting ! #THEN FlatToolbar? s>d (d.) s" ToolbarStyle" SetSetting ShowMonitor? s>d (d.) s" ShowMonitor" SetSetting + SingleControl? s>d (d.) s" SingleClick" SetSetting + AutoProperty? s>d (d.) s" AutoProperty" SetSetting align_rebar s>d (d.) s" AlignRebar" SetSetting RebarHeight s>d (d.) s" RebarHeight" SetSetting *************** *** 432,435 **** --- 439,444 ---- s" ToolbarStyle" "GetDefaultValue if to FlatToolBar? else drop then s" ShowMonitor" "GetDefaultValue if to ShowMonitor? else drop then + s" SingleClick" "GetDefaultValue if to SingleControl? else drop then + s" AutoProperty" "GetDefaultValue if to AutoProperty? else drop then s" AlignRebar" "GetDefaultValue if to align_rebar else drop then s" RebarHeight" "GetDefaultValue if to RebarHeight else drop then *************** *** 595,600 **** if UpdatePropertyWindow then ! then ! UpdateFormPicker #Forms 2 < if Close: frmCreatePropertyForm --- 604,608 ---- if UpdatePropertyWindow then ! then UpdateFormPicker #Forms 2 < if Close: frmCreatePropertyForm *************** *** 661,675 **** ; ! :M Canvas: { \ x y w h winw winh -- x y w h } rebar_position ! to h to w to y to x ! width height Height: statuswindow - to winh to winw align_rebar top = ! if 0 h winw winh h - exitm then align_rebar bottom = ! if 0 0 winw winh h - exitm then align_rebar left = ! if w 0 winw winh exitm ! then ( align right ) 0 0 winw w - winh ;M --- 669,683 ---- ; ! :M Canvas: { \ rebarx rebary rebarw rebarh mainw mainh -- x y w h } rebar_position ! to rebarh to rebarw to rebary to rebarx ! width height Height: statuswindow - to mainh to mainw align_rebar top = ! if 0 rebarh mainw mainh rebarh - exitm then align_rebar bottom = ! if 0 0 mainw mainh rebarh - exitm then align_rebar left = ! if rebarw 0 mainw mainh exitm ! then ( align right ) 0 0 mainw rebarw - mainh ;M *************** *** 678,681 **** --- 686,722 ---- ;M + #IFDEF withbgnd + :M ReDrawImage: ( -- ) + Canvas: self Move: BkGndImageWindow ;M + #ENDIF + + :M On_Paint: ( -- ) + 0 0 Width Height BackGroundColor FillArea: dc + \+ withbgnd ReDrawImage: self + ;M + + : InitBitmaps ( -- ) \ create default bitmap handles for bitmap buttons + PictureBitmap usebitmap \ create bitmap handle + GetDc: self dup>r CreateDIBitmap to picturebmp + Static_Bitmap usebitmap + r@ CreateDIBitmap to staticbmp + r> ReleaseDc: self ; + + #IFDEF withbgnd + : StartImageWindow ( -- ) + self Start: BkGndImageWindow + FIT_SIZE SetViewMode: BkGndImageWindow + GetBackGroundImage + if 2drop \ file wasn't found + else SetImageFile: BkGndImageWindow + then ; + #ENDIF + + : StartStatusWIndow ( -- ) + self Start: controlstats \ set up status window + Handle: ControlFont SetFont: controlstats + Addr: controlstats to statuswindow + bardivisions 5 SetParts: controlstats ; + :M On_Init: ( -- ) On_Init: super *************** *** 694,710 **** COLOR_BTNFACE Call GetSysColor NewColor: FormColor - #IFDEF withbgnd - self Start: BkGndImageWindow - FIT_SIZE SetViewMode: BkGndImageWindow - GetBackGroundImage - if 2drop \ file wasn't found - else SetImageFile: BkGndImageWindow - then - #ENDIF - self Start: controlstats \ set up status window - Handle: ControlFont SetFont: controlstats - Addr: controlstats to statuswindow - bardivisions 5 SetParts: controlstats - self Start: TheRebar --- 735,738 ---- *************** *** 713,723 **** then ! \ create default bitmap handles for bitmap buttons ! PictureBitmap usebitmap \ create bitmap handle ! GetDc: self dup>r CreateDIBitmap to picturebmp ! Static_Bitmap usebitmap ! r@ CreateDIBitmap to staticbmp ! r> ReleaseDc: self ! UpdateSystem --- 741,747 ---- then ! StartStatusWIndow ! \+ withbgnd StartImageWindow ! InitBitmaps UpdateSystem *************** *** 725,733 **** ;M - #IFDEF withbgnd - :M ReDrawImage: ( -- ) - Canvas: self Move: BkGndImageWindow ;M - #ENDIF - :M On_Size: ( -- ) AutoSize: ControlToolBar --- 749,752 ---- *************** *** 856,864 **** 0 ;M - :M On_Paint: ( -- ) - \+ withbgnd ReDrawImage: self - Canvas: self BackGroundColor FillArea: dc - ;M - :M Close: ( -- ) SaveDefaults --- 875,878 ---- *************** *** 1085,1088 **** --- 1099,1104 ---- IsButtonChecked?: chkShowMonitor to ShowMonitor? IsButtonChecked?: chkShowReleaseNotes to show-notes? + IsButtonChecked?: chkSingleControl to SingleControl? + IsButtonChecked?: chkAutoProperty to AutoProperty? IsButtonChecked?: radAlignTop if top then IsButtonChecked?: radAlignBottom if bottom then *************** *** 1115,1118 **** --- 1131,1136 ---- ShowMonitor? Check: chkShowMonitor show-notes? Check: chkSHowReleaseNotes + SingleControl? Check: chkSingleControl + AutoProperty? Check: chkAutoProperty align_rebar case Index: FormMonitor.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FormMonitor.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** FormMonitor.f 27 Dec 2006 18:43:58 -0000 1.1 --- FormMonitor.f 28 Apr 2008 05:22:44 -0000 1.2 *************** *** 6,10 **** int wx int wy ! Point MyPoint :M ClassInit: ( -- ) --- 6,10 ---- int wx int wy ! ffPoint MyPoint :M ClassInit: ( -- ) Index: FORMCONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMCONTROLS.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** FORMCONTROLS.F 27 Dec 2006 18:43:57 -0000 1.7 --- FORMCONTROLS.F 28 Apr 2008 05:22:44 -0000 1.8 *************** *** 487,491 **** :Class FFFileWindow <Super Child-Window ! FileWindow TheFileLister :M WM_LBUTTONDOWN { h m w l -- res } --- 487,491 ---- :Class FFFileWindow <Super Child-Window ! FolderViewer TheFileLister :M WM_LBUTTONDOWN { h m w l -- res } Index: FORMPROPERTY.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMPROPERTY.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** FORMPROPERTY.F 27 Dec 2006 18:43:57 -0000 1.5 --- FORMPROPERTY.F 28 Apr 2008 05:22:44 -0000 1.6 *************** *** 5,8 **** --- 5,12 ---- load-bitmap stopbmp2 "stop2.bmp" + \ The following not working from within the TabControl form, just a litle help info + s" When a control or form is selected display its property" BInfo: chkAutoProperty place + s" Add only one selected control when form is clicked" BInfo: chkSingleControl place + : GetBitmap ( -- ) Gethandle: frmEditProperties Start: GetBitmapDlg dup c@ *************** *** 43,47 **** dup Enable: radLefttext dup Enable: grpOrientation ; ! : ?EnableSpinner ( -- ) GetType: eActiveControl TypeTextBox = dup Enable: chkSpinner --- 47,51 ---- dup Enable: radLefttext dup Enable: grpOrientation ; ! : ?EnableSpinner ( -- ) GetType: eActiveControl TypeTextBox = dup Enable: chkSpinner *************** *** 180,184 **** :Noname ( -- ) ! frmEditProperties.hwnd 0= ?exit \ window is not open \ Remove comment from the following if you will need to save the properties first \ If you do and you are just browsing controls the form(s) will be marked as --- 184,188 ---- :Noname ( -- ) ! frmEditProperties.hwnd 0= ?exit \ window is not open \ Remove comment from the following if you will need to save the properties first \ If you do and you are just browsing controls the form(s) will be marked as *************** *** 186,190 **** \ SaveProperties \ save first ! initload \ reload for new control ; is UpDatePropertyWindow --- 190,194 ---- \ SaveProperties \ save first ! initload \ reload for new control ; is UpDatePropertyWindow *************** *** 297,301 **** 1 of SaveProperties ( control ) endof endcase ; ! :M Close: ( -- ) Close: frmEditForm --- 301,305 ---- 1 of SaveProperties ( control ) endof endcase ; ! :M Close: ( -- ) Close: frmEditForm *************** *** 315,323 **** IDOK SetId: btnApply IDCANCEL SetID: btnClose ! ! TCS_BUTTONS AddStyle: TabProperties On_Init: Super ! self Start: btnApply btnApplyX btnApplyY btnApplyW btnApplyH Move: btnApply --- 319,327 ---- IDOK SetId: btnApply IDCANCEL SetID: btnClose ! ! TCS_BUTTONS TCS_FLATBUTTONS or AddStyle: TabProperties On_Init: Super ! self Start: btnApply btnApplyX btnApplyY btnApplyW btnApplyH Move: btnApply *************** *** 328,332 **** s" Apply" SetText: btnApply Handle: WinFont SetFont: btnApply ! self Start: btnClose btnCloseX btnCloseY btnCloseW btnCloseH Move: btnClose --- 332,336 ---- s" Apply" SetText: btnApply Handle: WinFont SetFont: btnApply ! self Start: btnClose btnCloseX btnCloseY btnCloseW btnCloseH Move: btnClose *************** *** 371,375 **** 0 Addr: TabProperties ontab ;M ! :M ClassInit: ( -- ) ClassInit: Super --- 375,379 ---- 0 Addr: TabProperties ontab ;M ! :M ClassInit: ( -- ) ClassInit: Super Index: TabPropertyWindow.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/TabPropertyWindow.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsUG1RI2 and /tmp/cvsAUR8nc differ Index: CreateToolBarForm.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/CreateToolBarForm.ff,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsFAFXvl and /tmp/cvsqNCgCv differ Index: PREFERENCES.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/PREFERENCES.ff,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvstButGr and /tmp/cvsSqpzcC differ Index: POINT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/POINT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** POINT.F 21 Dec 2004 00:18:45 -0000 1.1 --- POINT.F 28 Apr 2008 05:22:45 -0000 1.2 *************** *** 4,8 **** \ define point class ! :Class Point <Super Object Record: xy --- 4,8 ---- \ define point class ! :Class ffPoint <Super Object Record: xy Index: FORMTOOLBAR.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMTOOLBAR.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** FORMTOOLBAR.F 27 Dec 2006 18:43:57 -0000 1.3 --- FORMTOOLBAR.F 28 Apr 2008 05:22:44 -0000 1.4 *************** *** 400,407 **** : add-children ( -- ) rebar$ c@ 0= \ from scratch? ! if align_rebar 1 and 0= if add-combobox ! then add-maintoolbar ! add-controltoolbar exit then rebar$ count bounds ?do i c@ --- 400,408 ---- : add-children ( -- ) rebar$ c@ 0= \ from scratch? ! if add-maintoolbar ! add-controltoolbar ! align_rebar 1 and 0= if add-combobox ! then exit then rebar$ count bounds ?do i c@ Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** FORMOBJECT.F 10 Jun 2007 03:44:27 -0000 1.20 --- FORMOBJECT.F 28 Apr 2008 05:22:44 -0000 1.21 *************** *** 91,96 **** int selecting? \ true if selecting a group of controls LTGRAY value BackGroundColor \ duh! ! Point upperleft \ bounding coordinates ! Point lowerright \ for active control File FormFile \ file name for this window 5 constant hsize \ square handle size --- 91,96 ---- int selecting? \ true if selecting a group of controls LTGRAY value BackGroundColor \ duh! ! ffPoint upperleft \ bounding coordinates ! ffPoint lowerright \ for active control File FormFile \ file name for this window 5 constant hsize \ square handle size *************** *** 149,152 **** --- 149,155 ---- to ActiveControl self to Activeform + AutoProperty? + if doedit + then UpdatePropertyWindow UpdateStatus: self ; *************** *** 821,825 **** : clicked ( -- ) hwnd call SetCapture drop ! one-click? if ButtonID IDC_BITMAP IDC_Generic between if false ButtonID CheckButton: TheControlToolBar \ uncheck it --- 824,828 ---- : clicked ( -- ) hwnd call SetCapture drop ! SingleControl? if ButtonID IDC_BITMAP IDC_Generic between if false ButtonID CheckButton: TheControlToolBar \ uncheck it *************** *** 902,908 **** hwnd Call ReleaseCapture drop locked? ?exit ! adjust-box newcontrol? ! if one-click? if false to newcontrol? then --- 905,911 ---- hwnd Call ReleaseCapture drop locked? ?exit ! adjust-box newcontrol? ! if SingleControl? if false to newcontrol? then *************** *** 925,929 **** Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox d= if false to selecting? NoActiveControl \ no box drawn ! then Paint: self ; : dosize { \ deltax deltay -- } --- 928,938 ---- Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox d= if false to selecting? NoActiveControl \ no box drawn ! then ! ActiveControl 0= ! if AutoProperty? ! if doform ! then ! then ! Paint: self ; : dosize { \ deltax deltay -- } *************** *** 1063,1068 **** Update: self else SetFocus: self ! then ! ;M :M On_Size: ( -- ) --- 1072,1078 ---- Update: self else SetFocus: self ! then AutoProperty? ! if doform ! then ;M :M On_Size: ( -- ) *************** *** 1513,1517 **** then TypeFileWindow get-array \ do we have any? ! if s" \- -filelister.f needs filelister.f \ folder browser" append&crlf then then GetSuperClass: self MDIDIALOG-CLASS = --- 1523,1527 ---- then TypeFileWindow get-array \ do we have any? ! if s" \- -FolderView.f needs folderview.f \ folder browser" append&crlf then then GetSuperClass: self MDIDIALOG-CLASS = *************** *** 1584,1588 **** TypeStaticBitmap of s" StaticBitmap " endof TypeMultiListBox of s" MultiListBox " endof ! TypeFileWindow of s" FileWindow " endof TypeTabControl of s" TabControl " endof TypeGeneric of write-child-params --- 1594,1598 ---- TypeStaticBitmap of s" StaticBitmap " endof TypeMultiListBox of s" MultiListBox " endof ! TypeFileWindow of s" FolderViewer " endof TypeTabControl of s" TabControl " endof TypeGeneric of write-child-params *************** *** 1627,1631 **** TypeStaticBitmap of s" StaticBitmap " endof TypeMultiListBox of s" MultiListBox " endof ! TypeFileWindow of s" FileWindow " endof TypeTabControl of s" TabControl " endof TypeGeneric of write-child-params --- 1637,1641 ---- TypeStaticBitmap of s" StaticBitmap " endof TypeMultiListBox of s" MultiListBox " endof ! TypeFileWindow of s" FolderViewer " endof TypeTabControl of s" TabControl " endof TypeGeneric of write-child-params *************** *** 1737,1741 **** +crlf s" :M Close:" append 1 +tabs s" ( -- )" append&crlf ! \ we close any FileWindow object, avoid head scratching bugs :-p TypeFileWindow get-array \ do we have any? if #controls 1+ 1 --- 1747,1751 ---- +crlf s" :M Close:" append 1 +tabs s" ( -- )" append&crlf ! \ we close any FolderViewer object, avoid head scratching bugs :-p TypeFileWindow get-array \ do we have any? if #controls 1+ 1 Index: CreateMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/CreateMenu.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** CreateMenu.f 27 Dec 2006 18:43:57 -0000 1.4 --- CreateMenu.f 28 Apr 2008 05:22:44 -0000 1.5 *************** *** 26,29 **** --- 26,30 ---- defer OnMenuEnd \ ' drop is OnMenuEnd defer OnExit ' drop is OnExit + 0 value ThisItem :Class MenuEntry <super Object *************** *** 106,110 **** int SelectedItem - int ThisItem int hwndmain \ handle to root int hwndimage --- 107,110 ---- *************** *** 595,599 **** GetMenuName: TheMenu pad +place pad count ; ! : DoMenuCommand { mid obj -- } mid --- 595,599 ---- GetMenuName: TheMenu pad +place pad count ; ! : DoMenuCommand { mid obj -- } mid *************** *** 601,605 **** GetID: btnPopup of GetText: txtMenutext AddPopup: TheMenu endof GetID: btnSubMenu of GetText: txtMenutext AddSubMenu: TheMenu endof ! GetID: btnMenuItem of GetText: txtMenutext AddMenuitem: TheMenu endof GetID: btnRename of GetText: txtMenutext Rename: TheMenu endof GetID: btnSeparator of MenuSeparator: TheMenu endof --- 601,607 ---- GetID: btnPopup of GetText: txtMenutext AddPopup: TheMenu endof GetID: btnSubMenu of GetText: txtMenutext AddSubMenu: TheMenu endof ! GetID: btnMenuItem of GetText: txtMenutext AddMenuitem: TheMenu ! GetText: txtName SetMenuName: ThisItem ! endof GetID: btnRename of GetText: txtMenutext Rename: TheMenu endof GetID: btnSeparator of MenuSeparator: TheMenu endof |
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/res In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1930/res Added Files: FFBITMAPS.BMP PICTURE.BMP SCRLDOWN.BMP SCRLRight.BMP SCRLUP.BMP SCRLleft.BMP STATIC.BMP Splitwin-type3.bmp Splitwin-type4.bmp Splitwin-type5.bmp Splitwin-type6.bmp folder.bmp save1.bmp save2.bmp splitwin-type1.bmp splitwin-type2.BMP stop1.BMP stop2.BMP Log Message: ForthForm integration into IDE. EAB --- NEW FILE: folder.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: STATIC.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SCRLleft.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SCRLUP.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: stop2.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: splitwin-type2.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SCRLRight.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: splitwin-type1.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Splitwin-type6.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Splitwin-type5.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: save1.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: FFBITMAPS.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SCRLDOWN.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: PICTURE.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: stop1.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Splitwin-type4.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Splitwin-type3.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: save2.bmp --- (This appears to be a binary file; contents omitted.) |
|
From: Ezra B. <ezr...@us...> - 2008-04-28 04:58:06
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27843/Forms Log Message: Directory /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms added to the repository |
|
From: Dirk B. <db...@us...> - 2008-04-27 11:21:28
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21109 Modified Files: FONTS.F Log Message: - Added a missing member function for compatiblity with the Quadrix game. Index: FONTS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FONTS.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** FONTS.F 17 Feb 2006 16:43:16 -0000 1.8 --- FONTS.F 27 Apr 2008 11:21:19 -0000 1.9 *************** *** 38,40 **** --- 38,44 ---- GetHandle: super ;M + \ found this in an old w32f application... + :M zHandle: ( -- ) + Destroy: super ;M + ;class |
|
From: Leger <iku...@24...> - 2008-04-27 09:55:34
|
Always dreamt of being a real man? Stop dreaming now http://www.setnales.com/ |
|
From: <win...@li...> - 2008-04-26 22:42:30
|
Ladies and Gentlemen, Get Ready for.. Thought I would let you know about the Fashion Footwear SPRING Sale! Men and Women Designer Shoes, Heels, Sandals and Boots, All Half-OFF, Buy Direct, Forget Department Store Prices, Get Exclusive 2008 D&G, Gucci, Versace, Prada, Chanel, Christian Dior, Dsquared, Uggs and More! FREE International Shipping on all Orders! discoverkolkata.com/offer/ |
|
From: Chane <s{<son...@LY...> - 2008-04-26 12:24:48
|
Sleep with all the women you want in this world only if you have a big digg. http://www.shlotes.com/ |
|
From: Dirk B. <db...@us...> - 2008-04-26 11:14:52
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24599/src/lib Modified Files: TrayWindow.f Log Message: - Fixed some smal bugs - Clean up of some demos Index: TrayWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TrayWindow.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TrayWindow.f 21 May 2007 09:57:26 -0000 1.2 --- TrayWindow.f 26 Apr 2008 11:14:37 -0000 1.3 *************** *** 91,98 **** On_Done: super ;M - :M IsVisible?: ( -- f ) - \ *G Check if the window is visible or not. - GetHandle: self call IsWindowVisible ;M - :M ShowWindow: ( -- ) \ *G Show the window and remove the icon from the traybar. --- 91,94 ---- |
|
From: Dirk B. <db...@us...> - 2008-04-26 11:14:52
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24599/src Modified Files: GENERIC.F Window.f Log Message: - Fixed some smal bugs - Clean up of some demos Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Window.f 1 May 2007 07:32:55 -0000 1.18 --- Window.f 26 Apr 2008 11:14:36 -0000 1.19 *************** *** 539,545 **** \ If not don't call On_Paint: 0 0 hWnd call GetUpdateRect ! if &ps BeginPaint: self SetHandle: dc On_Paint: [ self ] ! &ps EndPaint: self 0 SetHandle: dc then 0 ;M --- 539,545 ---- \ If not don't call On_Paint: 0 0 hWnd call GetUpdateRect ! if &ps BeginPaint: self PutHandle: dc On_Paint: [ self ] ! &ps EndPaint: self 0 PutHandle: dc then 0 ;M Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** GENERIC.F 27 Jun 2007 07:31:16 -0000 1.18 --- GENERIC.F 26 Apr 2008 11:14:36 -0000 1.19 *************** *** 174,177 **** --- 174,181 ---- then ;M + :M IsVisible?: ( -- f ) + \ *G Check if the window is visible or not. + hWnd call IsWindowVisible ;M + :M SetRedraw: ( f -- ) \ *G Set the redraw state of the window. |
|
From: Dirk B. <db...@us...> - 2008-04-26 11:14:52
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24599/src/gdi Modified Files: gdiDC.f Log Message: - Fixed some smal bugs - Clean up of some demos Index: gdiDC.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** gdiDC.f 20 Apr 2008 13:46:22 -0000 1.9 --- gdiDC.f 26 Apr 2008 11:14:36 -0000 1.10 *************** *** 145,149 **** \ ** The DC is restored by popping state information off a stack created by \ ** earlier calls to the Save method. ! -1 hObject call RestoreDC ?win-error ;M :M Cancel: ( -- ) --- 145,149 ---- \ ** The DC is restored by popping state information off a stack created by \ ** earlier calls to the Save method. ! hObject call RestoreDC ?win-error ;M :M Cancel: ( -- ) *************** *** 1085,1089 **** \ *P \i nWidth \d width of destination rectangle \ *P \i nHeight \d height of destination rectangle ! \ *P \i hdcSrc \d handle to source DC \ *P \i nXSrc \d x-coordinate of source upper-left corner \ *P \i nYSrc \d y-coordinate of source upper-left corner --- 1085,1089 ---- \ *P \i nWidth \d width of destination rectangle \ *P \i nHeight \d height of destination rectangle ! \ *P \i hdcSrc \d source DC \ *P \i nXSrc \d x-coordinate of source upper-left corner \ *P \i nYSrc \d y-coordinate of source upper-left corner *************** *** 1240,1244 **** \ ** and stroking and filling the path separately, except that the filled region will not overlap the \ ** stroked region even if the pen is wide. ! hObject Call StrokeAndFillPath ?win-error ;M :M WidenPath: ( -- ) --- 1240,1244 ---- \ ** and stroking and filling the path separately, except that the filled region will not overlap the \ ** stroked region even if the pen is wide. ! hObject Call StrokeAndFillPath ?win-error ;M :M WidenPath: ( -- ) *************** *** 1248,1252 **** \ ** ExtCreatePen function, or if the pen is created with the CreatePen function and has a width, in \ ** device units, of more than one. ! \ ** The device context identified by the hdc parameter must contain a closed path. \ ** Any Bézier curves in the path are converted to sequences of straight lines approximating the \ ** widened curves. As such, no Bézier curves remain in the path after WidenPath is called. --- 1248,1252 ---- \ ** ExtCreatePen function, or if the pen is created with the CreatePen function and has a width, in \ ** device units, of more than one. ! \ ** The device context must contain a closed path. \ ** Any Bézier curves in the path are converted to sequences of straight lines approximating the \ ** widened curves. As such, no Bézier curves remain in the path after WidenPath is called. |
|
From: Dirk B. <db...@us...> - 2008-04-26 11:14:52
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24599 Modified Files: fkernel.exe Log Message: - Fixed some smal bugs - Clean up of some demos Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 Binary files /tmp/cvsivjnFH and /tmp/cvsUYozhf differ |
|
From: Ondrej <Ond...@AB...> - 2008-04-24 13:08:51
|
Fantastic deep penetration with your longer rod http://www.bueyreain.com/ |
|
From: callahan <ax...@14...> - 2008-04-23 13:56:39
|
I know my buddies are jealous of me when they refuse to look below my waist. http://www.joeapelg.com/ |
|
From: tebinaz <sim...@JL...> - 2008-04-20 18:49:48
|
Feed your desperation for more pleasures http://www.eigtjad.com/ |
|
From: Jos v.d.V. <jo...@us...> - 2008-04-20 14:04:19
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18429 Modified Files: WINCLOCK.F Log Message: Jos: A change made by Dirk. Now a timer is used instead of a delay for a number of MS. Index: WINCLOCK.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINCLOCK.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** WINCLOCK.F 5 Oct 2005 15:31:21 -0000 1.2 --- WINCLOCK.F 20 Apr 2008 14:04:14 -0000 1.3 *************** *** 3,16 **** only forth also definitions 1280 value screen-mwidth 1024 value screen-mheight - 400 to screen-width - 300 to screen-height \ --------------------------------------------------------------- ! \ Define the BIT-WINDOW global drawing functions \ --------------------------------------------------------------- ! Windc demo-dc 2 value bit-originx \ we have a two pixel border around the bitmap --- 3,24 ---- only forth also definitions + needs NoConsole.f + needs Resources.f + + true value turnkey? + 1280 value screen-mwidth 1024 value screen-mheight \ --------------------------------------------------------------- ! \ Define the AnalogClock window class \ --------------------------------------------------------------- ! :Class AnalogClockChildWindow <super child-window ! ! \ --------------------------------------------------------------- ! \ --------------------------------------------------------------- ! ! Windc Clock-dc 2 value bit-originx \ we have a two pixel border around the bitmap *************** *** 23,174 **** : new-point-chk ( x y -- x y true | false ) ! 0max screen-height 4 - min swap 0max screen-width 4 - min swap ! bit-originy + swap bit-originx + swap ! over prev-x = over prev-y = and ! if 2drop false ( don't draw ) ! else 2dup to prev-y ! to prev-x true ( do draw ) ! then ; : moveto ( x y -- ) new-point-chk ! if ! MoveTo: demo-dc ! then ; : lineto ( x y -- ) new-point-chk ! if ! LineTo: demo-dc ! then ; : line ( x1 y1 x2 y2 -- ) 2swap moveto lineto ; ! : line-color ( color_object -- ) ! LineColor: demo-dc ; ! ! \ --------------------------------------------------------------- ! \ Define the BIT-WINDOW window class ! \ --------------------------------------------------------------- ! ! :Class bit-window <super child-window ! ! int vga-bitmap ! ! :M On_Paint: ( -- ) ! SRCCOPY 0 0 GetHandle: demo-dc GetSize: self 0 0 BitBlt: dc ! ;M ! ! :M Clear: ( -- ) ! 0 0 screen-mwidth screen-mheight BLACK FillArea: demo-dc ! ;M ! ! :M WM_CREATE ( hwnd msg wparam lparam -- res ) ! get-dc ! 0 call CreateCompatibleDC PutHandle: demo-dc ! screen-mwidth screen-mheight CreateCompatibleBitmap: dc ! to vga-bitmap ! vga-bitmap SelectObject: demo-dc drop ! OEM_FIXED_FONT SelectStockObject: demo-dc drop ! WHITE_PEN SelectStockObject: demo-dc drop ! BLACK SetBkColor: demo-dc ! WHITE SetTextColor: demo-dc ! 0 0 screen-mwidth screen-mheight BLACK FillArea: demo-dc ! release-dc ! 0 ;M ! ! :M On_Done: ( -- ) ! vga-bitmap call DeleteObject drop ! 0 to vga-bitmap ! On_Done: super ! ;M ! ! ;Class \ --------------------------------------------------------------- - \ Menu and push button support \ --------------------------------------------------------------- - MENUBAR Demo-Menu-bar - - POPUP "&File" - MENUITEM "E&xit \tAlt-F4" bye ; - - ENDBAR - - :Object GCLOCK <super window - - bit-window vga-bit-window - - 0 constant marginSize \ sets the clock white margin size in pixels - - marginSize constant bitorigx - marginSize constant bitorigy - - bitorigx marginSize + 1+ constant bitrightmargin - bitorigx marginSize + 1+ constant bitbottommargin - - :M On_Init: ( -- ) \ initialize the class - On_Init: super \ first init super class - 2 SetId: vga-bit-window \ then the child window - self Start: vga-bit-window \ then startup child window - \ Demo-menu-bar SetMenuBar: self - ;M - - :M On_Done: ( h m w l -- res ) - 0 call PostQuitMessage drop - On_Done: super - 0 ;M - - :M WM_CLOSE ( h m w l -- res ) - WM_CLOSE WM: Super - bye - 0 ;M - - :M Refresh: ( -- ) - Paint: vga-bit-window - ;M - - :M StartSize: ( -- width height ) \ starting window size - 480 480 - - ;M - - :M StartPos: ( -- x y ) \ starting postion on screen - CenterWindow: Self - ;M - - :M MinSize: ( -- width height ) \ minimum window size - 100 100 - ;M - - :M MaxSize: ( -- width height ) \ maximum window size - screen-mwidth screen-mheight - ;M - - :M WindowTitle: ( -- Zstring ) \ window caption - z" WinClock" - ;M - - \ the l parameter has already been removed by WINDOW.F, and put - \ into Height and Width - - :M On_Size: ( h m w -- ) \ handle resize message - Clear: vga-bit-window - bitorigx bitorigy - Width bitrightmargin - dup to screen-width - Height bitbottommargin - dup to screen-height - Move: vga-bit-window - ;M - - ;Object - - : unload-clock ( -- ) - DestroyWindow: GCLOCK ; - - unload-chain chain-add-before unload-clock - - create sintbl 0 , 25 , 49 , 74 , 97 , 120 , 141 , 160 , --- 31,61 ---- : new-point-chk ( x y -- x y true | false ) ! 0max screen-height 4 - min swap 0max screen-width 4 - min swap ! bit-originy + swap bit-originx + swap ! over prev-x = over prev-y = and ! if 2drop false ( don't draw ) ! else 2dup to prev-y ! to prev-x true ( do draw ) ! then ; : moveto ( x y -- ) new-point-chk ! if MoveTo: Clock-dc ! then ; : lineto ( x y -- ) new-point-chk ! if LineTo: Clock-dc ! then ; : line ( x1 y1 x2 y2 -- ) 2swap moveto lineto ; ! : LineColor ( color_object -- ) ! LineColor: Clock-dc ; \ --------------------------------------------------------------- \ --------------------------------------------------------------- create sintbl 0 , 25 , 49 , 74 , 97 , 120 , 141 , 160 , *************** *** 187,190 **** --- 74,83 ---- 240 value scale-y + :M SetCenter-x: ( n -- ) + to center-x ;M + + :M SetCenter-y: ( n -- ) + to center-y ;M + : >screenx ( n1 -- n2 ) screen-width 480 */ ; *************** *** 192,213 **** : >screeny ( n1 -- n2 ) screen-width 480 */ ; - (( - : makesin ( -- ) - cr - 462 0 - do i 0 d>f fsin f# 240.0 f* f>d 8 d.r - 100 ms - 10 ?cr - 6 +loop ; - - : xxy-scale ( 6deg scale -- x1 y1 ) - >r - dup 6 * 0 d>f fsin f# 240.0 f* f>d drop - >screenx dup r@ center-x */ - swap 1 and + center-x + - swap 15 + 6 * 0 d>f fsin f# 240.0 f* f>d drop - >screeny dup r> scale-y */ - swap 1 and + negate center-y + ; - )) : sin ( deg -- x ) 60 mod sintbl +CELLS @ ; --- 85,88 ---- *************** *** 265,290 **** : .second ( -- ) \ draw second display ! black line-color last-second 60 mod .sec this-second TO last-second ! white line-color this-second 60 mod .sec ; : .minute ( -- ) \ draw minute display this-minute last-minute <> ! IF black line-color last-minute 60 mod .min this-minute TO last-minute THEN ! ltgreen line-color this-minute 60 mod .min ; : .hour ( -- ) \ draw hour display this-hour last-hour <> ! IF black line-color last-hour 5 * last-hour-minute 12 / + 60 mod .hr this-hour TO last-hour this-minute TO last-hour-minute THEN ! ltblue line-color this-hour 5 * this-minute 12 / + 60 mod .hr ; --- 140,165 ---- : .second ( -- ) \ draw second display ! black LineColor last-second 60 mod .sec this-second TO last-second ! white LineColor self this-second 60 mod .sec ; : .minute ( -- ) \ draw minute display this-minute last-minute <> ! IF black LineColor last-minute 60 mod .min this-minute TO last-minute THEN ! ltgreen LineColor this-minute 60 mod .min ; : .hour ( -- ) \ draw hour display this-hour last-hour <> ! IF black LineColor last-hour 5 * last-hour-minute 12 / + 60 mod .hr this-hour TO last-hour this-minute TO last-hour-minute THEN ! ltblue LineColor this-hour 5 * this-minute 12 / + 60 mod .hr ; *************** *** 306,310 **** this-hour TO last-hour ; - 1 value delay-ms 16 value cdiam 0 value ccolor --- 181,184 ---- *************** *** 321,325 **** : show-circle ( -- ) 1 +TO ccolor ! ccolor >color line-color 60 0 DO \ draws dots (lines 1 pixel long) --- 195,199 ---- : show-circle ( -- ) 1 +TO ccolor ! ccolor >color LineColor 60 0 DO \ draws dots (lines 1 pixel long) *************** *** 331,364 **** : .hms ( -- ) ! .second \ draw second ! .minute \ draw minute ! .hour \ draw hour ! show-circle ; \ draw the circles : show-border ( -- ) 60 0 ! do white line-color i center-x 1- xy-scale i 1+ center-x 1- xy-scale line i center-x 12 - xy-scale i 1+ center-x 12 - xy-scale line i 5 mod ! if ltcyan line-color \ 1 second markers i center-x 12 - xy-scale i center-x 1- xy-scale line ! else yellow line-color \ 5 second markers i center-x 20 - xy-scale i center-x 1- xy-scale line then loop ; ! : new-clock ( -- ) \ draw a new clock, screen-width 2/ 1- TO center-x screen-height 2/ 1- TO center-y \ calibrate screen center center-x center-x center-y */ TO scale-y \ calibrate aspect ratio ! white line-color \ default color=white show-border ! show-circle ; \ display the circle : show-time ( -- ) \ show the time if it has changed ! ?second \ if second changed ! if .hms \ and then the time ! then ; \ --------------------------------------------------------------- --- 205,356 ---- : .hms ( -- ) ! .second \ draw second ! .minute \ draw minute ! .hour \ draw hour ! show-circle \ draw the circles ! ; : show-border ( -- ) 60 0 ! do white LineColor i center-x 1- xy-scale i 1+ center-x 1- xy-scale line i center-x 12 - xy-scale i 1+ center-x 12 - xy-scale line i 5 mod ! if ltcyan LineColor \ 1 second markers i center-x 12 - xy-scale i center-x 1- xy-scale line ! else yellow LineColor \ 5 second markers i center-x 20 - xy-scale i center-x 1- xy-scale line then loop ; ! :M Clear: ( -- ) ! 0 0 screen-mwidth screen-mheight BLACK FillArea: Clock-dc ! ;M ! ! :m On_Size: ( -- ) \ draw a new clock, ! On_Size: super ! ! 16 to cdiam ! screen-width 2/ 1- TO center-x screen-height 2/ 1- TO center-y \ calibrate screen center center-x center-x center-y */ TO scale-y \ calibrate aspect ratio ! white LineColor \ default color=white ! Clear: self ! show-border ! init-vars ! .hms ! ;M : show-time ( -- ) \ show the time if it has changed ! ?second if .hms then ; ! ! :m Refresh: ( -- ) ! show-circle ! show-time ! Paint: self ! ;M ! ! \ --------------------------------------------------------------- ! \ --------------------------------------------------------------- ! ! int vga-bitmap ! ! :M On_Paint: ( -- ) ! SRCCOPY 0 0 GetHandle: Clock-dc GetSize: self 0 0 BitBlt: dc ! ;M ! ! :M WM_CREATE ( hwnd msg wparam lparam -- res ) ! get-dc ! 0 call CreateCompatibleDC PutHandle: Clock-dc ! screen-mwidth screen-mheight CreateCompatibleBitmap: dc ! to vga-bitmap ! vga-bitmap SelectObject: Clock-dc drop ! OEM_FIXED_FONT SelectStockObject: Clock-dc drop ! WHITE_PEN SelectStockObject: Clock-dc drop ! BLACK SetBkColor: Clock-dc ! WHITE SetTextColor: Clock-dc ! 0 0 screen-mwidth screen-mheight BLACK FillArea: Clock-dc ! release-dc ! 0 ;M ! ! :M On_Done: ( -- ) ! vga-bitmap call DeleteObject drop ! 0 to vga-bitmap ! On_Done: super ! ;M ! ! ;Class ! ! \ --------------------------------------------------------------- ! \ --------------------------------------------------------------- ! :Object WinClock <super window ! ! AnalogClockChildWindow ClockWindow ! ! 10 constant marginSize \ sets the clock white margin size in pixels ! ! marginSize constant bitorigx ! marginSize constant bitorigy ! ! bitorigx marginSize + 1+ constant bitrightmargin ! bitorigx marginSize + 1+ constant bitbottommargin ! ! :M WM_CLOSE ( h m w l -- res ) ! WM_CLOSE WM: Super bye 0 ;M ! ! :M StartSize: ( -- width height ) \ starting window size ! 480 480 ;M ! ! :M StartPos: ( -- x y ) \ starting postion on screen ! CenterWindow: Self ;M ! ! :M MinSize: ( -- width height ) \ minimum window size ! 100 100 ;M ! ! :M MaxSize: ( -- width height ) \ maximum window size ! screen-mwidth screen-mheight ;M ! ! :M WindowTitle: ( -- Zstring ) \ window caption ! z" WinClock" ;M ! ! \ the l parameter has already been removed by WINDOW.F, and put ! \ into Height and Width ! ! :M On_Size: ( h m w -- ) \ handle resize message ! bitorigx bitorigy ! Width bitrightmargin - dup to screen-width ! Height bitbottommargin - dup to screen-height ! Move: ClockWindow ! ;M ! ! \ --------------------------------------------------------------- ! \ --------------------------------------------------------------- ! :M WM_TIMER ( h m w l -- res ) \ handle the WM_TIMER events ! Refresh: ClockWindow ;M \ refresh the window ! ! :M On_Init: ( -- ) \ initialize the class ! On_Init: super \ first init super class ! 2 SetId: ClockWindow \ then the child window ! self Start: ClockWindow \ then startup child window ! ;M ! ! :M On_Done: ( -- ) \ things to do before program termination ! 1 hWnd Call KillTimer drop \ destroy the timer, we are done ! 0 call PostQuitMessage drop ! On_Done: super \ then do things superclass needs ! ;M ! ! :M Start: ( -- ) ! Start: super ! 0 200 1 hWnd Call SetTimer drop \ init timer to a 200 ms rate ! ;m ! ! ;Object ! ! : unload-clock ( -- ) ! DestroyWindow: WinClock ; ! unload-chain chain-add-before unload-clock \ --------------------------------------------------------------- *************** *** 366,400 **** \ --------------------------------------------------------------- ! : WinClock { \ c-width c-height -- } ! Start: GCLOCK ! RANDOM-INIT \ initialize random numbers ! screen-width 2/ 1- TO center-x ! screen-height 2/ 1- TO center-y \ calibrate screen center ! white line-color \ default color=white ! new-clock ! init-vars \ then initialize variable ! .hms \ show initial time ! screen-width to c-width ! screen-height to c-height ! begin c-width c-height ! screen-width screen-height d= 0= ! if 1 to delay-ms ! 16 to cdiam ! new-clock ! screen-width to c-width ! screen-height to c-height ! then ! show-time \ just keep showing the current time ! show-circle ! Refresh: GCLOCK ! key? drop ! delay-ms 1+ 200 min to delay-ms ! delay-ms ms ! again ; ! false #if ! ' WinClock turnkey WinClock \ build an application on disk ! 1 pause-seconds ! #else ! WinClock ! #then --- 358,380 ---- \ --------------------------------------------------------------- ! : Main ( -- ) ! Start: WinClock ! MessageLoop ; ! ! turnkey? [if] ! ! NoConsoleIO \ Setup the Console I/O for an application without the console window. ! NoConsoleInImage \ Tell Imageman that we don't need the w32fconsole.dll. + \ Create the exe-file + &forthdir count &appdir place + ' Main turnkey WinClock.exe + + \ add the Application icon to the EXE file + s" src\res\Win32For.ico" s" WinClock.exe" Prepend<home>\ AddAppIcon + + 1 pause-seconds bye + [else] + s" src\res\Win32For.ico" s" WinClock.exe" Prepend<home>\ AddAppIcon + Main + [then] |
|
From: Jos v.d.V. <jo...@us...> - 2008-04-20 13:46:29
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10380 Modified Files: Dc.f Log Message: Jos: Changes that Dirk posted. Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Dc.f 19 Apr 2008 20:29:10 -0000 1.14 --- Dc.f 20 Apr 2008 13:46:22 -0000 1.15 *************** *** 65,69 **** :M RestoreDC: ( -- ) \ restore current DC context including font ! Restore: super ;M :M SetFont: ( font_handle -- ) --- 65,69 ---- :M RestoreDC: ( -- ) \ restore current DC context including font ! -1 Restore: super ;M :M SetFont: ( font_handle -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2008-04-20 13:46:28
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10380/gdi Modified Files: gdiDC.f Log Message: Jos: Changes that Dirk posted. Index: gdiDC.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** gdiDC.f 28 Apr 2007 10:09:12 -0000 1.8 --- gdiDC.f 20 Apr 2008 13:46:22 -0000 1.9 *************** *** 134,138 **** [THEN] ! :M Save: ( -- ) \ *G The Save method saves the current state of the device context by copying \ ** data describing selected objects and graphic modes (such as the bitmap, --- 134,138 ---- [THEN] ! :M Save: ( -- SavedState ) \ *G The Save method saves the current state of the device context by copying \ ** data describing selected objects and graphic modes (such as the bitmap, *************** *** 141,145 **** hObject call SaveDC ;M ! :M Restore: ( -- ) \ *G The Restore method restores the device context to the specified state. \ ** The DC is restored by popping state information off a stack created by --- 141,145 ---- hObject call SaveDC ;M ! :M Restore: ( SavedState -- ) \ *G The Restore method restores the device context to the specified state. \ ** The DC is restored by popping state information off a stack created by *************** *** 1089,1092 **** --- 1089,1093 ---- \ *P \i nYSrc \d y-coordinate of source upper-left corner \ *P \i dwRop \d + >r >r >r GetGdiObjectHandle r> r> r> 8reverse hObject call BitBlt ?win-error ;M |
|
From: George H. <geo...@us...> - 2008-04-19 20:29:16
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4574/win32forth/src Modified Files: Dc.f Log Message: gah: Modified to set hDC to 0 (for Dirk). Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Dc.f 30 Apr 2007 08:27:44 -0000 1.13 --- Dc.f 19 Apr 2008 20:29:10 -0000 1.14 *************** *** 35,38 **** --- 35,39 ---- ClassInit: super 0 to currentfont + 0 to hDC ;M |
|
From: - 2008-04-19 04:46:49
|
Dear win...@li... From: <win...@li...> MIME-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-1" Content-Transfer-Encoding: 7bit Ladies and Gentlemen, Get Ready for.. Thought I would let you know about the Fashion Footwear SPRING Sale! Men and Women Designer Shoes, Heels, Sandals and Boots, All Half-OFF, Buy Direct, Forget Department Store Prices, Get Exclusive 2008 D&G, Gucci, Versace, Prada, Chanel, Christian Dior, Dsquared, Uggs and More! FREE International Shipping on all Orders! http://mvmoda.com/offer/ |
|
From: pepping <fea...@LA...> - 2008-04-18 11:04:29
|
Your increased size will please her enormously http://www.bunnieagi.com/ |
|
From: Gloyn <icu...@GR...> - 2008-04-14 08:27:04
|
Free your inner inhibitions and let it all out http://www.pofevaem.com/ |
|
From: McPeek S. <ann...@sh...> - 2008-04-12 05:59:12
|
Oi, Present unforggettable night to your belovved one, imaggine yoursellf as a Macho! http://tmhdose9dmesrf.blogspot.com Wife of evremonde! Child of evremonde! Any person do it, he must try to give happiness to others. Of the dear little mite. Her conscience gave her caves.) the marsoulas cave has yielded one bevelled ^^ose(l land of the jews, whom ones, a committee barrington sat down a little heavily. he was not biodcplkbbas you and you're the sor^ of man we want.' 'po you then? Chancery, i suppose, or some of the lawyers. and sickens the nice conscience with intolerable he's such a mild iamb one wouldn't dream of anything her ohn sleepit. weesht! Weesht! Here she comes! A moment, the millionaire had fancied it light areaaaanebkl as the horseman wheeled his animal and galloped in his cut, shook his head at her, but partook expressed willingness almost eaeerness t have. |
|
From: lorreta <ogi...@HI...> - 2008-04-11 13:29:57
|
See the effects of your enlarged tool - you will feel the difference http://www.Pennistins.com/ |
|
From: Colhour <eco...@PR...> - 2008-04-07 08:27:29
|
Great timepieces for a fraction of the price http://www.bueiaept.com/ |
|
From: Deidre <Dei...@04...> - 2008-04-06 20:52:42
|
Shock and awe your friends with this mighty piece of craftsmanship. http://www.poableimed.com/ |
1040 messages has been excluded from this view by a project administrator.
