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: Rod O. <rod...@us...> - 2009-05-19 18:20:32
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25021/src/console Modified Files: CommandWindow.f Log Message: Rod: KeysOn flag is now off all the time unless the commandline is being edited. AutoScroll removed from GoToXY. Mouse clicks ignored unless the commandline is being edited - this also caused crashes in taskdemo.f while the tasks were running. Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** CommandWindow.f 15 May 2009 18:38:37 -0000 1.27 --- CommandWindow.f 19 May 2009 18:20:24 -0000 1.28 *************** *** 641,644 **** --- 641,645 ---- : On_Track ( h m -- h m ) + KeysOn not ?exit MouseX MouseY GetColRow 2dup BeforeCommandLine StartBeforeCommandLine and >r *************** *** 667,670 **** --- 668,672 ---- : On_Click ( h m w -- h m w ) + KeysOn not ?exit MK_SHIFT and IF On_Track *************** *** 676,680 **** ; ! : On_Unclick ( h m w -- h m w ) Call ReleaseCapture drop ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 678,684 ---- ; ! : On_Unclick ( h m w -- h m w ) ! KeysOn not ?exit ! Call ReleaseCapture drop ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 792,796 **** UpdateScrollRange: self scp ! AutoScroll: self XYAddress to XYA ;M --- 796,800 ---- UpdateScrollRange: self scp ! \ AutoScroll: self ( best not to scroll every time GOTOXY is used ) XYAddress to XYA ;M *************** *** 823,827 **** : On_DblClick ( h m w -- h m w ) \ insert double-clicked word in commandline ! ?shift ?exit SelStartCol SelStartRow OnCommandLine ?exit SelStartCol SelStartRow RowAddress + --- 827,831 ---- : On_DblClick ( h m w -- h m w ) \ insert double-clicked word in commandline ! KeysOn not ?shift or ?exit SelStartCol SelStartRow OnCommandLine ?exit SelStartCol SelStartRow RowAddress + *************** *** 952,955 **** --- 956,960 ---- ShowCaret: self \ does no harm but prevents loss of caret with lengthy text in buffer InitHistory + KeysOn: self \ KeysOn only during prompt ;M *************** *** 960,963 **** --- 965,969 ---- XYAddress to XYA false to editing + KeysOff: self \ KeysOff when not editing commandline ExecuteCommand \ -1 to CommandStart |
|
From: Rod O. <rod...@us...> - 2009-05-19 18:05:26
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23746/src/console Modified Files: NewConsole.f Log Message: Rod: KeysOn flag is now off all the time unless the commandline is being edited. (Key strokes are sent to the key buffer for type ahead) This was causing a crash in taskdemo.f if a key was pressed while the tasks were going. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** NewConsole.f 27 Dec 2008 16:07:38 -0000 1.33 --- NewConsole.f 19 May 2009 18:05:13 -0000 1.34 *************** *** 190,197 **** : c_type ( a n -- ) - KeysOff: cmd \ send key strokes to key buffer OverwriteTextAtXY: cmd PauseForMessages - KeysOn: cmd ; --- 190,195 ---- *************** *** 236,240 **** PauseForMessages \ Winpause KeyBufferEmpty: cmd not ! KeysOn: cmd ; : c_key ( -- c ) \ keys from WM_KEYDOWN as well --- 234,238 ---- PauseForMessages \ Winpause KeyBufferEmpty: cmd not ! ; : c_key ( -- c ) \ keys from WM_KEYDOWN as well |
|
From: Rod O. <rod...@us...> - 2009-05-19 17:55:24
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23194/src Modified Files: Utils.f Log Message: Rod: put SCROLLTOVIEW back in pause-seconds removed it from _MS which was causing too much updating of the scrollbar in taskdemo.f Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** Utils.f 23 Jan 2009 16:27:54 -0000 1.25 --- Utils.f 19 May 2009 17:54:54 -0000 1.26 *************** *** 490,496 **** \ September 17th, 2003 - 10:38 dbu : _MS ( u -- ) \ delay u milli-seconds or forever if u=-1. ! dup Call Sleep drop ! IF SCROLLTOVIEW THEN \ update the console after a delay ! ; ' _MS IS MS --- 490,494 ---- \ September 17th, 2003 - 10:38 dbu : _MS ( u -- ) \ delay u milli-seconds or forever if u=-1. ! Call Sleep drop ; ' _MS IS MS *************** *** 513,516 **** --- 511,515 ---- : pause-seconds ( n1 -- ) cr ." Delaying: " dup . ." seconds, press a key to HOLD " + SCROLLTOVIEW 30 min 1 max 10 * 0 ?do 100 ms |
|
From: Rod O. <rod...@us...> - 2009-05-15 18:38:45
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv12829/src/console Modified Files: CommandWindow.f Log Message: Rod: On_Paint only draws visible text, ScrollRange is calculated as text is added, UpdateScrollRange: used less. Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** CommandWindow.f 21 Dec 2008 19:04:39 -0000 1.26 --- CommandWindow.f 15 May 2009 18:38:37 -0000 1.27 *************** *** 40,43 **** --- 40,45 ---- int lines \ number of rows of text int TextZero \ address of terminating zero + int FirstRow \ index of first row partially visible + int FirstRowAddress \ address of text for first row : LastRowAddress ( -- a ) TextZero dup text - 10 -scan drop 1 10 skip drop ; *************** *** 179,182 **** --- 181,186 ---- Rectangle ScrollPage \ ( 0 0 HPage VPage ) set from GetClientRect Rectangle ScrollPos \ ( -HPos -VPos 0 0 ) used by DT_NOCLIP DrawText + Rectangle ScrollPosRel \ ( -HPos -VPos 0 0 ) ScrollPos for first row to be drawn + int ScrollRangeHMax int HorzLine int VertLine *************** *** 253,256 **** --- 257,262 ---- ;M + :M FirstPartialRow: ( -- n ) ScrollPos.Top negate VertLine / ;M \ number of first row partially visible + :M FirstVisibleRow: ( -- n ) ScrollPos.Top negate VertLine + 1- VertLine / ;M \ number of first row completely visible *************** *** 287,290 **** --- 293,302 ---- ;M + : UpdateRectangle ( l t r b f -- ) >r SetRect: UpdateRect r> UpdateRect InvalidateRect: self ; + + : UpdateScrollPosRel ( -- ) ScrollPos ScrollPosRel 16 move FirstRow Vertline * ScrollPosRel 4 + +! ; + + : UpdateFirstRow ( -- ) FirstPartialRow: self to FirstRow FirstRow RowAddress to FirstRowAddress ; + : VScroll ( n -- ) Bottom: ScrollPage Bottom: ScrollRange <= and ?dup *************** *** 292,298 **** Top: ScrollPos negate min Bottom: ScrollPage Bottom: ScrollRange - Top: ScrollPos - max ! dup ScrollPos 4 + +! 0 swap Scroll: self ! \ Update: self UpdateVScroll: self THEN ; --- 304,312 ---- Top: ScrollPos negate min Bottom: ScrollPage Bottom: ScrollRange - Top: ScrollPos - max ! dup ScrollPos 4 + +! 0 over Scroll: self ! dup 0> IF >r 0 0 width r> true UpdateRectangle ELSE drop THEN UpdateVScroll: self + UpdateFirstRow + UpdateScrollPosRel THEN ; *************** *** 321,326 **** Right: ScrollRange - Left: ScrollPos - max dup ScrollPos +! 0 Scroll: self - \ Update: self UpdateHScroll: self THEN ; --- 335,340 ---- Right: ScrollRange - Left: ScrollPos - max dup ScrollPos +! 0 Scroll: self UpdateHScroll: self + UpdateScrollPosRel THEN ; *************** *** 434,439 **** ; - : UpdateRectangle ( l t r b f -- ) >r SetRect: UpdateRect r> UpdateRect InvalidateRect: self ; - :M UpdatePoint: ( -- ) 0 0 1 1 false UpdateRectangle Update: self ;M \ force a paint --- 448,451 ---- *************** *** 499,503 **** DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or \ ScrollPos -1 Text GetHandle: dc call DrawTextEx drop ! ScrollPos TextZero Text - Text GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any --- 511,516 ---- DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or \ ScrollPos -1 Text GetHandle: dc call DrawTextEx drop ! \ ScrollPos TextZero Text - Text GetHandle: dc call DrawTextEx drop ! ScrollPosRel TextZero FirstRowAddress - FirstRowAddress GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any *************** *** 524,532 **** ;M ! :M UpdateScrollRange: ( -- ) \ Added to prevent deadlocks when called by other tasks ! \ Calculate the size of the text and update ScrollRange DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or \ ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines ! ScrollRange TextZero Text - Text GetHandle: mdc call DrawTextEx VertLine / to lines ;M --- 537,546 ---- ;M ! :M UpdateScrollRange: ( -- ) \ Calculate the size of the text and update ScrollRange ! \ using all the lines of text and updating number of lines DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or \ ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines ! ScrollRange TextZero Text - Text GetHandle: mdc call DrawTextEx VertLine / to lines ! ScrollRange 8 + @ to ScrollRangeHMax ;M *************** *** 726,729 **** --- 740,744 ---- XYA over 2dup 13 scan nip - >r over 2dup 0 scan nip - r> min r@ min ReplaceText: self X Y r@ +to XYA r> +to X X Y false UpdateRange + X Y ColRow>xy drop right: ScrollRange max ScrollRange 8 + ! ;M *************** *** 741,745 **** 0 to X 1 +to Y DeleteLine: self \ no need to update this ! \ ScrollRangeChanged? IF UpdateScrollRange: self THEN scp AutoScroll: self --- 756,761 ---- 0 to X 1 +to Y DeleteLine: self \ no need to update this ! 1 +to lines ! ScrollRange 12 + @ VertLine + ScrollRange 12 + ! scp AutoScroll: self *************** *** 758,763 **** WHILE CR: self /string 1 /string 10 skip REPEAT 3drop - ScrollRangeChanged? IF UpdateScrollRange: self THEN - \ AutoScroll: self ;M --- 774,777 ---- *************** *** 787,790 **** --- 801,807 ---- 0 to CommandStart 0 to #chars text to XYA text to TextZero + text to FirstRowAddress + 0 to FirstRow + UpdateScrollPosRel EraseRect: ScrollRange Redraw: self *************** *** 1237,1240 **** --- 1254,1259 ---- 8 to HorzLine 13 to VertLine + 0 to FirstRow + 0 to ScrollRangeHMax Black to ForegroundColour White to BackgroundColour *************** *** 1257,1260 **** --- 1276,1281 ---- UpdateVScroll: self UpdateHScroll: self + UpdateFirstRow + UpdateScrollPosRel ;M |
|
From: Yu H. <win...@li...> - 2009-05-15 12:08:51
|
Hit products from all spheres of disease preventing! Time to buy such products online http://www.feope.com |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:56:35
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1687/apps/Win32ForthIDE Modified Files: Main.f Log Message: Bug fixes . Couple minor enhancements. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** Main.f 19 Apr 2009 07:26:06 -0000 1.63 --- Main.f 10 May 2009 03:56:28 -0000 1.64 *************** *** 79,82 **** --- 79,89 ---- 2 constant VERT_SPLIT + Color: WHITE value back-color \ default font background color + Color: BLACK value fore-color \ default font color + Color: WHITE value caret-backcolor \ current line color + Color: LTGRAY value select-backcolor \ selection background color + Color: BLACK value select-forecolor \ selection font color + Color: BLACK value browse-forecolor \ browse mode foreground color + Color: LTGRAY value browse-backcolor \ browse mode background color defer Compile-File ' beep is Compile-File *************** *** 136,139 **** --- 143,151 ---- Font TabFont + : GetFileTabChild ( ndx -- child ) \ ndx must be valid + TCIF_PARAM IsMask: OpenFilesTab + GetTabInfo: OpenFilesTab + LParam: OpenFilesTab ; + : AddFileTab ( -- ) z" <Untitled>" IsPsztext: OpenFilesTab *************** *** 144,159 **** Resize: MainWindow ; : UpdateFileTab ( -- ) ! ActiveChild 0= ?exit ! GetHandle: OpenFilesTab Call IsWindow 0= ?exit ! \ GetFileName: ActiveChild count "TO-PATHEND" asciiz IsPsztext: OpenFilesTab ! \ TCIF_TEXT IsMask: OpenFilesTab ! \ GetSelectedTab: OpenFilesTab SetTabInfo: OpenFilesTab ! \ we have to refresh all tabs since for some reason the above doesn't work well ! GetTabCount: OpenFilesTab dup 0> ! if 1+ 0 ! do TCIF_PARAM IsMask: OpenFilesTab ! i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab ?dup if dup GetFileName: [ ] count rot ActiveCoder <> \ we prefer the full name for this one --- 156,169 ---- Resize: MainWindow ; + : TabFile? ( -- n ) \ n=#open files | 0 + GetTabCount: OpenFilesTab dup 0> ?exit + drop 0 ; + : UpdateFileTab ( -- ) ! ActiveChild 0= ?exit ! Gethandle: OpenFilesTab Call IsWindow 0= ?exit ! TabFile? ?dup ! if 0 ! do i GetFileTabChild ?dup if dup GetFileName: [ ] count rot ActiveCoder <> \ we prefer the full name for this one *************** *** 161,182 **** then dup 0= if 2drop s" <Untitled>" ! then asciiz ! IsPsztext: OpenFilesTab TCIF_TEXT IsMask: OpenFilesTab i SetTabInfo: OpenFilesTab then loop - else drop then ; : OnTabChanged ( l obj-- ) 2drop ! TCIF_PARAM IsMask: OpenFilesTab ! GetSelectedTab: OpenFilesTab GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab OnSelect false ; ' OnTabChanged IsChangeFunc: OpenFilestab : ShowFileTab ( -- ) ! GetTabCount: OpenFilesTab dup 0> ! if 1+ 0 do TCIF_PARAM IsMask: OpenFilesTab i GetTabInfo: OpenFilesTab --- 171,189 ---- then dup 0= if 2drop s" <Untitled>" ! then asciiz IsPsztext: OpenFilesTab TCIF_TEXT IsMask: OpenFilesTab i SetTabInfo: OpenFilesTab then loop then ; : OnTabChanged ( l obj-- ) 2drop ! GetSelectedTab: OpenFilesTab GetFileTabChild ! OnSelect false ; ' OnTabChanged IsChangeFunc: OpenFilestab : ShowFileTab ( -- ) ! TabFile? ?dup ! if 0 do TCIF_PARAM IsMask: OpenFilesTab i GetTabInfo: OpenFilesTab *************** *** 185,203 **** then loop - else drop then ; : DeleteFileTab { ThisChild -- } ! TCIF_PARAM IsMask: OpenFilesTab ! GetTabCount: OpenFilesTab dup 0> ! if 1+ 0 ! do i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab ThisChild = if i DeleteTab: OpenFilesTab leave then loop - else drop then ; : control-key? ( -- f ) \ console not available in IDE so ?control doesn't work VK_CONTROL Call GetKeyState 0x8000 and ; --- 192,260 ---- then loop then ; : DeleteFileTab { ThisChild -- } ! TabFile? ?dup ! if 0 ! do i GetFileTabChild ThisChild = if i DeleteTab: OpenFilesTab leave then loop then ; + 0 value tab-index \ tab which was right clicked + + : CloseTabFile ( ndx -- ) + GetFileTabChild dup ActiveChild = + if drop IDM_CLOSE DoCommand + else GetHandle: [ ] CloseChild: MainWindow + then update ; + + : CloseSelectedTabFile ( -- ) + tab-index CloseTabFile update ; + + + : CloseTabsRight ( -- ) + Begin tab-index 1+ GetTabCount: OpenfilesTab < + while tab-index 1+ CloseTabFile + Repeat ; + + : CloseTabsLeft ( -- ) + Begin -1 +to tab-index + tab-index 0 >= + While tab-index CloseTabFile + Repeat ; + + : CompileTabFile ( -- ) + tab-index GetFileTabChild >r + GetFileType: [ r@ ] FT_SOURCE = + if Compile: [ r@ ] + then r>drop ; + + + PopupBar TabPopup + + Popup "" + MenuItem "Close" CloseSelectedTabFile ; + MenuSeparator + :MenuItem mnucar "Close all files to right" CloseTabsRight ; + :MenuItem mnucal "Close all files to left" CloseTabsLeft ; + MenuSeparator + :MenuItem mnucmp "Compile" CompileTabFile ; + EndBar + + : check-menu-funcs ( -- ) + GetTabCount: OpenFilesTab 1- tab-index > Enable: mnucar + tab-index 0> Enable: mnucal + tab-index GetFileTabChild GetFileType: [ ] FT_SOURCE = Enable: mnucmp ; + + : Handle_TabRightClick { \ htinfo -- } + GetHandle: OpenFilesTab get-mouse-xy swap pad 2! + pad 0 TCM_HITTEST GetHandle: OpenFilesTab Call SendMessage + dup to tab-index -1 <> + if check-menu-funcs + GetHandle: Mainwindow dup get-mouse-xy rot Track: TabPopup + then ; + : control-key? ( -- f ) \ console not available in IDE so ?control doesn't work VK_CONTROL Call GetKeyState 0x8000 and ; *************** *** 641,644 **** --- 698,702 ---- show-form-tab \ show the form designer whether detached or not Adjust-Monitor + TabPopup SetPopupBar: self Update show-project-tab \ always default *************** *** 691,695 **** if w l Handle_Notify: ControlToolbar else r@ GetHandle: OpenFilesTab = ! if w l Handle_Notify: OpenFilesTab else false then --- 749,756 ---- if w l Handle_Notify: ControlToolbar else r@ GetHandle: OpenFilesTab = ! if l GetNotifyCode NM_RCLICK = ! if Handle_TabRightClick false ! else w l Handle_Notify: OpenFilesTab ! then else false then *************** *** 990,994 **** \ Window class for optional means of adding code to forms \ Allows the full power of the IDE editor to be used when adding code to forms ! :Class CodeChild <Super HyPerEditorChild max-path 2 + bytes FileName --- 1051,1055 ---- \ Window class for optional means of adding code to forms \ Allows the full power of the IDE editor to be used when adding code to forms ! :Class CodeChild <Super HyperEditorChild max-path 2 + bytes FileName *************** *** 1017,1024 **** CodeFlag case ! 1 of s" Global" endof ! 2 of s" Local" endof ! 3 of s" OnInit" endof ! 4 of GetName: CurrentControl endof s" " rot endcase --- 1078,1085 ---- CodeFlag case ! FLAG_GLOBAL of s" Global" endof ! FLAG_LOCAL of s" Local" endof ! FLAG_ONINIT of s" OnInit" endof ! FLAG_CODE of GetName: CurrentControl endof s" " rot endcase *************** *** 1033,1048 **** CodeFlag case ! 1 of GlobalCode: CurrentForm ! GetGlobalCursorPos: CurrentForm to pos ! endof ! 2 of LocalCode: CurrentForm ! GetLocalCursorPos: CurrentForm to pos ! endof ! 3 of OnInitCode: CurrentForm ! GetOnInitCursorPos: CurrentForm to pos ! endof ! 4 of ControlCode: CurrentControl ! GetCursorPos: CurrentControl to pos ! endof 0 to pos false swap endcase ( addr ) dup 0= --- 1094,1109 ---- CodeFlag case ! FLAG_GLOBAL of GlobalCode: CurrentForm ! GetGlobalCursorPos: CurrentForm to pos ! endof ! FLAG_LOCAL of LocalCode: CurrentForm ! GetLocalCursorPos: CurrentForm to pos ! endof ! FLAG_ONINIT of OnInitCode: CurrentForm ! GetOnInitCursorPos: CurrentForm to pos ! endof ! FLAG_CODE of ControlCode: CurrentControl ! GetCursorPos: CurrentControl to pos ! endof 0 to pos false swap endcase ( addr ) dup 0= *************** *** 1065,1080 **** CodeFlag case ! 1 of pos SetGlobalCursorPos: CurrentForm ! GlobalCode: CurrentForm ! endof ! 2 of pos SetLocalCursorPos: CurrentForm ! LocalCode: CurrentForm ! endof ! 3 of pos SetOnInitCursorPos: CurrentForm ! OnInitCode: CurrentForm ! endof ! 4 of pos SetCursorPos: CurrentControl ! ControlCode: CurrentControl ! endof false swap endcase ( addr ) ?dup --- 1126,1141 ---- CodeFlag case ! FLAG_GLOBAL of pos SetGlobalCursorPos: CurrentForm ! GlobalCode: CurrentForm ! endof ! FLAG_LOCAL of pos SetLocalCursorPos: CurrentForm ! LocalCode: CurrentForm ! endof ! FLAG_ONINIT of pos SetOnInitCursorPos: CurrentForm ! OnInitCode: CurrentForm ! endof ! FLAG_CODE of pos SetCursorPos: CurrentControl ! ControlCode: CurrentControl ! endof false swap endcase ( addr ) ?dup *************** *** 1104,1108 **** ;M ! :M On_Close: ( -- ) On_Close: super dup if 0 to ActiveCoder --- 1165,1169 ---- ;M ! :M On_Close: ( -- f ) On_Close: super dup if 0 to ActiveCoder |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:55:45
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1629/apps/Win32ForthIDE Modified Files: ScintillaMDI.f Log Message: Bug fixes . Couple minor enhancements. Index: ScintillaMDI.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ScintillaMDI.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** ScintillaMDI.f 10 Apr 2009 16:46:26 -0000 1.11 --- ScintillaMDI.f 10 May 2009 03:55:41 -0000 1.12 *************** *** 76,81 **** :M SetColors: { fore back -- } ! STYLE_DEFAULT fore StyleSetFore: ChildWindow ! STYLE_DEFAULT back StyleSetBack: ChildWindow \ the following two lines work but unfortunately breaks colorizing \ 0 0 SCI_STYLECLEARALL GetHandle: ChildWindow send-window --- 76,82 ---- :M SetColors: { fore back -- } ! STYLE_DEFAULT fore StyleSetFore: ChildWindow ! STYLE_DEFAULT back StyleSetBack: ChildWindow ! SCE_FORTH_DEFAULT fore StyleSetFore: ChildWindow \ the following two lines work but unfortunately breaks colorizing \ 0 0 SCI_STYLECLEARALL GetHandle: ChildWindow send-window |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:55:12
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1560/apps/Win32ForthIDE Modified Files: ProjectWindow.f Log Message: Bug fixes . Couple minor enhancements. Index: ProjectWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ProjectWindow.f 10 Apr 2009 16:49:34 -0000 1.4 --- ProjectWindow.f 10 May 2009 03:55:03 -0000 1.5 *************** *** 27,37 **** \ * **************************************************************************** - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ the Project Treeview control - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - needs ProjectTree.f - needs joinstr.f - \ adapted from -scan CODE -LSCAN ( addr len long -- addr' len' ) \ Scan for cell "long" BACKWARDS starting --- 27,30 ---- *************** *** 54,64 **** create abort$ 6 c, 'a' c, 'b' c, 'o' c, 'r' c, 't' c, '"' c, ! create squote$ 2 c, 's' c, '"' c, create dotquote$ 2 c, '.' c, '"' c, create cquote$ 2 c, 'c' c, '"' c, ! create zquote$ 2 c, 'z' c, '"' c, create commaquote$ 2 c, ',' c, '"' c, create zcommaquote$ 3 c, 'z' c, ',' c, '"' c, :object ManagerWindow <Super ProjectTreeViewControl --- 47,82 ---- create abort$ 6 c, 'a' c, 'b' c, 'o' c, 'r' c, 't' c, '"' c, ! \ create squote$ 2 c, 's' c, '"' c, create dotquote$ 2 c, '.' c, '"' c, create cquote$ 2 c, 'c' c, '"' c, ! \ create zquote$ 2 c, 'z' c, '"' c, create commaquote$ 2 c, ',' c, '"' c, create zcommaquote$ 3 c, 'z' c, ',' c, '"' c, + Label lblInfo1 + Label lblInfo2 + PushButton btnTrack + PushButton btnGoto + s" Press control to toggle single click file open" BInfo: btnGoto place + StatusBar NavigatorBar + String: curfilename + String: currentname + String: lastword$ + String: parentclass \ parent class or object of method + -1 value markerhandle + 0 value TheNavigator + 0 value nav-linecount \ navigator line count + + defer OpenSource + defer auto-showfile + false value goto-on-click? + + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ the Project Treeview control + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + needs ProjectTree.f + needs joinstr.f + :object ManagerWindow <Super ProjectTreeViewControl *************** *** 77,96 **** ;object - Label lblInfo1 - Label lblInfo2 - PushButton btnTrack - PushButton btnGoto - s" Press control to toggle single click file open" BInfo: btnGoto place - StatusBar NavigatorBar - create curfilename max-path allot - create currentname max-path allot - -1 value markerhandle - create lastword$ 0 , max-path allot - create parentclass 0 , max-path allot \ parent class or object of method - - defer OpenSource - defer auto-showfile - false value goto-on-click? - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Tree Item object \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 95,98 ---- *************** *** 210,223 **** 0 value SelectedItem 256 constant _grand-id ! 0 value hash-table \ points to table of hash values, we will use the pointer bufferaddr ! buffermax 2/ constant hash-table-size \ ( 64k ) ! hash-table-size cell / constant max-hash-items ( 16k ) ! 0 value hash-table-mirror \ points to table of child items ! hash-table-size Pointer GrandChildList enum: _colon _code _value _variable _constant _method _class _object _create _int _bytes _short ! _dint _byte _2value _fvariable _fconstant _fvalue _defer _setcommand ; \ enumerate parent ids --- 212,227 ---- 0 value SelectedItem 256 constant _grand-id ! 0 value hash-table \ points to table of hash values ! 0 value hash-table-mirror \ points to table of child items ! 128 1024 * cell+ ( length cell ) constant hash-table-size \ ( 128k ) ! hash-table-size cell / 1- constant max-hash-items ( 32k ) ! hash-table-size Pointer GrandChildList \ instance items to be disposed enum: _colon _code _value _variable _constant _method _class _object _create _int _bytes _short ! _dint _byte _2value _fvariable _fconstant _fvalue ! _defer _setcommand _user _string _record ! ; \ enumerate parent ids *************** *** 260,266 **** Handle: ThisList to hParent TVI_LAST to hInsertAfter GetName: ThisItem to pszText ThisItem to lparam ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or ] literal to mask tvitem->tvins InsertItem: Self IsHandle: ThisItem ; --- 264,272 ---- Handle: ThisList to hParent TVI_LAST to hInsertAfter + 2 to iImage + 2 to iSelectedImage GetName: ThisItem to pszText ThisItem to lparam ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask tvitem->tvins InsertItem: Self IsHandle: ThisItem ; *************** *** 269,273 **** hash-table @ max-hash-items >= abort" Hash buffer full!" new$ >r ! str cnt 2dup bl scan nip - \ remove appended parent name if neceesary r@ place r@ count lower \ case insensitive --- 275,279 ---- hash-table @ max-hash-items >= abort" Hash buffer full!" new$ >r ! str cnt 2dup bl scan nip - \ remove appended parent name if necessary r@ place r@ count lower \ case insensitive *************** *** 284,288 **** code-id isItemID: ThisItem source islinetext: ThisItem ! #linecount islinenumber: ThisItem markerhandle ismarkerhandle: ThisItem curfilename count isfilename: ThisItem --- 290,294 ---- code-id isItemID: ThisItem source islinetext: ThisItem ! nav-linecount islinenumber: ThisItem markerhandle ismarkerhandle: ThisItem curfilename count isfilename: ThisItem *************** *** 331,335 **** ( lparam) to lparam getname: lparam to pszText ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or ] LITERAL to mask TVIS_BOLD dup to state to statemask tvitem->tvins --- 337,343 ---- ( lparam) to lparam getname: lparam to pszText ! 0 to iImage ! 1 to iSelectedImage ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask TVIS_BOLD dup to state to statemask tvitem->tvins *************** *** 362,368 **** Handle: CurrentChild to hParent TVI_LAST to hInsertAfter GetName: ThisGrandChild to pszText ThisGrandChild to lparam ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or ] literal to mask tvitem->tvins InsertItem: Self IsHandle: ThisGrandChild --- 370,378 ---- Handle: CurrentChild to hParent TVI_LAST to hInsertAfter + 2 to iImage + 2 to iSelectedImage GetName: ThisGrandChild to pszText ThisGrandChild to lparam ! [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask tvitem->tvins InsertItem: Self IsHandle: ThisGrandChild *************** *** 376,380 **** code-id isItemID: ThisGrandChild source islinetext: ThisGrandChild ! #linecount islinenumber: ThisGrandChild markerhandle ismarkerhandle: ThisGrandChild curfilename count isfilename: ThisGrandChild --- 386,390 ---- code-id isItemID: ThisGrandChild source islinetext: ThisGrandChild ! nav-linecount islinenumber: ThisGrandChild markerhandle ismarkerhandle: ThisGrandChild curfilename count isfilename: ThisGrandChild *************** *** 395,401 **** _grand-id to code-id in-definition? not ! if bl word count ?dup \ likely it's an instance if a name follows ! if currentname place ! else drop then then --- 405,413 ---- _grand-id to code-id in-definition? not ! if itemid: CurrentChild _class = ! if bl word count ?dup \ likely it's an instance if a name follows ! if currentname place ! else drop ! then then then *************** *** 404,412 **** : init-hash-tables ( -- ) ! BufferAddress to hash-table \ use this as it is available ! hash-table hash-table-size + to hash-table-mirror hash-table off hash-table-mirror off ; : search-hash-table { hash-val -- addr flag } hash-table lcount dup>r 1- 0max cells+ r> hash-val -lscan --- 416,431 ---- : init-hash-tables ( -- ) ! hash-table-size malloc to hash-table hash-table off + hash-table-size malloc to hash-table-mirror hash-table-mirror off ; + :M UnInit: ( -- ) + hash-table ?dup + if release 0 to hash-table + then hash-table-mirror ?dup + if release 0 to hash-table-mirror + then ;M + : search-hash-table { hash-val -- addr flag } hash-table lcount dup>r 1- 0max cells+ r> hash-val -lscan *************** *** 414,421 **** : searchLists { str cnt -- } ! new$ >r ! str cnt r@ place ! r@ count lower ! r> count method-hash search-hash-table if hash-table cell+ - \ calculate offset hash-table-mirror cell+ + @ to CurrentChild --- 433,437 ---- : searchLists { str cnt -- } ! str cnt method-hash search-hash-table if hash-table cell+ - \ calculate offset hash-table-mirror cell+ + @ to CurrentChild *************** *** 469,475 **** --- 485,519 ---- _classes_ s" Objects & Classes" new> treelinked-list to ClassesList ; + int hwndimage + + : CreateImageList ( -- ) \ create image list for treeview control + 8 \ maximum images + 7 \ number of images to use + ILC_COLOR4 \ color depth + 18 16 \ bitmap size height,width + Call ImageList_Create to hwndimage ; + + : AddImages { \ ptreebmp -- } + hwndimage 0= ?exit \ we don't have any + ImageList usebitmap \ create bitmap handle + GetDc: self dup>r CreateDIBitmap to ptreebmp + r> ReleaseDc: self + ptreebmp \ was it successful? + if NULL \ no overlay image list + ptreebmp + hwndimage + Call ImageList_Add -1 = s" Add images failed!" ?messagebox + ptreebmp Call DeleteObject drop \ discard, windows has a copy + then ; + + : RegisterList ( -- ) \ register imagelist with this treeview control + hwndimage ?dup 0= ?exit + TVSIL_NORMAL SetImageList: self ; :M Start: ( parent -- ) Start: Super + CreateImageList + AddImages + RegisterList CreateTree AddParentLists *************** *** 478,481 **** --- 522,529 ---- :M Close: ( -- ) DisposeLists + hwndimage ?dup + if Call ImageList_Destroy drop + 0 to hwndimage + then Close: Super ;M *************** *** 502,507 **** --- 550,558 ---- _fvalue of s" Float value" endof _fconstant of s" Float constant" endof + _user of s" User variable" endof _defer of s" Deferred word" endof _setcommand of s" DoCommand vector" endof + _string of s" String variable" endof + _record of s" Record structure" endof _grand-id of s" References " new$ dup>r place GetName$: [ ParentItem: SelectedItem ] *************** *** 544,548 **** :M Clear: ( -- ) TVI_ROOT DeleteItem: Self drop ! GrandChildList off DisposeLists CreateTree --- 595,599 ---- :M Clear: ( -- ) TVI_ROOT DeleteItem: Self drop ! \ GrandChildList off DisposeLists CreateTree *************** *** 611,615 **** \ is may be found in s" strings, typically found only in definitions. \ But ['] <name> is <deferred word> wouldn't be found either! ! in-definition? ?exit bl word dup c@ 0= if drop exit then \ forget it! count currentname place --- 662,666 ---- \ is may be found in s" strings, typically found only in definitions. \ But ['] <name> is <deferred word> wouldn't be found either! ! \ in-definition? ?exit bl word dup c@ 0= if drop exit then \ forget it! count currentname place *************** *** 621,634 **** then ; - max-path bytes ThisWord \ primarily to keep case of enum constants - \ some quoted string words - : skip-" ( -- ) - '"' parse 2drop ; - : ?add-word ( a -- ) comment? if drop exit then Case s" :" "of _colon add-code EndOf ! s" :code" "of _code add-code EndOf s" ;" "of false to in-definition? false to in-enum? EndOf --- 672,680 ---- then ; : ?add-word ( a -- ) comment? if drop exit then Case s" :" "of _colon add-code EndOf ! s" code" "of _code add-code EndOf s" ;" "of false to in-definition? false to in-enum? EndOf *************** *** 642,646 **** s" ;object" "of not-in-class EndOf s" :m" "of add-method EndOf ! s" is" "of add-defer EndOf s" ;m" "of false to in-definition? EndOf s" value" "of _value add-data EndOf --- 688,692 ---- s" ;object" "of not-in-class EndOf s" :m" "of add-method EndOf ! s" defer" "of add-defer EndOf s" ;m" "of false to in-definition? EndOf s" value" "of _value add-data EndOf *************** *** 648,655 **** --- 694,703 ---- s" constant" "of _constant add-data EndOf s" create" "of _create add-data EndOf + s" string:" "of _string add-data EndOF s" 2value" "of _2value add-data EndOf s" fvalue" "of _fvalue add-data EndOf s" fvariable" "of _fvariable add-data EndOf s" fconstant" "of _fconstant add-data EndOf + s" newuser" "of _user add-data EndOf s" int" "of in-class? if _int add-data then EndOf *************** *** 662,681 **** s" dint" "of in-class? if _dint add-data then EndOf s" enum:" "of in-definition? not to in-enum? EndOf s" setcommand" "of lastword$ uppercase count ! currentname place \ any vector tables _setcommand to code-id data-add EndOF s" :noname" "of true to in-definition? EndOf abort$ count "of skip-" EndOf ! squote$ count "of skip-" EndOf dotquote$ count "of skip-" EndOf cquote$ count "of skip-" EndOF ! zquote$ count "of skip-" EndOF commaquote$ count "of skip-" EndOF zcommaquote$ count "of skip-" EndOf ! s" {" "of '}' parse 2drop EndOF ! in-enum? if drop ThisWord count currentname place _constant to code-id data-add --- 710,732 ---- s" dint" "of in-class? if _dint add-data then EndOf + s" record:" "of in-class? + if _record add-data then EndOF s" enum:" "of in-definition? not to in-enum? EndOf s" setcommand" "of lastword$ uppercase count ! currentname place \ uppercase any vector tables _setcommand to code-id data-add EndOF s" :noname" "of true to in-definition? EndOf abort$ count "of skip-" EndOf ! squote count "of skip-" EndOf dotquote$ count "of skip-" EndOf cquote$ count "of skip-" EndOF ! zquote count "of skip-" EndOF commaquote$ count "of skip-" EndOF zcommaquote$ count "of skip-" EndOf ! s" {" "of '}' parse 2drop EndOF \ ignore locals ! in-enum? if count pad place \ uppercase enumerated constants ! pad uppercase count currentname place _constant to code-id data-add *************** *** 690,693 **** --- 741,747 ---- ; + :M AddWord: ( addr -- ) \ for when building a project + ?add-word ;M + \ // -- -1 \S \ ( 1 ) *************** *** 703,707 **** : build-NavigatorTree ( -- ) ! bl word dup count 2dup ThisWord place lower dup c@ IF Case --- 757,761 ---- : build-NavigatorTree ( -- ) ! bl word dup count lower dup c@ IF Case *************** *** 709,715 **** s" //" "of \comment EndOf s" --" "of \comment EndOf ! \ this next one causes some words to be missed when tracking, e.g the : in some sources, ! \ so we simply skip the rest of the line ! s" .(" "of \comment EndOF s" \s" "of -1 +Comment EndOf s" (" "of 1 +Comment EndOf --- 763,767 ---- s" //" "of \comment EndOf s" --" "of \comment EndOf ! s" .(" "of ')' parse 2drop EndOF s" \s" "of -1 +Comment EndOf s" (" "of 1 +Comment EndOf *************** *** 732,746 **** : .trackmessage ( fname cnt -- ) ! s" Tracking " pad place ! "to-pathend" pad +place ! s" ..." pad +place ! pad count SetText: lblInfo1 ; :M TrackCode: ( fname cnt -- ) curfilename place curfilename c@ 0= ?exitm ! curfilename count .trackmessage false to comment? ! 0 to #linecount curfilename count "open if drop exitm --- 784,798 ---- : .trackmessage ( fname cnt -- ) ! join$( s" Tracking " ! curfilename count "to-pathend" ! s" ..." ! )join$ count SetText: lblInfo1 ; :M TrackCode: ( fname cnt -- ) curfilename place curfilename c@ 0= ?exitm ! .trackmessage false to comment? ! 0 to nav-linecount curfilename count "open if drop exitm *************** *** 750,758 **** new$ (source) cell+ ! refill ! if 1 +to #linecount then begin more? dup 0= if drop refill dup ! if 1 +to #linecount \ bump line count then then --- 802,810 ---- new$ (source) cell+ ! refill ! if 1 +to nav-linecount then begin more? dup 0= if drop refill dup ! if 1 +to nav-linecount \ bump line count then then *************** *** 793,796 **** --- 845,849 ---- self Start: NavigatorTree + NavigatorTree to TheNavigator self Start: btnTrack *************** *** 861,865 **** then loop Handle: [ MainList: NavigatorTree ] ExpandItem: NavigatorTree ! ; \ IDM_BUILD_CODE_TREE SetCommand : Track-Opened-Files { \ ThisFile -- } --- 914,918 ---- then loop Handle: [ MainList: NavigatorTree ] ExpandItem: NavigatorTree ! UnInit: NavigatorTree ; \ IDM_BUILD_CODE_TREE SetCommand : Track-Opened-Files { \ ThisFile -- } *************** *** 874,878 **** then then ! loop ; : BuildNavigatorTree { \ open? -- } --- 927,931 ---- then then ! loop UnInit: NavigatorTree ; : BuildNavigatorTree { \ open? -- } *************** *** 941,947 **** \ : selchange-func { lParam obj \ Parent -- false } ! \ This function es executed when the currently selected tab has changed. ! \ lParam is the adress of the Address of an NMHDR structure. ! \ obj is the address of the TabControl object that has send the \ notification message. GetParent: obj to Parent --- 994,1000 ---- \ : selchange-func { lParam obj \ Parent -- false } ! \ This function is executed when the currently selected tab has changed. ! \ lParam is the address of the Address of an NMHDR structure. ! \ obj is the address of the TabControl object that has sent the \ notification message. GetParent: obj to Parent |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:54:25
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1541/apps/Win32ForthIDE Modified Files: ProjectTree.f Log Message: Bug fixes . Couple minor enhancements. Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** ProjectTree.f 8 Sep 2008 03:07:10 -0000 1.23 --- ProjectTree.f 10 May 2009 03:54:17 -0000 1.24 *************** *** 179,187 **** \ \\\\\ The project tree-view control \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :class ProjectTreeViewControl <super TreeViewControl File ProjectFile - load-bitmap imagelist "treeimages.bmp" path: project-path-ptr --- 179,187 ---- \ \\\\\ The project tree-view control \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + load-bitmap imagelist "treeimages.bmp" :class ProjectTreeViewControl <super TreeViewControl File ProjectFile path: project-path-ptr *************** *** 908,911 **** --- 908,914 ---- Create fpathplus ,$ '"fpath+' + : skip-" ( -- ) + '"' parse 2drop ; + : "fpath+? ( -- ) \ if next word but one is "fpath+ then append to search path >in @ *************** *** 959,967 **** s" comment:" "of 16 +Comment false endof s" comment;" "of 16 -Comment false endof ! squote count "of "fpath+? needed-file? true to skip-recurse? endof ! zquote count "of LoadLibrary? true to skip-recurse? endof s" needs" "of true endof s" fload" "of true endof s" include" "of true endof s" sys-fload" "of true endof s" winlibrary" "of true to skip-recurse? true endof \ don't search .dll file --- 962,975 ---- s" comment:" "of 16 +Comment false endof s" comment;" "of 16 -Comment false endof ! squote count "of "fpath+? needed-file? dup 0= ! if skip-" \ if not needed file ! then true to skip-recurse? endof ! zquote count "of LoadLibrary? dup 0= ! if skip-" ! then true to skip-recurse? endof s" needs" "of true endof s" fload" "of true endof s" include" "of true endof + s" require" "of true endof s" sys-fload" "of true endof s" winlibrary" "of true to skip-recurse? true endof \ don't search .dll file *************** *** 970,974 **** s" load-bitmap" "of bl word drop true to skip-recurse? true endof \ skip bitmap name s" toolbar" "of bl word drop true to skip-recurse? true endof \ skip bitmap name ! ( default ) false swap EndCase comment? 0= and --- 978,982 ---- s" load-bitmap" "of bl word drop true to skip-recurse? true endof \ skip bitmap name s" toolbar" "of bl word drop true to skip-recurse? true endof \ skip bitmap name ! ( default ) AddWord: TheNavigator false dup EndCase comment? 0= and *************** *** 989,996 **** \ Given file name search for needed files ! : BuildNeededFiles { fname fcnt \ tmp$ -- } \ recursive routine false to comment? maxstring malloc to tmp$ ! fname fcnt "open if drop exit then source-ID >r to source-ID --- 997,1006 ---- \ Given file name search for needed files ! : BuildNeededFiles { fname fcnt \ tmp$ file$ -- } \ recursive routine false to comment? + 0 to nav-linecount maxstring malloc to tmp$ ! max-path malloc to file$ ! fname fcnt 2dup curfilename place "open if drop exit then source-ID >r to source-ID *************** *** 1001,1014 **** refill if 1 +to #linecount then begin more? dup 0= if drop refill dup ! if 1 +to #linecount \ bump line count then then while include-word? if is-file? ! if ! 2dup addfile dialog? IF 2dup pad place -2 pad c+! s" .res" pad +place --- 1011,1026 ---- refill if 1 +to #linecount + 1 +to nav-linecount then begin more? dup 0= if drop refill dup ! if 1 +to #linecount \ bump line count ! 1 +to nav-linecount then then while include-word? if is-file? ! if #addedfiles -rot ! 2dup addfile dialog? IF 2dup pad place -2 pad c+! s" .res" pad +place *************** *** 1016,1022 **** THEN ! skip-recurse? ! if 2drop ! else comment? -rot recurse to comment? \ save comment? on stack then then --- 1028,1039 ---- THEN ! rot #addedfiles - \ was a file added? ! skip-recurse? not and ! if comment? nav-linecount 2swap \ save some things ! curfilename count file$ place ! recurse ! to nav-linecount to comment? \ restore some things ! file$ count curfilename place ! else 2drop then then *************** *** 1026,1030 **** r> >in ! r> to source-id ! tmp$ release ; : (build-project) { fClear \ old-path$ -- } --- 1043,1054 ---- r> >in ! r> to source-id ! tmp$ release ! file$ release ; ! ! : InitNavigator ( -- ) ! ProjectName: TheProject SetName: TheNavigator ! Clear: TheNavigator ! 0 to nav-linecount ! curfilename off ; : (build-project) { fClear \ old-path$ -- } *************** *** 1036,1042 **** if search-path place \ set project search path else drop program-path-init \ set default project search path ! then ! ! reset-results GetBuildFile: TheProject nip 0= if SelectAFile c@ --- 1060,1064 ---- if search-path place \ set project search path else drop program-path-init \ set default project search path ! then reset-results GetBuildFile: TheProject nip 0= if SelectAFile c@ *************** *** 1053,1057 **** --- 1075,1081 ---- true to Modified s" Building project" "message + InitNavigator GetBuildFile: TheProject BuildNeededFiles + UnInit: TheNavigator message-off #addedfiles Modified or to Modified *************** *** 1067,1070 **** --- 1091,1095 ---- SortParentLists: TheProject + SortParentLists: TheNavigator old-path$ count search-path place \ restore current search path *************** *** 1074,1078 **** \ Build the project \ The files that are currently added to the project are not removed. ! false (build-project) ; IDM_BUILD_PRJ SetCommand : rebuild-project ( -- ) --- 1099,1106 ---- \ Build the project \ The files that are currently added to the project are not removed. ! control-key? \ full rebuild if control key pressed ! if true ! else false ! then (build-project) ; IDM_BUILD_PRJ SetCommand : rebuild-project ( -- ) |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:53:31
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1457/apps/Win32ForthIDE Modified Files: EdVersion.f Log Message: Bug fixes . Couple minor enhancements. Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** EdVersion.f 10 Apr 2009 16:40:24 -0000 1.12 --- EdVersion.f 10 May 2009 03:53:27 -0000 1.13 *************** *** 328,329 **** --- 328,333 ---- Can be useful when navigating not only projects but the application source code of others. + Sunday, May 03 2009 + - Added right click menu to tab in editor. + Full project rebuild also navigates project, including library files and any forms. + Added project icons to navigator. They were already there |
|
From: Ezra B. <ezr...@us...> - 2009-05-10 03:51:16
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1216/apps/Win32ForthIDE Modified Files: EdFORTHFORM.F EdPreferences.f FormCodeEditor.f Log Message: IDE Enhancements. Bug Fixes. Doc Updates. Index: EdFORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** EdFORTHFORM.F 10 Apr 2009 16:38:36 -0000 1.7 --- EdFORTHFORM.F 10 May 2009 03:50:51 -0000 1.8 *************** *** 110,120 **** win , ; ! : close-form-windows { \ wlink -- } \ close ForthForm windows ! formwindow-link @ ! begin dup ! while dup cell+ @ to wlink ! Close: wlink ! @ ! repeat drop ; : no-show? ( -- f ) \ status labels not active? --- 110,120 ---- win , ; ! \ : close-form-windows { \ wlink -- } \ close ForthForm windows ! \ formwindow-link @ ! \ begin dup ! \ while dup cell+ @ to wlink ! \ Close: wlink ! \ @ ! \ repeat drop ; : no-show? ( -- f ) \ status labels not active? Index: EdPreferences.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdPreferences.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** EdPreferences.f 8 Sep 2008 03:03:59 -0000 1.6 --- EdPreferences.f 10 May 2009 03:50:51 -0000 1.7 *************** *** 3,14 **** needs EdPreferences.frm - Color: WHITE value back-color \ default font background color - Color: BLACK value fore-color \ default font color - Color: WHITE value caret-backcolor \ current line color - Color: LTGRAY value select-backcolor \ selection background color - Color: BLACK value select-forecolor \ selection font color - Color: BLACK value browse-forecolor - Color: LTGRAY value browse-backcolor - :Class ColorWindow <Super Child-Window colorobject thecolor --- 3,6 ---- Index: FormCodeEditor.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FormCodeEditor.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** FormCodeEditor.f 10 Apr 2009 16:40:24 -0000 1.2 --- FormCodeEditor.f 10 May 2009 03:50:51 -0000 1.3 *************** *** 54,58 **** : Update-CodePreviewer { TheForm flag -- } \ display code for active form, flag =true if saving position no-preview? ?exit ! flag if GetCurrentPos: scnCodePreviewer >r then false SetReadOnly: scnCodePreviewer --- 54,59 ---- : Update-CodePreviewer { TheForm flag -- } \ display code for active form, flag =true if saving position no-preview? ?exit ! TheForm 0= ?exit ! flag if GetCurrentPos: scnCodePreviewer >r then false SetReadOnly: scnCodePreviewer |
|
From: Duttweiler R. <si...@am...> - 2009-05-02 10:47:38
|
Women break bra world record <http://dcplkbbaaaapiggpr.isuisse.com> |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:47:25
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10558 Removed Files: WinEd.exe.manifest Log Message: Moved the manifest into the exe file. --- WinEd.exe.manifest DELETED --- |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:47:25
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10558/src Modified Files: Extend.f Log Message: Moved the manifest into the exe file. Index: Extend.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** Extend.f 2 Sep 2008 07:01:20 -0000 1.23 --- Extend.f 19 Apr 2009 07:47:08 -0000 1.24 *************** *** 109,115 **** ' ForthBoot SAVE Win32for \ save Win32For.EXE fload lib\Resources.f - s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon 1 pause-seconds --- 109,130 ---- ' ForthBoot SAVE Win32for \ save Win32For.EXE + \ add the resources to the exe file + fload lib\Resources.f + winver winnt4 >= + [if] + &forthdir count pad place + s" Win32for.exe" pad +place + pad count "path-file drop AddToFile + + CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" src\res\Win32For.exe.manifest" "path-file drop AddResource + 101 s" src\res\Win32For.ico" "path-file drop AddIcon + + false EndUpdate + + [else] + s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon + [then] 1 pause-seconds |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:47:20
|
Update of /cvsroot/win32forth/win32forth/src/res In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10558/src/res Added Files: Win32For.exe.manifest Log Message: Moved the manifest into the exe file. --- NEW FILE: Win32For.exe.manifest --- (This appears to be a binary file; contents omitted.) |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:42:45
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10346 Removed Files: Win32for.exe.manifest Log Message: Moved the manifest into the exe file. --- Win32for.exe.manifest DELETED --- |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:42:40
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10346/apps/WinEd Modified Files: WinEd.f Log Message: Moved the manifest into the exe file. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** WinEd.f 2 Sep 2008 06:38:41 -0000 1.23 --- WinEd.f 19 Apr 2009 07:42:29 -0000 1.24 *************** *** 145,149 **** )) throw ! s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] --- 145,165 ---- )) throw ! ! \ add the resources to the exe file ! winver winnt4 >= ! [if] ! &forthdir count pad place ! s" WinEd.exe" pad +place ! pad count "path-file drop AddToFile ! ! CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" WinEd.exe.manifest" "path-file drop AddResource ! 101 s" src\res\WinEd.ico" "path-file drop AddIcon ! ! false EndUpdate ! ! [else] ! s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon ! [then] ! 1 pause-seconds bye [else] |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:42:40
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd/res In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10346/apps/WinEd/res Added Files: WinEd.exe.manifest Log Message: Moved the manifest into the exe file. --- NEW FILE: WinEd.exe.manifest --- (This appears to be a binary file; contents omitted.) |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:39:18
|
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10107/apps/Solipon2 Modified Files: SOLIPION.F Added Files: solipion.exe.manifest Log Message: Moved the manifest into the exe file. --- NEW FILE: solipion.exe.manifest --- (This appears to be a binary file; contents omitted.) Index: SOLIPION.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** SOLIPION.F 14 Sep 2008 17:39:44 -0000 1.13 --- SOLIPION.F 19 Apr 2009 07:39:14 -0000 1.14 *************** *** 1062,1067 **** ' solipion SAVE Solipion.exe ! \ add the Application icon to the EXE file ! s" src\res\Win32For.ico" s" Solipion.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye --- 1062,1080 ---- ' solipion SAVE Solipion.exe ! \ add the resources to the exe file ! winver winnt4 >= ! [if] ! &forthdir count pad place ! s" Solipion.exe" pad +place ! pad count "path-file drop AddToFile ! ! CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" Solipion.exe.manifest" "path-file drop AddResource ! 101 s" src\res\Win32For.ico" "path-file drop AddIcon ! ! false EndUpdate ! ! [else] ! s" src\res\Win32For.ico" s" Solipion.exe" Prepend<home>\ AddAppIcon ! [then] 1 pause-seconds bye |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:39:18
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10107 Removed Files: solipion.exe.manifest Log Message: Moved the manifest into the exe file. --- solipion.exe.manifest DELETED --- |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:35:47
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv9909 Removed Files: Player4.exe.manifest Log Message: Moved the manifest into the exe file. --- Player4.exe.manifest DELETED --- |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:35:47
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv9909/apps/Player4 Modified Files: PLAYER4.F Added Files: Player4.exe.manifest Log Message: Moved the manifest into the exe file. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.70 retrieving revision 1.71 diff -C2 -d -r1.70 -r1.71 *** PLAYER4.F 26 Sep 2008 12:00:27 -0000 1.70 --- PLAYER4.F 19 Apr 2009 07:35:35 -0000 1.71 *************** *** 675,679 **** &forthdir count &appdir place ' player4 turnkey Player4.exe ! s" Player4.ico" s" Player4.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] --- 675,695 ---- &forthdir count &appdir place ' player4 turnkey Player4.exe ! ! \ add the resources to the exe file ! winver winnt4 >= ! [if] ! &forthdir count pad place ! s" Player4.exe" pad +place ! pad count "path-file drop AddToFile ! ! CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" Player4.exe.manifest" "path-file drop AddResource ! 101 s" Player4.ico" "path-file drop AddIcon ! ! false EndUpdate ! ! [else] ! s" Player4.ico" s" Player4.exe" Prepend<home>\ AddAppIcon ! [then] ! 1 pause-seconds bye [else] --- NEW FILE: Player4.exe.manifest --- (This appears to be a binary file; contents omitted.) |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:30:15
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv9606 Removed Files: PlayVirginRadio.exe.manifest Log Message: Moved the manifest into the exe file. --- PlayVirginRadio.exe.manifest DELETED --- |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:30:13
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv9606/apps/PlayVirginRadio Modified Files: PlayVirginRadio.f Added Files: PlayVirginRadio.exe.manifest Log Message: Moved the manifest into the exe file. --- NEW FILE: PlayVirginRadio.exe.manifest --- (This appears to be a binary file; contents omitted.) Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** PlayVirginRadio.f 17 Dec 2008 08:25:27 -0000 1.15 --- PlayVirginRadio.f 19 Apr 2009 07:30:06 -0000 1.16 *************** *** 160,165 **** ' StartPlayer turnkey PlayVirginRadio.exe ! \ add the Application icon to the EXE file ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye --- 160,182 ---- ' StartPlayer turnkey PlayVirginRadio.exe ! \ add the resources to the EXE file ! ! \ add the resources to the exe file ! winver winnt4 >= ! [if] ! ! &forthdir count pad place ! s" PlayVirginRadio.exe" pad +place ! pad count "path-file drop AddToFile ! ! CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" apps\PlayVirginRadio\PlayVirginRadio.exe.manifest" "path-file drop AddResource ! 101 s" apps\PlayVirginRadio\Virgin.ico" "path-file drop AddIcon ! ! false EndUpdate ! ! [else] ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon ! [then] ! 1 pause-seconds bye |
|
From: Dirk B. <db...@us...> - 2009-04-19 07:26:24
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv9372/apps/Win32ForthIDE Modified Files: Main.f Log Message: Moved the manifest into the exe file. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** Main.f 10 Apr 2009 16:51:09 -0000 1.62 --- Main.f 19 Apr 2009 07:26:06 -0000 1.63 *************** *** 1408,1415 **** \ ' Mainsaved ' SAVE catch win32forthIDE.exe checkstack ! &appdir off ! throw ! s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye --- 1408,1430 ---- \ ' Mainsaved ' SAVE catch win32forthIDE.exe checkstack ! &appdir off ! throw ! \ add the resources to the exe file ! winver winnt4 >= ! [if] ! ! &forthdir count pad place ! s" win32forthIDE.exe" pad +place ! pad count "path-file drop AddToFile ! ! CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" res\win32forthIDE.exe.manifest" "path-file drop AddResource ! 101 s" res\win32forthIDE.ico" "path-file drop AddIcon ! ! false EndUpdate ! ! [else] ! s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon ! [then] 1 pause-seconds bye |
1040 messages has been excluded from this view by a project administrator.
