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: George H. <geo...@us...> - 2006-06-08 07:42:06
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28803/win32forth/src/lib Modified Files: task.f Log Message: gah: Fixed bug in W98/ME (Tested on W98;still untested on W95). Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** task.f 7 Jun 2006 15:50:53 -0000 1.9 --- task.f 8 Jun 2006 07:41:41 -0000 1.10 *************** *** 201,205 **** : init-lock ( lock -- ) ! 0 swap call InitializeCriticalSection drop ; [else] --- 201,205 ---- : init-lock ( lock -- ) ! call InitializeCriticalSection drop ; [else] *************** *** 210,214 **** \ ** If the lock is free claim it for this thread, \ ** then increment the lock count and return true. \n ! \ ** \b For Win9x; \d \ ** Perform the action of LOCK and return true. call TryEnterCriticalSection 0<> ; --- 210,214 ---- \ ** If the lock is free claim it for this thread, \ ** then increment the lock count and return true. \n ! \ ** \b For Win9x, and NT<4; \d \ ** Perform the action of LOCK and return true. call TryEnterCriticalSection 0<> ; |
|
From: Dirk B. <db...@us...> - 2006-06-08 03:52:57
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv12938/src/lib Modified Files: task.f Log Message: dbu: Modified for Win9x (untested). Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** task.f 7 Jun 2006 12:35:26 -0000 1.8 --- task.f 7 Jun 2006 15:50:53 -0000 1.9 *************** *** 192,196 **** call LeaveCriticalSection drop ; ! winver win95 = [if] : trylock ( lock -- fl ) --- 192,197 ---- call LeaveCriticalSection drop ; ! winver winnt4 < [if] ! \ sorry, TryEnterCriticalSection() is only avaible for NT4 and later !!! : trylock ( lock -- fl ) *************** *** 205,209 **** : trylock ( lock -- fl ) \ W32F Lock ! \ *G \b For NT 2000 and XP; \d \ ** If the lock is owned by another thread return false. \n \ ** If the lock is free claim it for this thread, --- 206,210 ---- : trylock ( lock -- fl ) \ W32F Lock ! \ *G \b For NT4, w2k and XP; \d \ ** If the lock is owned by another thread return false. \n \ ** If the lock is free claim it for this thread, |
|
From: Dirk B. <db...@us...> - 2006-06-08 03:44:26
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20528/src/lib Modified Files: ExUtils.f Log Message: Fixed redefinition of tabsize. Index: ExUtils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ExUtils.f 6 Jun 2006 02:58:24 -0000 1.3 --- ExUtils.f 7 Jun 2006 16:06:24 -0000 1.4 *************** *** 26,41 **** msg-buffer [ 6 cells ] LITERAL + to param-buffer then ; ! : ?fform-started ( -- f ) msg-buffer @ FFormID = ; ! : ?promgr-started ( -- f ) msg-buffer cell+ @ ProMgrID = ; ! : fform-started ( f -- ) if FFormID else 0 then msg-buffer ! ; ! : promgr-started ( f -- ) if ProMgrID --- 26,41 ---- msg-buffer [ 6 cells ] LITERAL + to param-buffer then ; ! : ?fform-started ( -- f ) msg-buffer @ FFormID = ; ! : ?promgr-started ( -- f ) msg-buffer cell+ @ ProMgrID = ; ! : fform-started ( f -- ) if FFormID else 0 then msg-buffer ! ; ! : promgr-started ( f -- ) if ProMgrID *************** *** 51,55 **** --- 51,57 ---- buffermax cell+ Pointer BufferAddress + [undefined] tabsize [if] 8 value tabsize + [then] 0 value #chars \ current number of characters on line 0 value #lines \ number lines written *************** *** 91,95 **** : z"append ( -- ) [char] z cappend "append bl cappend ; ! : #append ( n -- ) (.) append bl cappend ; --- 93,97 ---- : z"append ( -- ) [char] z cappend "append bl cappend ; ! : #append ( n -- ) (.) append bl cappend ; *************** *** 144,151 **** evaluate repeat ; ! : fload-buffer ( addr cnt -- ) TheBuffer (fload-buffer) ; ! /* : ExecuteFile { addr cnt hndl \ temp$ -- } \ open file using default application --- 146,153 ---- evaluate repeat ; ! : fload-buffer ( addr cnt -- ) TheBuffer (fload-buffer) ; ! /* : ExecuteFile { addr cnt hndl \ temp$ -- } \ open file using default application |
|
From: Dirk B. <db...@us...> - 2006-06-08 03:44:26
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20015/src/lib Modified Files: sendmessage.f Log Message: SendMessage.f now realy does nothing any more. Index: sendmessage.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/sendmessage.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** sendmessage.f 6 Jun 2006 17:21:02 -0000 1.2 --- sendmessage.f 7 Jun 2006 16:05:17 -0000 1.3 *************** *** 20,22 **** --- 20,24 ---- Comment; + \s + Macro SendMessage:Self " hwnd Call SendMessage" |
|
From: Dirk B. <db...@us...> - 2006-06-08 03:44:16
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19506 Modified Files: setup.exe Log Message: New command added to the setup to build the Win32Forth IDE. Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 Binary files /tmp/cvsroc2B8 and /tmp/cvsMYrD17 differ |
|
From: Dirk B. <db...@us...> - 2006-06-08 03:44:11
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19506/apps/Win32ForthIDE Modified Files: Main.f Log Message: New command added to the setup to build the Win32Forth IDE. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Main.f 7 Jun 2006 15:39:34 -0000 1.4 --- Main.f 7 Jun 2006 16:04:21 -0000 1.5 *************** *** 18,22 **** only forth also editor definitions \ put all words into the EDITOR vocabulary ! \ true value sysgen s" apps\Win32ForthIDE" "fpath+ --- 18,22 ---- only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen s" apps\Win32ForthIDE" "fpath+ |
|
From: Dirk B. <db...@us...> - 2006-06-08 02:49:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9164/apps/Win32ForthIDE Modified Files: CommandID.f EdHexViewer.f EdMenu.f EdStatusbar.f Main.f ProjectTree.f Log Message: - Fixed Statusbar display when viewing binary files - "Project" menu added; most (all?) command's still doesn't work Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdMenu.f 7 Jun 2006 10:08:13 -0000 1.2 --- EdMenu.f 7 Jun 2006 15:39:34 -0000 1.3 *************** *** 74,77 **** --- 74,103 ---- :MenuItem me_upper "&Uppercase\tCtrl+Shift+U" IDM_UPPERCASE DoCommand ; + Popup "&Project" + MenuItem "&New... \tCtrl+N" IDM_NEW_PRJ DoCommand ; + MenuItem "&Open... \tCtrl+O" IDM_OPEN_PRJ DoCommand ; + MenuItem "&Save \tCtrl+S" IDM_SAVE_PRJ DoCommand ; + MenuItem "Save &As..." IDM_SAVE_AS_PRJ DoCommand ; + MenuItem "&Rename...\tCtrl+R" IDM_RENAME_PRJ DoCommand ; + MenuSeparator + MenuItem "&Build \tCtrl+B" IDM_BUILD_PRJ DoCommand ; + MenuItem "Set search &path for build..." IDM_SET_BUILD_PATH_PRJ DoCommand ; + MenuSeparator + MenuItem "&Compile \tF12" IDM_COMPILE_PRJ DoCommand ; + MenuItem "&Set Forth Name..." IDM_SET_FORTH_PRJ DoCommand ; + MenuSeparator + MenuItem "&New Module... \tCtrl+M" IDM_NEW_MODULE_PRJ DoCommand ; + MenuSeparator + MenuItem "&Add files to project... \tCtrl+A" IDM_ADD_PRJ DoCommand ; + MenuItem "&Delete from project \tCtrl+D" IDM_DELETE_PRJ DoCommand ; + MenuItem "Add open &forms \tCtrl+F" IDM_ADD_FORMS_PRJ DoCommand ; + \ MenuSeparator + \ SubMenu "Copy/&Zip files" + \ MenuItem "&Zip non-library files..." IDM_ZIP_PRJ DoCommand ; + \ MenuItem "Zip all files..." IDM_ZIP_ALL_PRJ DoCommand ; + \ MenuItem "&Copy non-library files..." IDM_COPY_PRJ DoCommand ; + \ MenuItem "Copy all files..." IDM_COPY_ALL_PRJ DoCommand ; + \ EndSubMenu + Popup "&DexH" :MenuItem me_dexGlossary "&Glossary\tAlt+G" IDM_DEX_GLOSSARY DoCommand ; *************** *** 152,155 **** --- 178,184 ---- GetFileType FT_HTML = ; + : IsBinaryWnd? ( -- f ) + GetFileType FT_BINARY = ; + : NoTextToPad ( -- addr len ) \ copy empty string to PAD 0 pad ! pad count ; Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ProjectTree.f 7 Jun 2006 01:41:26 -0000 1.2 --- ProjectTree.f 7 Jun 2006 15:39:34 -0000 1.3 *************** *** 18,22 **** 0 value ThisList \ temp pointer to list being used 0 value ThisItem \ temp pointer to new item - 0 value TheProjectWindow 0 value TheProject 0 value TheStatusBar --- 18,21 ---- *************** *** 28,43 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! [undefined] SaveFileDialog [if] ! FileSaveDialog SaveFileDialog "Save Project File" "Project Files|*.fpj|" : SaveProjectFile ( -- addr ) s" Project Files|*.fpj|" SetFilter: SaveFileDialog s" Save Project File" SetTitle: SaveFileDialog ! GetHandle: TheProjectWindow Start: SaveFileDialog ; ! [then] \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 27,64 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\ Dialogs \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! MultiFileOpenDialog GetFilesDialog "Select File" "All Files|*.*|Forth Files|*.f|" ! FileOpenDialog OpenProjectDialog "Open Project File" "Project Files|*.fpj|" FileSaveDialog SaveFileDialog "Save Project File" "Project Files|*.fpj|" + NewEditDialog GetProjectNameDlg "New Project Name" "Project Name:" "Create" "Cancel" "" + NewEditDialog GetPathDialog "Set Build Search Path" "Search Path:" "&Apply" "Cancel" "Save to Disk" + NewEditDialog SetForthName "Win32Forth Name" "Win32For.exe:" "&Apply" "Cancel" + + : OpenProjectFile ( -- addr ) + s" Project Files|*.fpj|" SetFilter: OpenProjectDialog + s" Open Project File" SetTitle: OpenProjectDialog + Gethandle: MainWindow Start: OpenProjectDialog ; + + : SelectAFile ( -- addr ) + s" All Files|*.*|Forth Files|*.f|" SetFilter: GetFilesDialog + s" Select File" SetTitle: GetFilesDialog + GetHandle: MainWindow Start: GetFilesDialog ; : SaveProjectFile ( -- addr ) s" Project Files|*.fpj|" SetFilter: SaveFileDialog s" Save Project File" SetTitle: SaveFileDialog ! GetHandle: MainWindow Start: SaveFileDialog ; ! : SaveZipFile ( -- addr ) ! s" Zip files|*.zip|All Files|*.*|" SetFilter: SaveFileDialog ! s" Select archive file" SetTitle: SaveFileDialog ! Gethandle: MainWindow Start: SaveFileDialog ; ! ! : SaveModuleFile ( -- addr ) ! s" Forth Files|*.f|All Files|*.*" SetFilter: SaveFileDialog ! s" New Module File" SetTitle: SaveFileDialog ! GetHandle: MainWindow Start: SaveFileDialog ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 630,636 **** THEN THEN ! hwndmain TVE_EXPAND Expand: self ! hwndmain GetChild: self SelectItem: self ! ;M ;class --- 651,666 ---- THEN THEN ! hwndmain TVE_EXPAND Expand: self ! hwndmain GetChild: self SelectItem: self ! ;M ! ! :M Clear: ( -- ) ! TVI_ROOT DeleteItem: self ! ! DisposeLists ! RegisterList ! CreateTree ! AddParentLists ! ;M ;class *************** *** 639,642 **** --- 669,673 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + (( : Expand/Collapse ( a f -- ) swap to ThisList Handle: ThisList swap Expand: TheProject ; : Expand ( a -- ) TVE_EXPAND Expand/Collapse ; *************** *** 665,666 **** --- 696,726 ---- MainList: TheProject to ThisList Handle: ThisList SelectItem: TheProject ; \ IDM_COLLAPSE_ALL SetCommand + )) + + : (open-project) ( a1 n1 -- ) + \ clear-status-bar + \ GetProjectFileName: TheProject ?dup + \ IF pad place pad Insert: RecentFiles ELSE drop THEN + 2dup SetProjectFileName: TheProject + "path-only" 2dup SetDir: OpenProjectDialog + 2dup SetDir: SaveFileDialog SetDir: GetFilesDialog + \ Close: TheProject Leftpane Start: TheProject + \ ResetProject \ Reset the project window (close the current project; and open a new empty one) + + Clear: TheProject + OpenProject: TheProject + Rename: TheProject + SetFocus: TheProject + \ SetProjectTitle + \ reset-results + ReleaseBuffer: viewerfile + + \ IDM_SHOW_FILE_PRJ DoCommand + ; + + : new-project ( -- ) + \ SaveIfModified 0= ?exit + s" Project" SetProjectName: TheProject + pad 0 SetBuildFile: TheProject + pad 0 (open-project) + ; IDM_NEW_PRJ SetCommand Index: EdStatusbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdStatusbar.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdStatusbar.f 5 Jun 2006 09:19:00 -0000 1.1 --- EdStatusbar.f 7 Jun 2006 15:39:34 -0000 1.2 *************** *** 63,66 **** --- 63,70 ---- then pad +null pad 1+ LinePart SetText: self ; + : SetBinaryView ( -- ) + Clear: self + z" BIN view" EdPart SetText: self ; + :M Update: ( -- ) base @ >r decimal *************** *** 68,75 **** ActiveChild 0= if Clear: self ! else GetFileType: ActiveChild FT_SOURCE = ! if SetEditView ! else SetHtmlView ! then then --- 72,81 ---- ActiveChild 0= if Clear: self ! else GetFileType: ActiveChild ! case ! FT_SOURCE of SetEditView endof ! FT_HTML of SetHtmlView endof ! FT_BINARY of SetBinaryView endof ! endcase then Index: EdHexViewer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdHexViewer.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdHexViewer.f 7 Jun 2006 01:41:26 -0000 1.1 --- EdHexViewer.f 7 Jun 2006 15:39:34 -0000 1.2 *************** *** 50,54 **** :M GetFileType: ( -- n ) ! FT_HTML ;M :M Update: ( -- ) --- 50,54 ---- :M GetFileType: ( -- n ) ! FT_BINARY ;M :M Update: ( -- ) *************** *** 58,62 **** Dump: ChildWindow SetWindowTitle: self ;M ! ;Class --- 58,62 ---- Dump: ChildWindow SetWindowTitle: self ;M ! ;Class Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Main.f 7 Jun 2006 10:08:13 -0000 1.3 --- Main.f 7 Jun 2006 15:39:34 -0000 1.4 *************** *** 18,22 **** only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen s" apps\Win32ForthIDE" "fpath+ --- 18,22 ---- only forth also editor definitions \ put all words into the EDITOR vocabulary ! \ true value sysgen s" apps\Win32ForthIDE" "fpath+ *************** *** 40,43 **** --- 40,45 ---- 0 value ActiveRemote \ the MDI child window used for remote opening a file from the console 0 value ACCEL-HNDL \ handle of the AcceleratorKeyTable + 0 value MainWindow \ the address of the main window object + ReadFile ViewerFile *************** *** 59,62 **** --- 61,65 ---- 0 constant FT_SOURCE 1 constant FT_HTML + 2 constant FT_BINARY needs EdToolbar.f *************** *** 69,72 **** --- 72,76 ---- defer Update ' noop is Update defer OnSelect ' drop is OnSelect \ called when item is selected in the file listview + defer ResetProject ' noop is ResetProject AcceleratorTable AccelTable \ create the Accelerator-Key-Table *************** *** 110,113 **** --- 114,121 ---- ;Object + :noname ( -- ) + \ Reset the project window (close the current project; and open a new empty one) + ResetProject cTabWindow ; is ResetProject + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Splitter window \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 408,411 **** --- 416,420 ---- :M On_Init: ( -- ) + self to MainWindow InitScintillaControl \ Dienstag, August 03 2004 dbu AccelTable EnableAccelerators \ init the accelerator table *************** *** 474,478 **** WM_USER 0x0202 + constant WM_UPDATE ! 0 value LastActiveChild :Class MDIChild <Super MDIChildWindow --- 483,487 ---- WM_USER 0x0202 + constant WM_UPDATE ! 0 value LastActiveChild \ the object address of the child window that was activated at last :Class MDIChild <Super MDIChildWindow *************** *** 493,497 **** :M UpdateFileName: ( -- ) ! self AddFile: cTabWindow ;M \ add the file to the file list :M Start: ( parent -- ) --- 502,507 ---- :M UpdateFileName: ( -- ) ! self UpdateFileName: cTabWindow \ update the File in the file list ! ;M :M Start: ( parent -- ) *************** *** 499,502 **** --- 509,513 ---- self start: ChildWindow 0 0 Width Height Move: ChildWindow + self AddFile: cTabWindow \ add the file to the file list SetFocus: ChildWindow ;M *************** *** 527,533 **** \ :M On_ChildActivate: ( -- ) ! \ LastActiveChild 0<> ! \ if LastActiveChild DeSelectFile: cTabWindow then \ deselect the file to the file list ! \ self dup to LastActiveChild SelectFile: cTabWindow \ select the file to the file list \ ;M --- 538,548 ---- \ :M On_ChildActivate: ( -- ) ! \ cr ." On_ChildActivate: entry" self h. ! \ self LastActiveChild <> ! \ if LastActiveChild 0<> ! \ if LastActiveChild DeSelectFile: cTabWindow then \ deselect the in the file list ! \ self dup to LastActiveChild SelectFile: cTabWindow \ select the in the file list ! \ then ! \ cr ." On_ChildActivate: exit" self h. \ ;M *************** *** 663,667 **** UpdateStatusBar EnableToolbar ! 0 0 WM_UPDATE SendMessageToAllChildren: Frame ; is Update : NewEditWnd ( -- ) \ open a new child window for editing --- 678,683 ---- UpdateStatusBar EnableToolbar ! 0 0 WM_UPDATE SendMessageToAllChildren: Frame ! ; is Update : NewEditWnd ( -- ) \ open a new child window for editing *************** *** 674,679 **** :noname ( -- ) \ open a new child window for browsing the source files ! \ used by 'the class and vocabulary browser' and the ! \ 'Find text in Files' dialog ActiveBrowser 0= if NewEditWnd ActiveChild to ActiveBrowser --- 690,695 ---- :noname ( -- ) \ open a new child window for browsing the source files ! \ used by 'the class and vocabulary browser' and the ! \ 'Find text in Files' dialog ActiveBrowser 0= if NewEditWnd ActiveChild to ActiveBrowser *************** *** 727,731 **** \ This is called from the File listview when a file is selected. \ addr is the object address of the mdi child window ! GetHandle: [ ] Activate: Frame Update ; is OnSelect \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 743,749 ---- \ This is called from the File listview when a file is selected. \ addr is the object address of the mdi child window ! GetHandle: [ ] Activate: Frame Update ! \ SetFocus: Frame ! ; is OnSelect \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CommandID.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CommandID.f 5 Jun 2006 09:19:00 -0000 1.1 --- CommandID.f 7 Jun 2006 15:39:34 -0000 1.2 *************** *** 112,118 **** NewID IDM_FORWARD ! \ for the ProjectTree ! NewID IDM_SHOW_FILE ! NewID IDM_EXECUTEFILE IdCounter constant IDM_LAST --- 112,131 ---- NewID IDM_FORWARD ! \ Project Manager ! \ NewID IDM_SHOW_FILE ! NewID IDM_EXECUTEFILE_PRJ ! NewID IDM_NEW_PRJ ! NewID IDM_OPEN_PRJ ! NewID IDM_SAVE_PRJ ! NewID IDM_SAVE_AS_PRJ ! NewID IDM_RENAME_PRJ ! NewID IDM_BUILD_PRJ ! NewID IDM_SET_BUILD_PATH_PRJ ! NewID IDM_COMPILE_PRJ ! NewID IDM_SET_FORTH_PRJ ! NewID IDM_NEW_MODULE_PRJ ! NewID IDM_ADD_PRJ ! NewID IDM_DELETE_PRJ ! NewID IDM_ADD_FORMS_PRJ IdCounter constant IDM_LAST |
|
From: Rod O. <rod...@us...> - 2006-06-08 02:49:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27316/apps/Win32ForthIDE Modified Files: EdTabControl.f Log Message: Rod: Eliminated the flicker in the left pane Index: EdTabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** EdTabControl.f 7 Jun 2006 15:37:31 -0000 1.3 --- EdTabControl.f 7 Jun 2006 21:55:03 -0000 1.4 *************** *** 45,52 **** WS_EX_CLIENTEDGE ;M - :M WndClassStyle: ( -- style ) - \ Set the style member of the the WNDCLASS structure. - CS_DBLCLKS ;M - :M Start: ( Parent -- ) Start: super --- 45,48 ---- *************** *** 148,164 **** :class ProjectWindow <Super ProjectTreeViewControl - :M WindowStyle: ( -- style ) - WindowStyle: super - WS_BORDER invert and \ remove WS_BORDER style - WS_CLIPCHILDREN or - ;M - :M ExWindowStyle: ( -- ) WS_EX_CLIENTEDGE ;M - :M WndClassStyle: ( -- style ) - \ Set the style member of the the WNDCLASS structure. - CS_DBLCLKS ;M - :M Handle_Notify: ( h m w l -- f ) \ Handle the notification messages of the treeview control. --- 144,150 ---- *************** *** 175,182 **** :class TabControlEx <super TabControl - :M WndClassStyle: ( -- style ) - \ Set the style member of the the WNDCLASS structure. - CS_DBLCLKS ;M - :M Start: ( Parent -- ) Start: super --- 161,164 ---- *************** *** 197,214 **** ClassBrowserWindow cVocTree :M ReSize: ( -- ) \ Resize the controls within the main window. ! AutoSize: cTab ! ClientSize: cTab 2over d- ( x y w h ) 4dup Move: cFileList 4dup Move: cProjectTree ! 4dup Move: cClassTree ! Move: cVocTree ! ;M :M On_Size: ( -- ) \ Handle the WM_SIZE message. ! On_Size: super ReSize: self ;M :M AutoSize: ( -- ) --- 179,200 ---- ClassBrowserWindow cVocTree + :M WndClassStyle: ( -- style ) + \ Set the style member of the the WNDCLASS structure. + CS_DBLCLKS ;M + :M ReSize: ( -- ) \ Resize the controls within the main window. ! AutoSize: cTab ! ClientSize: cTab 2over d- ( x y w h ) 4dup Move: cFileList 4dup Move: cProjectTree ! 4dup Move: cClassTree ! Move: cVocTree ! ;M :M On_Size: ( -- ) \ Handle the WM_SIZE message. ! ReSize: self ;M :M AutoSize: ( -- ) *************** *** 219,249 **** : ShowFiles ( -- ) SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree - SW_SHOW Show: cFileList ; : ShowProject ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree - SW_SHOW Show: cProjectTree ; : ShowVocs ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree - AddVocabularies: cVocTree - SW_SHOW Show: cVocTree ; : ShowClasses ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree - AddClasses: cClassTree - SW_SHOW Show: cClassTree ; --- 205,235 ---- : ShowFiles ( -- ) + SW_SHOW Show: cFileList \ show before hide SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree ; : ShowProject ( -- ) + SW_SHOW Show: cProjectTree SW_HIDE Show: cFileList SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree ; : ShowVocs ( -- ) + AddVocabularies: cVocTree + SW_SHOW Show: cVocTree SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree ; : ShowClasses ( -- ) + AddClasses: cClassTree + SW_SHOW Show: cClassTree SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree ; *************** *** 282,290 **** :M On_Init: ( -- ) - self Start: cTab self Start: cFileList self Start: cProjectTree self Start: cVocTree self Start: cClassTree \ TEST ONLY... --- 268,276 ---- :M On_Init: ( -- ) self Start: cFileList self Start: cProjectTree self Start: cVocTree self Start: cClassTree + self Start: cTab \ must be started last \ TEST ONLY... *************** *** 317,321 **** \ ------------------------------------------------------------------------ - ReSize: self \ resize the controls within the main window SelChange: self \ show the control for the currently selected tab --- 303,306 ---- |
|
From: Dirk B. <db...@us...> - 2006-06-08 02:49:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8240/apps/Win32ForthIDE Modified Files: EdTabControl.f Log Message: Removed Erza's check if the classes and vocabularies are added to the tree view control, since this is already done within the ClassBrowserWindow class. Index: EdTabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdTabControl.f 7 Jun 2006 01:41:26 -0000 1.2 --- EdTabControl.f 7 Jun 2006 15:37:31 -0000 1.3 *************** *** 33,36 **** --- 33,37 ---- LV_COLUMN LvColumn LV_FINDINFO LvFindInfo + int Enable_Notify? :M WindowStyle: ( -- style ) *************** *** 51,54 **** --- 52,57 ---- Start: super + true to Enable_Notify? + [ LVCF_FMT LVCF_WIDTH or LVCF_TEXT or LVCF_SUBITEM or ] literal SetMask: LvColumn LVCFMT_LEFT Setfmt: LvColumn *************** *** 103,117 **** Setstate: LvItem -1 SetstateMask: LvItem Addr: LvItem swap SetItemState: self drop else drop then ;M :M Handle_Notify: ( h m w l -- f ) \ Handle the notification messages of the listview control. ! dup GetNotifyCode LVN_ITEMCHANGED = ! if LVN_GetNotifyParam OnSelect ! else drop ! then false ! ;M ;class --- 106,140 ---- Setstate: LvItem -1 SetstateMask: LvItem + false to Enable_Notify? Addr: LvItem swap SetItemState: self drop + true to Enable_Notify? else drop then ;M + :M UpdateFileName: { addr -- } + \ Update the Filename in the list view. + \ addr is the object address of the mdi child window + addr FindFile: self dup -1 <> + if LVIF_TEXT SetMask: LvItem + addr FileNameToBuffer SetpszText: LvItem + + false to Enable_Notify? + Addr: LvItem swap SetItemText: self drop + true to Enable_Notify? + else drop + then ;M + + + :M Handle_Notify: ( h m w l -- f ) \ Handle the notification messages of the listview control. ! Enable_Notify? ! if dup GetNotifyCode LVN_ITEMCHANGED = ! \ if dup GetNotifyCode LVN_ITEMACTIVATE = ! \ if dup GetNotifyCode NM_CLICK = ! if LVN_GetNotifyParam OnSelect ! else drop ! then ! then false ;M ;class *************** *** 141,145 **** \ Handle the notification messages of the treeview control. dup GetNotifyCode NM_DBLCLK = ! if IDM_EXECUTEFILE DoCommand false else Handle_Notify: super then ;M --- 164,168 ---- \ Handle the notification messages of the treeview control. dup GetNotifyCode NM_DBLCLK = ! if IDM_EXECUTEFILE_PRJ DoCommand false else Handle_Notify: super then ;M *************** *** 173,178 **** ClassBrowserWindow cClassTree ClassBrowserWindow cVocTree - int voc-update \ vocabularies already scanned - int class-update \ ditto classes :M ReSize: ( -- ) --- 196,199 ---- *************** *** 208,219 **** SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree - - \ TEST ONLY... - s" proj\Win32ForthIDE.fpj" Prepend<home>\ - SetProjectFileName: cProjectTree - OpenProject: cProjectTree - ExpandAll - \ ... - SW_SHOW Show: cProjectTree ; --- 229,232 ---- *************** *** 223,230 **** SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree ! voc-update 0= ! if AddVocabularies: cVocTree ! true to voc-update ! then SW_SHOW Show: cVocTree ; --- 236,240 ---- SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree ! AddVocabularies: cVocTree SW_SHOW Show: cVocTree ; *************** *** 234,241 **** SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree ! class-update 0= ! if AddClasses: cClassTree ! true to class-update ! then SW_SHOW Show: cClassTree ; --- 244,248 ---- SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree ! AddClasses: cClassTree SW_SHOW Show: cClassTree ; *************** *** 275,280 **** :M On_Init: ( -- ) - 0 to class-update - 0 to voc-update self Start: cTab self Start: cFileList --- 282,285 ---- *************** *** 283,286 **** --- 288,298 ---- self Start: cClassTree + \ TEST ONLY... + s" proj\Win32ForthIDE.fpj" Prepend<home>\ + SetProjectFileName: cProjectTree + OpenProject: cProjectTree + \ ExpandAll + \ ... + \ ------------------------------------------------------------------------ *************** *** 312,319 **** --- 324,333 ---- :M AddFile: ( addr -- ) \ Add a file to the file list view. + cr ." AddFile: " dup h. AddFile: cFileList ;M :M RemoveFile: ( addr -- ) \ Remove a file from the file list view. + cr ." RemoveFile: " dup h. RemoveFile: cFileList ;M *************** *** 328,330 **** --- 342,352 ---- LVIS_SELECTED swap SetFileState: cFileList ;M + :M UpdateFileName: ( addr -- ) + \ Update the filename in the file list view. + cr ." UpdateFileName: " dup h. + UpdateFileName: cFileList ;M + + :M ResetProject: ( -- ) + Close: cProjectTree self Start: cProjectTree ;M + ;class |
|
From: Dirk B. <db...@us...> - 2006-06-08 02:49:50
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19506/apps/Setup Modified Files: Setup.f Log Message: New command added to the setup to build the Win32Forth IDE. Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Setup.f 8 Oct 2005 08:24:21 -0000 1.8 --- Setup.f 7 Jun 2006 16:04:21 -0000 1.9 *************** *** 125,128 **** --- 125,129 ---- ." P Rebuild Project Manager." cr cr ." S Rebuild SciEdit." cr cr + ." G Rebuild Win32forth IDE." cr cr ." A Rebuild sample applications (Player4, Solipon2, Sudoku and" cr ." PlayVirginRadio)" cr cr *************** *** 272,275 **** --- 273,282 ---- ; + : buildide + ." -- SciEdit" cr + c" WIN32FOR.EXE fload apps\Win32ForthIDE\Main.f bye" procexec + c" Win32ForthIde.exe" filecheck + ; + : buildsamples ." -- Sample applications" cr *************** *** 315,318 **** --- 322,326 ---- buildscintilla \ build SciEdit buildsamples \ build sample applications + buildide \ build Win32Forth IDE ; *************** *** 382,385 **** --- 390,394 ---- buildscintilla \ build SciEdit buildsamples \ build sample applications + buildide \ build Win32Forth IDE endedok ; *************** *** 480,483 **** --- 489,504 ---- ; + \ Scintilla Editor + \ Mittwoch, Juni 07 2006 - 18:01 dbu + : ide + cls cr + ." Win32Forth IDE requested" cr + dashline + ." Rebuilding Win32Forth IDE" cr + checkcont + buildide \ build Win32Forth IDE + endedok + ; + \ Sample applications \ new Samstag, Juni 11 2005 - 8:41 dbu *************** *** 533,536 **** --- 554,558 ---- 'P' of project endof 'S' of scintilla endof + 'G' of ide endof 'A' of samples endof |
|
From: George H. <geo...@us...> - 2006-06-07 12:35:37
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21858/win32forth/src/lib Modified Files: task.f Log Message: gah: Modified for Win95 (untested). Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** task.f 20 May 2006 12:02:06 -0000 1.7 --- task.f 7 Jun 2006 12:35:26 -0000 1.8 *************** *** 192,195 **** --- 192,207 ---- call LeaveCriticalSection drop ; + winver win95 = [if] + + : trylock ( lock -- fl ) + lock true ; + + internal + + : init-lock ( lock -- ) + 0 swap call InitializeCriticalSection drop ; + + [else] + : trylock ( lock -- fl ) \ W32F Lock \ *G \b For NT 2000 and XP; \d *************** *** 206,209 **** --- 218,223 ---- 0 swap call InitializeCriticalSectionAndSpinCount drop ; + [then] + external |
|
From: Jos v.d.V. <jo...@us...> - 2006-06-07 10:30:36
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25552/apps/SciEdit Modified Files: EdMenu.f Main.f Log Message: Jos: Added <ctrl shift f> Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Main.f 14 May 2006 09:05:17 -0000 1.20 --- Main.f 7 Jun 2006 10:30:15 -0000 1.21 *************** *** 621,624 **** --- 621,625 ---- FALT 'C' IDM_COMMENT_BLOCK ACCELENTRY FALT 'U' IDM_UNCOMMENT_BLOCK ACCELENTRY + FSHIFT FCONTROL or 'F' IDM_FIND_IN_FILES ACCELENTRY \ DexH menu Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdMenu.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** EdMenu.f 7 May 2006 06:34:26 -0000 1.9 --- EdMenu.f 7 Jun 2006 10:30:15 -0000 1.10 *************** *** 63,67 **** \ :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files..." IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; --- 63,67 ---- \ :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files...\tCtrl+Shift+F" IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; |
|
From: Jos v.d.V. <jo...@us...> - 2006-06-07 10:08:18
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15131/apps/Win32ForthIDE Modified Files: EdMenu.f Main.f Log Message: Jos: Added ctrl+shift+F Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Main.f 7 Jun 2006 01:41:26 -0000 1.2 --- Main.f 7 Jun 2006 10:08:13 -0000 1.3 *************** *** 672,676 **** New> HtmlChild to ActiveChild MDIClientWindow: Frame Start: ActiveChild ; ! :noname ( -- ) \ open a new child window for browsing the source files \ used by 'the class and vocabulary browser' and the --- 672,676 ---- New> HtmlChild to ActiveChild MDIClientWindow: Frame Start: ActiveChild ; ! :noname ( -- ) \ open a new child window for browsing the source files \ used by 'the class and vocabulary browser' and the *************** *** 779,782 **** --- 779,783 ---- FALT 'C' IDM_COMMENT_BLOCK ACCELENTRY FALT 'U' IDM_UNCOMMENT_BLOCK ACCELENTRY + FSHIFT FCONTROL or 'F' IDM_FIND_IN_FILES ACCELENTRY \ DexH menu Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdMenu.f 5 Jun 2006 09:19:00 -0000 1.1 --- EdMenu.f 7 Jun 2006 10:08:13 -0000 1.2 *************** *** 63,67 **** \ :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files..." IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; --- 63,67 ---- \ :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files...\tCtrl+Shift+F" IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; |
|
From: Ezra B. <ezr...@us...> - 2006-06-07 01:41:33
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26474 Modified Files: EdCommand.f EdTabControl.f Main.f ProjectTree.f Added Files: EdHexViewer.f Log Message: Win32ForthIDE updated to use HexViewer to view binary files in project window. EAB Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Main.f 5 Jun 2006 09:19:00 -0000 1.1 --- Main.f 7 Jun 2006 01:41:26 -0000 1.2 *************** *** 40,43 **** --- 40,44 ---- 0 value ActiveRemote \ the MDI child window used for remote opening a file from the console 0 value ACCEL-HNDL \ handle of the AcceleratorKeyTable + ReadFile ViewerFile true value CreateBackup? *************** *** 599,603 **** fload ScintillaMDI.f fload ScintillaHyperMDI.f ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Define HTML Child Window class --- 600,604 ---- fload ScintillaMDI.f fload ScintillaHyperMDI.f ! fload EdHexViewer.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Define HTML Child Window class *************** *** 671,675 **** New> HtmlChild to ActiveChild MDIClientWindow: Frame Start: ActiveChild ; ! :noname ( -- ) \ open a new child window for browsing the source files \ used by 'the class and vocabulary browser' and the --- 672,676 ---- New> HtmlChild to ActiveChild MDIClientWindow: Frame Start: ActiveChild ; ! :noname ( -- ) \ open a new child window for browsing the source files \ used by 'the class and vocabulary browser' and the *************** *** 703,706 **** --- 704,717 ---- then Update ; + : (OpenBinaryFile) ( adr len -- ) + { \ temp$ -- } + MAX-PATH 2 + LocalAlloc: temp$ + temp$ place + temp$ FileNotFound: Frame + if NewHexViewWnd + temp$ count SetFileName: ActiveChild + GetBuffer: ViewerFile Dump: ActiveChild + then Update ; + : (OpenRemoteFile) ( adr len -- ) { \ temp$ -- } *************** *** 844,848 **** init-shared-type ['] sciedit_win32forth-message is win32forth-message ! HandleCmdLine Turnkeyed? IF Begin key drop again THEN ; --- 855,859 ---- init-shared-type ['] sciedit_win32forth-message is win32forth-message ! \+ sysgen HandleCmdLine Turnkeyed? IF Begin key drop again THEN ; Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ProjectTree.f 5 Jun 2006 09:19:00 -0000 1.1 --- ProjectTree.f 7 Jun 2006 01:41:26 -0000 1.2 *************** *** 156,160 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ReadFile ViewerFile Rectangle ItemRect --- 156,160 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! Rectangle ItemRect *************** *** 493,508 **** #items: SelectedItem (.) pad +place pad dup +NULL 1+ ! ReleaseBuffer: viewerfile FileExt off else GetName: SelectedItem dup zcount 2dup ".ext-only" 2dup lower FileExt place \ set FileExt ! LoadFile: viewerfile drop GetName: SelectedItem zcount pad place ! pad IDM_OPEN_RECENT_FILE DoCommand then ! \ 0 Settext: TheStatusBar .buildfile SetFocus: self \ ProjectManager.htm item lost focus before false --- 493,508 ---- #items: SelectedItem (.) pad +place pad dup +NULL 1+ ! \ ReleaseBuffer: viewerfile FileExt off else GetName: SelectedItem dup zcount 2dup ".ext-only" 2dup lower FileExt place \ set FileExt ! \ LoadFile: viewerfile drop GetName: SelectedItem zcount pad place ! pad dup IDM_OPEN_RECENT_FILE DoCommand then ! drop ( for now ) \ 0 Settext: TheStatusBar .buildfile SetFocus: self \ ProjectManager.htm item lost focus before false Index: EdCommand.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdCommand.f 5 Jun 2006 09:19:00 -0000 1.1 --- EdCommand.f 7 Jun 2006 01:41:26 -0000 1.2 *************** *** 92,99 **** : OpenRecentFile ( File$ -- ) ! count 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenSourceFile) ! then ; IDM_OPEN_RECENT_FILE SetCommand : OpenHighlightedFile ( -- ) --- 92,103 ---- : OpenRecentFile ( File$ -- ) ! count LoadFile: ViewerFile 0= ?exit ! GetName: ViewerFile count is-binary-file? ! if (OpenBinaryFile) ! else 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenSourceFile) ! then ! then ; IDM_OPEN_RECENT_FILE SetCommand : OpenHighlightedFile ( -- ) --- NEW FILE: EdHexViewer.f --- \ HexViewer.F Adapted from FileDump.f cr .( Loading Hex Viewer...) fload apps\promgr\hexviewer.f : is-binary-file? ( -- f ) true \ default GetBuffer: viewerfile 1000 min 0max \ check first 1000 bytes bounds ?do i c@ bl < if i c@ dup 0x0A <> over 0x0D <> and \ not cr or lf swap 0x09 <> and \ not tab char if unloop exit then then loop not ; :Class HexViewChild <Super MDIChild max-path 2 + bytes FileName :M Start: ( parent -- ) New> HexViewer to ChildWindow self to ChildParent 0 FileName ! Start: super ;M :M On_Close: ( -- ) On_Close: super self ActiveChild = if 0 to ActiveChild then UpdateStatusBar EnableToolbar ;M :M SetFileName: ( addr len -- ) FileName place FileName +null UpdateFileName: super ;M :M GetFileName: ( -- addr ) FileName ;M :M SetWindowTitle: ( -- ) GetFileName: self count SetText: super ;M :M ?Modified: ( -- f ) false ;M :M GetFileType: ( -- n ) FT_HTML ;M :M Update: ( -- ) ;M :M Dump: ( addr cnt -- ) Dump: ChildWindow SetWindowTitle: self ;M ;Class : NewHexViewWnd ( -- ) New> HexViewChild to ActiveChild MDIClientWindow: Frame Start: ActiveChild ; \s Index: EdTabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdTabControl.f 5 Jun 2006 09:19:00 -0000 1.1 --- EdTabControl.f 7 Jun 2006 01:41:26 -0000 1.2 *************** *** 173,176 **** --- 173,178 ---- ClassBrowserWindow cClassTree ClassBrowserWindow cVocTree + int voc-update \ vocabularies already scanned + int class-update \ ditto classes :M ReSize: ( -- ) *************** *** 221,225 **** SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree ! AddVocabularies: cVocTree SW_SHOW Show: cVocTree ; --- 223,230 ---- SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree ! voc-update 0= ! if AddVocabularies: cVocTree ! true to voc-update ! then SW_SHOW Show: cVocTree ; *************** *** 229,233 **** SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree ! AddClasses: cClassTree SW_SHOW Show: cClassTree ; --- 234,241 ---- SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree ! class-update 0= ! if AddClasses: cClassTree ! true to class-update ! then SW_SHOW Show: cClassTree ; *************** *** 267,270 **** --- 275,280 ---- :M On_Init: ( -- ) + 0 to class-update + 0 to voc-update self Start: cTab self Start: cFileList |
|
From: Rod O. <rod...@us...> - 2006-06-06 21:24:35
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22783/src/lib Modified Files: RebarControl.f sendmessage.f Log Message: Rod: Deprecated SendMessage.f, added SendMessage:Self to Generic-Window Index: sendmessage.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/sendmessage.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** sendmessage.f 21 Dec 2004 00:19:10 -0000 1.1 --- sendmessage.f 6 Jun 2006 17:21:02 -0000 1.2 *************** *** 1,4 **** --- 1,13 ---- \ $Id$ + \ This file is now deprecated and does nothing when loaded. + \ SendMessage:Self is defined in the class Generic-Window in Generic.f. + \ + \ : SendMessage:Self ( lParam wParam message -- result ) hWnd call SendMessage ; + \ : SendMessage:SelfDrop ( lParam wParam message -- ) SendMessage:Self drop ; + \ + \ Applications that use controls which send messages to themselves are now 512 bytes smaller. + \ Tuesday, June 06 2006 18:09:33 Rod + Comment: This file was created for compatibility and to allow file sharing. Initially I *************** *** 12,14 **** Macro SendMessage:Self " hwnd Call SendMessage" - \s --- 21,22 ---- Index: RebarControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RebarControl.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** RebarControl.f 5 Jun 2006 16:53:52 -0000 1.4 --- RebarControl.f 6 Jun 2006 17:21:02 -0000 1.5 *************** *** 11,17 **** :Class RebarControl <Super Control - : SendMessage:Self ( lParam wParam message -- result ) hWnd call SendMessage ; - : SendMessage:SelfDrop ( lParam wParam message -- ) SendMessage:Self drop ; - Record: REBARBBANDINFO int binfoSize --- 11,14 ---- |
|
From: Rod O. <rod...@us...> - 2006-06-06 21:24:17
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23678/src Modified Files: GENERIC.F Log Message: Rod: Added SendMessage:Self to Generic-Window class Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** GENERIC.F 5 Jun 2006 07:17:30 -0000 1.10 --- GENERIC.F 6 Jun 2006 17:22:15 -0000 1.11 *************** *** 112,115 **** --- 112,119 ---- in-application + + : SendMessage:Self ( lParam wParam message -- result ) hWnd call SendMessage ; + : SendMessage:SelfDrop ( lParam wParam message -- ) SendMessage:Self drop ; + \ ----------------------------------------------------------------- \ *N Methods |
|
From: Rod O. <rod...@us...> - 2006-06-06 20:24:23
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1142/demos Modified Files: TabControlDemo.f Log Message: Rod: Eliminated flicker when resizing the window Index: TabControlDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/TabControlDemo.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TabControlDemo.f 4 Jun 2006 09:58:50 -0000 1.2 --- TabControlDemo.f 6 Jun 2006 17:41:15 -0000 1.3 *************** *** 19,28 **** --- 19,32 ---- :class TabControlEx <super TabControl + (( This has no effect for a control as the window class is already registered :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M + )) :M Start: ( Parent -- ) Start: super + CS_DBLCLKS CS_GLOBALCLASS or GCL_STYLE hWnd Call SetClassLong drop + ( many controls don't have CS_HREDRAW and CS_VREDRAW set, this one does and will not redraw properly without help! ) DEFAULT_GUI_FONT call GetStockObject SetFont: self ;M *************** *** 57,68 **** LV_COLUMN lvc :M ReSize: ( -- ) \ Resize the controls within the main window. ! AutoSize: cTab ! ClientSize: cTab 2over d- ( x y w h ) ! 4dup Move: cFileList ! Move: cBrowserList ! ;M :M On_Size: ( -- ) --- 61,87 ---- LV_COLUMN lvc + :M WindowStyle: ( -- style ) + WindowStyle: super + WS_CLIPCHILDREN or + ;M + + :M WndClassStyle: ( -- style ) + \ Set the style member of the the WNDCLASS structure. + CS_DBLCLKS ;M + :M ReSize: ( -- ) \ Resize the controls within the main window. ! ClientSize: ctab \ get display area before size change ( l t r b ) ! AutoSize: cTab ! TempRect GetClientRect: cTab \ get whole client area after size change ! ( b ) TempRect.bottom 1 - min 0 TempRect 2! ! true TempRect InvalidateRect: cTab \ invalidate bottom edge ! ( r ) 0 swap TempRect.right 1 - min TempRect 2! ( l t ) 2drop ! true TempRect InvalidateRect: ctab \ invalidate right edge ! ClientSize: cTab 2over d- ( x y w h ) ! 4dup Move: cFileList ! Move: cBrowserList ! ;M :M On_Size: ( -- ) *************** *** 73,80 **** \ Show the listview control for the currently selected tab. GetSelectedTab: cTab 0= ! if SW_HIDE Show: cBrowserList ! SW_SHOW Show: cFileList ! else SW_HIDE Show: cFileList SW_SHOW Show: cBrowserList then ;M --- 92,101 ---- \ Show the listview control for the currently selected tab. GetSelectedTab: cTab 0= ! if ! SW_SHOW Show: cFileList \ show cFileList before hiding cBrowserList for less flicker ! SW_HIDE Show: cBrowserList ! else SW_SHOW Show: cBrowserList + SW_HIDE Show: cFileList then ;M |
|
From: Dirk B. <db...@us...> - 2006-06-06 03:45:10
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27588/src/lib Modified Files: MDI.F Log Message: Changed the super class for MDIChildWindow from window to child-window. Index: MDI.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** MDI.F 6 Feb 2006 17:48:17 -0000 1.7 --- MDI.F 5 Jun 2006 06:40:35 -0000 1.8 *************** *** 78,84 **** :M MDIClient: ( -- handle of MDICLient window ) ! \ MDIClient dup IF drop GetHandle: MDIClient THEN ! GetHandle: MDIClient ! ;M :M Classinit: ( -- ) --- 78,82 ---- :M MDIClient: ( -- handle of MDICLient window ) ! GetHandle: MDIClient ;M :M Classinit: ( -- ) *************** *** 93,97 **** :M On_Init: ( -- ) - \ New> MDIClientWindow to MDIClient WindowMenuNo: [ self ] NULL LoadMenu: self --- 91,94 ---- *************** *** 265,269 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! :Class MDIChildWindow <super Window \ *G This is the base class for all windows that should be displayed \ ** within the client area of a MDIFrameWindow. --- 262,266 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! :Class MDIChildWindow <super child-window \ *G This is the base class for all windows that should be displayed \ ** within the client area of a MDIFrameWindow. |
|
From: Dirk B. <db...@us...> - 2006-06-06 03:45:06
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/res In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3383/apps/Win32ForthIDE/res Added Files: Toolbar.bmp Log Message: Base commit of the new Win32Forth-Ide application. --- NEW FILE: Toolbar.bmp --- (This appears to be a binary file; contents omitted.) |
|
From: Jos v.d.V. <jo...@us...> - 2006-06-06 03:44:47
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15975/src/lib Modified Files: Listview.f Log Message: Jos: SetColumnWidth: is now able to change each colomn. Index: Listview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Listview.f 5 Jun 2006 06:39:23 -0000 1.9 --- Listview.f 5 Jun 2006 12:08:07 -0000 1.10 *************** *** 341,345 **** :M InsertColumn: ( pcol icol -- index|-1 ) LVM_INSERTCOLUMN hWnd Call SendMessage ;M :M SetColumn: ( pcol icol -- f ) LVM_SETCOLUMN hWnd Call SendMessage ;M ! :M SetColumnWidth: ( cx -- ) -1 LVM_SETCOLUMNWIDTH hWnd Call SendMessage drop ;M ( -------------------------------------------------------------------) --- 341,345 ---- :M InsertColumn: ( pcol icol -- index|-1 ) LVM_INSERTCOLUMN hWnd Call SendMessage ;M :M SetColumn: ( pcol icol -- f ) LVM_SETCOLUMN hWnd Call SendMessage ;M ! :M SetColumnWidth: ( cx icol -- ) LVM_SETCOLUMNWIDTH hWnd Call SendMessage drop ;M ( -------------------------------------------------------------------) |
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3383/apps/Win32ForthIDE Added Files: AnsLink.f ClassBrowser.f CommandID.f EdAbout.f EdCommand.f EdCompile.f EdDebug.f EdFindInFiles.f EdMenu.f EdRemote.f EdStatusbar.f EdTabControl.f EdToolbar.f EdVersion.f Main.f ProjectTree.f ScintillaHyperMDI.f ScintillaMDI.f X_SEARCH.F Log Message: Base commit of the new Win32Forth-Ide application. --- NEW FILE: EdTabControl.f --- \ $Id: EdTabControl.f,v 1.1 2006/06/05 09:19:00 dbu_de Exp $ \ \ Written by Dirk Busch cr .( Loading EdTabControl...) needs ExControls.f needs ListView.f needs ClassBrowser.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ some helper words \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : GetNotifyWnd ( addr -- hWnd ) \ Get the window handle to the control sending a WM_NOTIFY message. @ ; : GetNotifyId ( addr -- Id ) \ Get the identifier of the control sending a WM_NOTIFY message. cell+ @ ; : GetNotifyCode ( addr -- Code ) \ Get the notification code of the control sending a WM_NOTIFY message. 2 cells + @ ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ the File Listview control \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :class FileListView <super ListView LV_ITEM LvItem LV_COLUMN LvColumn LV_FINDINFO LvFindInfo :M WindowStyle: ( -- style ) WindowStyle: super WS_BORDER invert and \ remove WS_BORDER style WS_CLIPCHILDREN or [ LVS_REPORT LVS_SINGLESEL or LVS_SHOWSELALWAYS OR LVS_EDITLABELS or LVS_SORTASCENDING or ] literal or ;M :M ExWindowStyle: ( -- ) WS_EX_CLIENTEDGE ;M :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M :M Start: ( Parent -- ) Start: super [ LVCF_FMT LVCF_WIDTH or LVCF_TEXT or LVCF_SUBITEM or ] literal SetMask: LvColumn LVCFMT_LEFT Setfmt: LvColumn 200 Setcx: LvColumn z" Files" SetpszText: LvColumn Addr: LvColumn 1 InsertColumn: self drop ;M :M FindFile: ( addr -- ) \ Find a file in the list view. \ addr is the object address of the mdi child window LVFI_PARAM SetFlags: LvFindInfo SetlParam: LvFindInfo Addr: LvFindInfo -1 FindItem: self ;M :M RemoveFile: ( addr -- ) \ Remove a file from the list view. \ addr is the object address of the mdi child window FindFile: self dup -1 <> if DeleteItem: self then drop ;M create $buffer 1024 allot : FileNameToBuffer { addr1 -- addr2 } \ addr1 is the object address of the mdi child window GetFileName: addr1 count "TO-PATHEND" dup 0= if drop s" Unnamed File" then $buffer place $buffer +null $buffer 1+ ; :M AddFile: { addr -- } \ Add a file to the list view. \ addr is the object address of the mdi child window addr FindFile: self -1 = if LVIF_TEXT LVIF_PARAM or SetMask: LvItem addr SetlParam: LvItem addr FileNameToBuffer SetpszText: LvItem Addr: LvItem InsertItem: self drop then ;M :M SetFileState: ( state addr -- ) \ Set the state of a file to the list view. \ addr is the object address of the mdi child window FindFile: self dup -1 <> if LVIF_STATE SetMask: LvItem Setstate: LvItem -1 SetstateMask: LvItem Addr: LvItem swap SetItemState: self drop else drop then ;M :M Handle_Notify: ( h m w l -- f ) \ Handle the notification messages of the listview control. dup GetNotifyCode LVN_ITEMCHANGED = if LVN_GetNotifyParam OnSelect else drop then false ;M ;class \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ the Project Treeview control \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ fload ProjectTree.f :class ProjectWindow <Super ProjectTreeViewControl :M WindowStyle: ( -- style ) WindowStyle: super WS_BORDER invert and \ remove WS_BORDER style WS_CLIPCHILDREN or ;M :M ExWindowStyle: ( -- ) WS_EX_CLIENTEDGE ;M :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M :M Handle_Notify: ( h m w l -- f ) \ Handle the notification messages of the treeview control. dup GetNotifyCode NM_DBLCLK = if IDM_EXECUTEFILE DoCommand false else Handle_Notify: super then ;M ;class \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ an extended TabControl class \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :class TabControlEx <super TabControl :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M :M Start: ( Parent -- ) Start: super DEFAULT_GUI_FONT call GetStockObject SetFont: self ;M ;class \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ The Tabulator window \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :class TabWindow <super Child-Window TabControlEx cTab FileListView cFileList ProjectWindow cProjectTree ClassBrowserWindow cClassTree ClassBrowserWindow cVocTree :M ReSize: ( -- ) \ Resize the controls within the main window. AutoSize: cTab ClientSize: cTab 2over d- ( x y w h ) 4dup Move: cFileList 4dup Move: cProjectTree 4dup Move: cClassTree Move: cVocTree ;M :M On_Size: ( -- ) \ Handle the WM_SIZE message. On_Size: super ReSize: self ;M :M AutoSize: ( -- ) \ *G Resize the control to fit in the client area of the parent window. tempRect.AddrOf GetClientRect: Parent 0 0 Right: tempRect Bottom: tempRect \ x,y,h,w Move: self ;M : ShowFiles ( -- ) SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree SW_SHOW Show: cFileList ; : ShowProject ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cVocTree SW_HIDE Show: cClassTree \ TEST ONLY... s" proj\Win32ForthIDE.fpj" Prepend<home>\ SetProjectFileName: cProjectTree OpenProject: cProjectTree ExpandAll \ ... SW_SHOW Show: cProjectTree ; : ShowVocs ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cClassTree AddVocabularies: cVocTree SW_SHOW Show: cVocTree ; : ShowClasses ( -- ) SW_HIDE Show: cFileList SW_HIDE Show: cProjectTree SW_HIDE Show: cVocTree AddClasses: cClassTree SW_SHOW Show: cClassTree ; :M SelChange: ( -- ) \ Show the control for the currently selected tab. GetSelectedTab: cTab case 0 of ShowFiles endof 1 of ShowProject endof 2 of ShowVocs endof 3 of ShowClasses endof endcase ;M : 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 SelChange: Parent false ; :M WM_NOTIFY ( h m w l -- f ) \ Handle the notification messages of the controls. dup GetNotifyWnd GetHandle: cTab = if Handle_Notify: cTab else dup GetNotifyWnd GetHandle: cFileList = if Handle_Notify: cFileList else dup GetNotifyWnd GetHandle: cClassTree = if Handle_Notify: cClassTree else dup GetNotifyWnd GetHandle: cVocTree = if Handle_Notify: cVocTree else dup GetNotifyWnd GetHandle: cProjectTree = if Handle_Notify: cProjectTree else false then then then then then ;M :M On_Init: ( -- ) self Start: cTab self Start: cFileList self Start: cProjectTree self Start: cVocTree self Start: cClassTree \ ------------------------------------------------------------------------ ['] selchange-func IsChangeFunc: cTab TCIF_TEXT IsMask: cTab z" Files" IsPszText: cTab 1 InsertTab: cTab TCIF_TEXT IsMask: cTab z" Project" IsPszText: cTab 2 InsertTab: cTab TCIF_TEXT IsMask: cTab z" Vocabularies" IsPszText: cTab 3 InsertTab: cTab TCIF_TEXT IsMask: cTab z" Classes" IsPszText: cTab 4 InsertTab: cTab \ ------------------------------------------------------------------------ ReSize: self \ resize the controls within the main window SelChange: self \ show the control for the currently selected tab ;M :M AddFile: ( addr -- ) \ Add a file to the file list view. AddFile: cFileList ;M :M RemoveFile: ( addr -- ) \ Remove a file from the file list view. RemoveFile: cFileList ;M :M DeSelectFile: ( addr -- ) \ DeSelect a file in the file list view. cr ." DeSelectFile: " dup h. 0 swap SetFileState: cFileList ;M :M SelectFile: ( addr -- ) \ Select a file in the file list view. cr ." SelectFile: " dup h. LVIS_SELECTED swap SetFileState: cFileList ;M ;class --- NEW FILE: EdVersion.f --- \ $Id: EdVersion.f,v 1.1 2006/06/05 09:19:00 dbu_de Exp $ 10128 value sciedit_version# \ Version numbers: v.ww.rr \ \ v Major version \ ww Minor version \ rr Release \ \ Odd minor version numbers are possibly unstable beta releases. : (.sciedit_version) ( -- addr len ) sciedit_version# 0 <# # # '.' hold # # '.' hold #s #> ; create sciedit-compile-version time-len allot \ a place to save the compile time get-local-time \ save as part of compiled image time-buf sciedit-compile-version time-len move \ move time into buffer \s \ --------------------------------------------------------------------------- \ ---------------------- Initals of developers ----------------------------- \ --------------------------------------------------------------------------- DBU Dirk Busch (di...@wi...) EAB Ezra Boyce ROD Rod Oakford \ --------------------------------------------------------------------------- \ ---------------------- Known bugs ---------------------------------------- \ --------------------------------------------------------------------------- - Ctrl+a ctrl+c in the html browser window does not copy to the clipboard (jos) - In a html browser window, the filename isn't updated in the tiltlebar when a file is opened by selecting a link in the html file (dbu) - When using hyperlinking somtimes SciEdit ends in an endless loop displaying error messages in a MessageBox. (dbu) - Fixed: Samstag, August 20 2005 dbu \ --------------------------------------------------------------------------- \ ---------------------- Wish list ----------------------------------------- \ --------------------------------------------------------------------------- - Ability to compile a line or selected text (erza) - Text search with regular expressions (the sintilla control can do this) (dbu) - Search and replace text (dbu) - The hyperlinking to this source code my places the source about three lines from the bottom of the screen in a 25 lines screen. Ability much nicer to have the source code appear a few lines down from the top of the window since source code usually trails on down below the word in question (jap) - Open the last active files on startup (dbu) - Also searching backwards is useful at times. (george) - User defined color's for the Background and the Text (dbu) - Convert Tab's to spaces and spaces to Tab's (RBS) - If a second copy of a file is opend SciEdit currently activates the first copy only. It should better check if the copy on the disk is newer than the ony in memory, and ask the user to load the newer one. (dbu) - Monitor the file-system, and ask the user to reload a file if it was modified. \ --------------------------------------------------------------------------- \ ---------------------- Change Log ---------------------------------------- \ --------------------------------------------------------------------------- \ changes for Version 1.01.02 dbu Samstag, August 14 2004 - New "View" and "Options" menu - New Menu entry "Save all Files before Compile" in the "Options" menu. If this option is active all open source files will be saved before the compilation of the active file. If this option is inactive only the active file will be saved - Enhanced toolbar \ changes for Version 1.01.03 dbu Sonntag, August 15 2004 - New menu Entry "Colorize source" in the "View" menu to turn colorization on and off (new w32fScintilla.dll Version 1.6.1.4 is needed). dbu Montag, August 16 2004 - New menu Entry "Display Line numers" in the "View" menu (thank's Erza to tell me how it works). \ changes for Version 1.01.04 dbu Samstag, August 21 2004 - New Menu entry "Customize toolbar..." in the "Options" menu - made debug support work - "Search..." and "Find text in Files..." now grab the highlighted text \ changes for Version 1.01.05 dbu Sonntag, August 22 2004 - New "Close file" and "Close all" buttons in the toolbar - enable/disableing of toolbar buttos and menu entries corrected \ changes for Version 1.01.06 dbu Samstag, August 28 2004 - New Menu entries "Line cut...", "Line copy", "Line transpose", "Line duplicate", "Lowercase" and "Uppercase" in the "Edit" menu. - Little enhancement of the debug support \ changes for Version 1.01.07 dbu Sonntag, August 29 2004 - Added a recent file list to the File menu (Thank's Rod for the code) \ changes for Version 1.01.08 dbu Samstag, September 04 2004 - Fixed some Win98 bug's (I hope) as Rod sugested - Deleted some duplicated command id's (thank's Prad) - Removed the obsolate Download stuff - Changed the "Open Source files" and "The open HTML Files" dialog's to allow multiple selection of files - Fixed a bug in the recent file list (HTML files were opend for editing and not for displaying HTML) - Enabled Drag & Drop from windows explorer to open files. - Changed to open only one copy of a file. If you try to open a second copy the window of first one is activated and it beep's one time. - New menu entry "Set Tab options..." in the options menu. It opens a dialog were you can set the tab size (between 1 and 8 chars) and if you want to insert real tab's or spaces (soft tab's) \ changes for Version 1.01.09 dbu Sonntag, September 05 2004 - Fixed a bug in the Class browser; once it was closed it couldn't be opend again - New entries in the "Options" menu to hide the Toolbar and/or Statusbar of the main window dbu Montag, September 06 2004 - Added a Statusbar to the Class browser window to tell the user how to open the source for a definition - In Brwose mode the statusbar of the main window now displays a text how to use the browse mode. \ changes for Version 1.01.10 dbu Dienstag, September 07 2004 - New menu entry "Open Highlighted File" in "File" menu (it need's some more work) \ changes for Version 1.01.11 dbu Donnerstag, September 09 2004 - Fixed the WM_COMMAND handling problems (I hope) - Fixed the NewFile: method of the EditorChild class whitch was complety broken \ changes for Version 1.01.12 dbu Samstag, September 11 2004 - Accelerator table support rewritten \ changes for Version 1.01.13 dbu Samstag, September 11 2004 Sonntag, September 12 2004 - WM_COMMAND handling reworked (I hope that it's finaly working now) \ changes for Version 1.01.14 dbu Dienstag, September 14 2004 - Fixed the display of the filename in the Titlebar \ changes for Version 1.01.15 dbu Donnerstag, September 16 2004 - Fixed loading of files \ changes for Version 1.01.16 dbu Samstag, September 18 2004 - Fixed some smal bugs in the colorization support \ changes for Version 1.01.17 dbu Samstag, Oktober 02 2004 - SciEditMDI now has it's own Icon's for the Main- and the MDI-windows \ changes for Version 1.01.18 dbu Mittwoch, Oktober 06 2004 - Changed to use Rod's AcceleratorTables.f instead of my Accel.f \ changes for Version 1.01.19 dbu Montag, November 08 2004 - Update w32fScintilla.dll to use the latest Scintilla Version 1.62 - File>Exit terminated SciEdit without saving changed files; fixed \ changes for Version 1.01.20 dbu Samstag, Dezember 04 2004 - New Button's "Back" and "Forward" added to the toolbar used to navigate within HTML documents and for browseing within the source files (Hyperlinking) \ changes for Version 1.01.21 dbu Sonntag, Dezember 26 2004 - New command "Help for highlighted Win32-API function" added to the help menu. The Win32-SDK help file is needed for this command. If you don't have a copy you can download it from: http://www.borland.com/devsupport/borlandcpp/patches/BC52HLP1.ZIP Don't forget to copy the win32.hlp file into the 'doc\hlp' folder of your Win32Forth version \ changes for Version 1.01.22 dbu Freitag, August 19 2005 - SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug. \ changes for Version 1.01.23 dbu Samstag, August 20 2005 - Fixed some bugs in the hyper-linking and in the debug-interface. EAB August 21, 2005 - Added a little integration with ForthForm. If SciEdit is open ForthForm will use it for editing/viewing sources. Modification in EdRemote.f. dbu August 21, 2005 - Made the communication beetween SciEdit and the console window work a better (I hope). - New menu entry "Handle debug messages?" in the Win32Forth menu to turn off the handling of the debug messages from the console window. \ changes for Version 1.01.24 dbu Mittwoch, August 31 2005 - New options "Remove trailing white space" and "Ensure final line ending" \ changes for Version 1.01.25 dbu Donnerstag, Dezember 08 2005 - New "Glossary" command (ALT+G), that turns the selected lines into a glossary entry (for DexH) \ changes for Version 1.01.26 dbu Sonntag, Januar 08 2006 - New "DexH" menu. - Moved "Glossary" command into the DexH menu. - New "Bold" command (ALT+B) that turns the selected text into bold style for DexH. - New "Italic" command (ALT+I) that turns the selected text into italic style for DexH. - Fixed some bugs. \ changes for Version 1.01.27 dbu Samstag, Januar 21 2006 - New "Paragraph" command (ALT+P), that turns the selected lines into a paragraph (for DexH) - New "Code paragraph" command (CTRL+ALT+C), that turns the selected lines into a paragraph that is a code example (for DexH). - New "Typewriter" command (CTRL+ALT+T) that turns the selected text into typwriter style for DexH. \ changes for Version 1.01.28 Rod Saturday, May 06 2006 - Added Print and PageSetup --- NEW FILE: CommandID.f --- \ $Id: CommandID.f,v 1.1 2006/06/05 09:19:00 dbu_de Exp $ \ File: CommandID.f \ \ Author: Dirk Busch (dbu) \ Email: dir...@wi... \ \ Created: Mittwoch, Juni 09 2004 - dbu \ Updated: Samstag, Juli 03 2004 - 10:52 - dbu \ Saturday, May 06 2006 Added Print and PageSetup - Rod cr .( Loading Menu Command ID's...) : NewID ( <name> -- ) defined IF drop ELSE count "header NextId DOCON , , THEN ; IdCounter constant IDM_FIRST \ File menu NewID IDM_NEW_SOURCE_FILE NewID IDM_OPEN_SOURCE_FILE NewID IDM_CLOSE NewID IDM_SAVE NewID IDM_SAVE_AS NewID IDM_SAVE_ALL NewID IDM_RELOAD NewID IDM_OPEN_HTML_FILE NewID IDM_PRINT NewID IDM_PAGE_SETUP NewID IDM_EXIT NewID IDM_OPEN_RECENT_FILE NewID IDM_OPEN_HIGHLIGHTED_FILE \ Edit menu NewID IDM_UNDO NewID IDM_REDO NewID IDM_CUT NewID IDM_COPY NewID IDM_PASTE NewID IDM_DELETE NewID IDM_SELECT_ALL NewID IDM_REMOVE_SELECTION NewID IDM_FIND_TEXT NewID IDM_FIND_NEXT NewID IDM_FIND_PREVIOUS NewID IDM_FIND_IN_FILES NewID IDM_INSERT_DATE NewID IDM_INSERT_DATE&TIME NewID IDM_COMMENT_BLOCK NewID IDM_UNCOMMENT_BLOCK NewID IDM_LOWERCASE NewID IDM_UPPERCASE NewID IDM_LINECUT NewID IDM_LINEDELETE NewID IDM_LINECOPY NewID IDM_LINETRANSPOSE NewID IDM_LINEDUPLICATE \ DexH menu NewID IDM_DEX_GLOSSARY NewID IDM_DEX_PARAGRAPH NewID IDM_DEX_CODE_PARAGRAPH NewID IDM_DEX_STYLE_BOLD NewID IDM_DEX_STYLE_ITALIC NewID IDM_DEX_STYLE_TYPEWRITER \ View menu NewID IDM_VIEW_EOL NewID IDM_VIEW_WHITESPACE NewID IDM_VIEW_LINE_NUMBERS NewID IDM_COLORIZE NewID IDM_BROWSE \ Options menu NewID IDM_EOL_CRLF NewID IDM_EOL_LF NewID IDM_EOL_CR NewID IDM_CREATE_BAK NewID IDM_SAVE_ALL_BEFORE_COMPILE NewID IDM_TABS NewID IDM_SHOW_TOOLBAR NewID IDM_SHOW_STATUSBAR NewID IDM_REMOVE_TRAILING_WHITE NewID IDM_ENSURE_FINAL_LINE_ENDING \ Win32Forth menu NewID IDM_COMPILE NewID IDM_DEBUG NewID IDM_HANDLEW32FMSG \ Window menu NewID IDM_TILE_HORIZONTAL NewID IDM_TILE_VERTICAL NewID IDM_ARRANGE NewID IDM_CASCADE NewID IDM_CLOSE_ALL \ Help menu NewID IDM_W32F_ANS_HELP NewID IDM_API_HELP NewID IDM_W32F_HOMEPAGE NewID IDM_W32F_FORUM NewID IDM_W32F_DOC NewID IDM_ANS_DOC NewID IDM_ABOUT \ Toolbar NewID IDM_BACK NewID IDM_FORWARD \ for the ProjectTree NewID IDM_SHOW_FILE NewID IDM_EXECUTEFILE IdCounter constant IDM_LAST : allot-erase ( n -- ) here over allot swap erase ; Create CommandTable IDM_LAST IDM_FIRST - cells allot-erase : IsCommand? ( ID -- f ) IDM_FIRST IDM_LAST within ; : >CommandTable ( ID -- addr ) dup IsCommand? if IDM_FIRST - cells CommandTable + else drop abort" error - command ID out of range" then ; : DoCommand ( ID -- ) >CommandTable @ ?dup IF execute THEN ; : SetCommand ( ID -- ) last @ name> swap >CommandTable ! ; --- NEW FILE: EdMenu.f --- \ $Id: EdMenu.f,v 1.1 2006/06/05 09:19:00 dbu_de Exp $ \ File: EdMenu.f \ \ Author: Dirk Busch (dbu) \ Email: dir...@wi... \ \ Created: Sonntag, Juli 04 2004 - dbu \ Updated: Saturday, May 06 2006 - Rod \ \ Menu support for SciEdit cr .( Loading Scintilla Menu...) needs CommandID.f needs AnsLink.f needs src/tools/SdkHelp.f MenuBar MainMenu Popup "&File" MenuItem "&New file\tCtrl+N" IDM_NEW_SOURCE_FILE DoCommand ; MenuItem "&Open file...\tCtrl+O" IDM_OPEN_SOURCE_FILE DoCommand ; :MenuItem mf_close "&Close file" IDM_CLOSE DoCommand ; MenuSeparator :MenuItem mf_save "&Save file\tCtrl+S" IDM_SAVE DoCommand ; :MenuItem mf_saveas "Save file &as..." IDM_SAVE_AS DoCommand ; :MenuItem mf_saveall "Save all files\tAlt+S" IDM_SAVE_ALL DoCommand ; MenuSeparator \ :MenuItem mf_reload "&Revert to last saved version\tCtrl+R" IDM_RELOAD DoCommand ; \ MenuSeparator :MenuItem mf_openhl "Open Highlighted File\tCtrl+Shift+O" IDM_OPEN_HIGHLIGHTED_FILE DoCommand ; MenuSeparator MENUITEM "Open &HTML File..." IDM_OPEN_HTML_FILE DoCommand ; MenuSeparator :MenuItem mf_print "&Print...\tCtrl+P" IDM_PRINT DoCommand ; :MenuItem mf_page_setup "Page Set&up..." IDM_PAGE_SETUP DoCommand ; MenuSeparator MenuItem "E&xit\tALT+F4" IDM_EXIT DoCommand ; \ MenuSeparator 8 RECENTFILES RecentFiles IDM_OPEN_RECENT_FILE DoCommand ; Popup "&Edit" :MenuItem me_undo "&Undo\tCtrl+Z" IDM_UNDO DoCommand ; :MenuItem me_redo "&Redo\tCtrl+Y" IDM_REDO DoCommand ; MenuSeparator :MenuItem me_cut "&Cut\tCtrl+X" IDM_CUT DoCommand ; :MenuItem me_copy "C&opy\tCtrl+C" IDM_COPY DoCommand ; :MenuItem me_paste "&Paste\tCtrl+V" IDM_PASTE DoCommand ; :MenuItem me_delete "&Delete\tDel" IDM_DELETE DoCommand ; MenuSeparator :MenuItem me_linecut "&Line cut\tCtrl+L" IDM_LINECUT DoCommand ; :MenuItem me_linecopy "&Line copy\tCtrl+Shift+T" IDM_LINECOPY DoCommand ; :MenuItem me_linedelete "&Line delete\tCtrl+Shift+L" IDM_LINEDELETE DoCommand ; :MenuItem me_linetranspose "&Line transpose\tCtrl+T" IDM_LINETRANSPOSE DoCommand ; :MenuItem me_lineduplicate "&Line duplicate\tCtrl+D" IDM_LINEDUPLICATE DoCommand ; MenuSeparator :MenuItem me_selectall "&Select all\tCtrl+A" IDM_SELECT_ALL DoCommand ; :MenuItem me_removesel "R&emove selection" IDM_REMOVE_SELECTION DoCommand ; MenuSeparator :MenuItem me_find "Se&arch...\tCtrl+F" IDM_FIND_TEXT DoCommand ; :MenuItem me_findnext "Search &next\tF3" IDM_FIND_NEXT DoCommand ; \ :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; MenuSeparator :MenuItem me_findinfiles "Find Text in Files..." IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; :MenuItem me_date&time "&Insert Date and Time\tAlt+T" IDM_INSERT_DATE&TIME DoCommand ; MenuSeparator :MenuItem me_commentblock "&Block comment\tAlt+C" IDM_COMMENT_BLOCK DoCommand ; :MenuItem me_uncommentblock "B&lock &uncomment\tAlt+U" IDM_UNCOMMENT_BLOCK DoCommand ; MenuSeparator :MenuItem me_lower "&Lowercase\tCtrl+U" IDM_LOWERCASE DoCommand ; :MenuItem me_upper "&Uppercase\tCtrl+Shift+U" IDM_UPPERCASE DoCommand ; Popup "&DexH" :MenuItem me_dexGlossary "&Glossary\tAlt+G" IDM_DEX_GLOSSARY DoCommand ; :MenuItem me_dexParagraph "&Paragraph\tAlt+P" IDM_DEX_PARAGRAPH DoCommand ; :MenuItem me_dexCodeParagraph "&Code paragraph\tCtrl+Alt+C" IDM_DEX_CODE_PARAGRAPH DoCommand ; MenuSeparator :MenuItem me_dexStyleBold "&Bold\tAlt+B" IDM_DEX_STYLE_BOLD DoCommand ; :MenuItem me_dexStyleItalic "&Italic\tAlt+I" IDM_DEX_STYLE_ITALIC DoCommand ; :MenuItem me_dexStyleTypewriter "&Typewriter\tCtrl+Alt+T" IDM_DEX_STYLE_TYPEWRITER DoCommand ; Popup "&View" :MenuItem mp_vieweol "Display &Line endings" IDM_VIEW_EOL DoCommand ; :MenuItem mp_viewws "Display &White space" IDM_VIEW_WHITESPACE DoCommand ; :MenuItem mp_viewln "Display Line &numbers" IDM_VIEW_LINE_NUMBERS DoCommand ; MenuSeparator :MenuItem mp_colorize "&Colorize source" IDM_COLORIZE DoCommand ; MenuSeparator :MenuItem mp_browse "&Browse\tF7" IDM_BROWSE DoCommand ; Popup "&Options" SUBMENU "&Line endings" :MenuItem mf_windows "&Windows (CR\LF)" IDM_EOL_CRLF DoCommand ; :MenuItem mf_unix "&Unix (LF)" IDM_EOL_LF DoCommand ; :MenuItem mf_mac "&Mac (CR)" IDM_EOL_CR DoCommand ; ENDSUBMENU MenuSeparator :MenuItem mp_backup "&Create Backup File (*.BAK)" IDM_CREATE_BAK DoCommand ; MenuSeparator :MenuItem mp_rtwh "&Remove trailing white space" IDM_REMOVE_TRAILING_WHITE DoCommand ; :MenuItem mp_efle "&Ensure final line ending" IDM_ENSURE_FINAL_LINE_ENDING DoCommand ; MenuSeparator :MenuItem mp_sabcompile "&Save all files before Compile" IDM_SAVE_ALL_BEFORE_COMPILE DoCommand ; MenuSeparator :MenuItem mp_tabs "&Set Tab options..." IDM_TABS DoCommand ; MenuSeparator :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ; Popup "&Win32Forth" :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_debug "&Debug...\tF11" IDM_DEBUG DoCommand ; :MenuItem mp_HandleW32FMsg "&Handle debug messages?" IDM_HANDLEW32FMSG DoCommand ; POPUP "W&indow" :MenuItem mf_tile_hor "Tile &horizontally" IDM_TILE_HORIZONTAL DoCommand ; :MenuItem mf_tile_ver "Tile &vertically" IDM_TILE_VERTICAL DoCommand ; :MenuItem mf_arrange "&Arrange" IDM_ARRANGE DoCommand ; :MenuItem mf_cascade "Ca&scade" IDM_CASCADE DoCommand ; MenuSeparator :MenuItem mf_close_all "&Close all" IDM_CLOSE_ALL DoCommand ; Popup "&Help" :MenuItem mp_anshelp "Help for highlighted ANS-Word\tCtrl+F1" IDM_W32F_ANS_HELP DoCommand ; :MenuItem mp_apihelp "Help for highlighted Win32-API function\tShift+F1" IDM_API_HELP DoCommand ; MenuSeparator MENUITEM "Win32Forth &Documentation\tF1" IDM_W32F_DOC DoCommand ; MENUITEM "ANS Forth &Standard\tAlt+F1" IDM_ANS_DOC DoCommand ; MenuSeparator MENUITEM "Win32Forth &Project Group" IDM_W32F_HOMEPAGE DoCommand ; MENUITEM "Win32Forth &Forum" IDM_W32F_FORUM DoCommand ; MenuSeparator MENUITEM "&About..." IDM_ABOUT DoCommand ; EndBar 6 constant WINDOW-MENU : GetFileType ( -- n ) ActiveChild if GetFileType: ActiveChild else -1 then ; : IsEditWnd? ( -- f ) GetFileType FT_SOURCE = ; : IsHtmlWnd? ( -- f ) GetFileType FT_HTML = ; : NoTextToPad ( -- addr len ) \ copy empty string to PAD 0 pad ! pad count ; : SelTextToPad ( -- addr len ) \ copy the selected text into PAD \ default no Text ActiveChild 0<> 0 GetSelText: ActiveChild MAXSTRING CHARS < and \ check size of selected text if pad GetSelText: ActiveChild if pad zcount BL skip -trailing 10 -TRAILCHARS 13 -TRAILCHARS else NoTextToPad then else NoTextToPad then ; : IsAnsWordSelected? ( -- f ) SelTextToPad ?dup if BL skip BL -TRAILCHARS IsAnsWord? else drop false then ; : EnableEdit ( f -- ) \ File menu dup Enable: mf_save dup Enable: mf_saveas \ dup Enable: mf_reload dup Enable: mf_openhl dup Enable: mf_print dup Enable: mf_page_setup \ Edit menu dup Enable: me_undo dup Enable: me_redo dup Enable: me_cut dup Enable: me_copy dup Enable: me_paste dup Enable: me_delete dup Enable: me_selectall dup Enable: me_removesel dup Enable: me_find dup Enable: me_findnext \ dup Enable: me_findprev dup Enable: me_date dup Enable: me_date&time dup Enable: me_commentblock dup Enable: me_uncommentblock dup Enable: me_lower dup Enable: me_upper dup Enable: me_linecut dup Enable: me_linedelete dup Enable: me_linecopy dup Enable: me_linetranspose dup Enable: me_lineduplicate \ DexH menu dup Enable: me_dexGlossary dup Enable: me_dexParagraph dup Enable: me_dexCodeParagraph dup Enable: me_dexStyleBold dup Enable: me_dexStyleItalic dup Enable: me_dexStyleTypewriter \ View menu dup Enable: mp_vieweol dup Enable: mp_viewws dup Enable: mp_viewln dup Enable: mp_colorize dup Enable: mp_browse \ Options menu dup Enable: mf_windows dup Enable: mf_unix dup Enable: mf_mac dup Enable: mp_backup dup Enable: mp_sabcompile dup Enable: mp_tabs dup Enable: mp_rtwh dup Enable: mp_efle \ Win32Forth menu dup Enable: mp_compile dup Enable: mp_debug \ dup Enable: mp_HandleW32FMsg \ Help menu dup Enable: mp_anshelp dup Enable: mp_apihelp drop ; : EnableMenuBar ( -- ) \ enable/disable the menu items IsEditWnd? dup EnableEdit if \ File menu ?Modified: ActiveChild 0<> ?BrowseMode: ActiveChild not and Enable: mf_save ?BrowseMode: ActiveChild not Enable: mf_saveas ?Selection: ActiveChild Enable: mf_openhl GetTextLength: ActiveChild Enable: mf_print \ Edit menu CanUndo: ActiveChild Enable: me_undo CanRedo: ActiveChild Enable: me_redo ?Selection: ActiveChild Enable: me_cut ?Selection: ActiveChild Enable: me_copy CanPaste: ActiveChild Enable: me_paste ?Selection: ActiveChild Enable: me_delete GetTextLength: ActiveChild Enable: me_selectall ?Selection: ActiveChild Enable: me_removesel GetTextLength: ActiveChild Enable: me_find ?Find: ActiveChild Enable: me_findnext \ ?Find: ActiveChild Enable: me_findprev ?BrowseMode: ActiveChild not Enable: me_date ?BrowseMode: ActiveChild not Enable: me_date&time ?Selection: ActiveChild Enable: me_commentblock ?Selection: ActiveChild Enable: me_uncommentblock ?Selection: ActiveChild Enable: me_lower ?Selection: ActiveChild Enable: me_upper GetTextLength: ActiveChild Enable: me_linecut GetTextLength: ActiveChild Enable: me_linedelete GetTextLength: ActiveChild Enable: me_linecopy GetTextLength: ActiveChild Enable: me_linetranspose GetTextLength: ActiveChild Enable: me_lineduplicate \ DexH menu ?Selection: ActiveChild Enable: me_dexGlossary ?Selection: ActiveChild Enable: me_dexParagraph ?Selection: ActiveChild Enable: me_dexCodeParagraph ?Selection: ActiveChild Enable: me_dexStyleBold ?Selection: ActiveChild Enable: me_dexStyleItalic ?Selection: ActiveChild Enable: me_dexStyleTypewriter \ View menu ViewEOL? Check: mp_vieweol ViewWhiteSpace? Check: mp_viewws ViewLineNumbers? Check: mp_viewln Colorize? Check: mp_colorize ?BrowseMode: ActiveChild Check: mp_browse \ Options menu EOL SC_EOL_CRLF = Check: mf_windows EOL SC_EOL_LF = Check: mf_unix EOL SC_EOL_CR = Check: mf_mac CreateBackup? Check: mp_backup SaveAllBeforeCompile? Check: mp_sabcompile StripTrailingWhitespace? Check: mp_rtwh FinalNewLine? Check: mp_efle \ Win32Forth menu GetTextLength: ActiveChild Enable: mp_compile ActiveRemote ActiveChild = HandleW32FMsg? and Enable: mp_debug HandleW32FMsg? Check: mp_HandleW32FMsg \ Help menu IsAnsWordSelected? Enable: mp_anshelp sdk-help? Enable: mp_apihelp then ShowToolbar? Check: mp_showtb ShowStatusbar? Check: mp_showsb ShowToolbar? Enable: mp_customizetb ActiveChild 0<> dup Enable: mf_saveall dup Enable: mf_close dup Enable: mf_close_all dup Enable: mf_tile_hor dup Enable: mf_tile_ver dup Enable: mf_arrange Enable: mf_cascade 0 ; --- NEW FILE: X_SEARCH.F --- \ ----------------------------------------------------------------------------- \ X_Search.f \ \ Text Search functions for WinEd \ \ July 6th, 2003 dbu - Extracted from WinEd.f \ - changed to allow wildcard search \ July 19th, 2003 dbu - fixed some bug's in the wildcard search \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- \ some helper words \ ----------------------------------------------------------------------------- needs w_search.f \ Wildcard text search written by J.v.d.Ven [UNDEFINED] 2+ [if] CODE 2+ ( n1 -- n2 ) \ add two to n1 inc ebx inc ebx next c; [then] [UNDEFINED] 2- [if] CODE 2- ( n1 -- n2 ) \ sub two from n1 dec ebx dec ebx next c; [then] \ ----------------------------------------------------------------------------- \ Findtext dialog \ ----------------------------------------------------------------------------- [UNDEFINED] FindTextDlg [if] NewEditDialog FindTextDlg "Find Text" "Search for:" "Find" "" "Case Sensitive Search" [then] \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- create find-buf MAXSTRING allot find-buf off 0 value busy? \ flag to prevent reentrancy FALSE value find-label? \ are we searching for a label? \ 0 value CaseSensitive? \ case sensitive search or not? (now in w_serach.f July 8th, 2003 - 18:46 - dbu) 0 value found_len \ length of the string we found (new July 6th, 2003 - dbu) 0 value srch_len 0 value startcol \ search for sa2,sn2 within string sa1,sn1. \ (Allow ALT 0160 followed by a space as a pseudo leading space ) : (xsearch) { sa1 sn1 sa2 sn2 \ pspf ldsp1 ldsp2 trsp2 n4 -- a3 n3 flg } \ search for sa2,sn2 within string sa1,sn1. \ case sensitive selectable \ sa1 target starting address \ sn1 target initial count \ sa2 search buffer starting address \ sn2 search buffer count \ pspf pseudo-space flag \ ldsp1 count of leading spaces in target \ ldsp2 count of leading spaces in search buffer \ trsp2 count of trailing spaces in search buffer \ a3 starting address of possible matched string in target \ n3 remaining count in target \ n4 length of string matched, possibly excluding some leading or trailing spaces \ flg is truth value of search sn2 to found_len \ save the length of the string we found 0 to srch_len false to pspf 0 to ldsp2 0 to trsp2 0 to n4 sa1 sn1 bl skip drop sa1 - to ldsp1 sa2 w@ 0x20A0 = \ a pseudo-space flag? IF sa2 sn2 1 /string to sn2 to sa2 sa2 sn2 bl skip drop sa2 - to ldsp2 startcol 0= ldsp2 ldsp1 > and IF true to pspf \ only if we are at the line start THEN ELSE sa2 sn2 bl skip drop sa2 - to ldsp2 THEN sa2 sn2 -trailing sn2 over - to trsp2 \ count trailing spaces dup to sn2 \ modify sn2 to exclude trailing spaces bl skip sn2 swap - to ldsp2 drop \ count leading spaces pspf \ possible pseudo space case IF sa1 sa2 sn2 ldsp2 ldsp1 - /string \ advance search buffer pointer dup to n4 swap n4 \ ( sa1 n4 sa2 n4 ) CaseSensitive? 0= IF caps-compare ELSE compare THEN 0= \ if result is 0, string is matched to start IF \ of trailing spaces sa1 sn1 2dup n4 /string \ look for trailing spaces 2dup bl skip dup 0= IF \ We have reached the end of the target buffer 2drop nip trsp2 min n4 + dup to srch_len 0<> EXIT ELSE \ We have NOT reached the end of the target nip - nip trsp2 >= IF \ Enough trailing spaces trsp2 n4 + dup to srch_len 0<> EXIT THEN THEN THEN 2drop \ clean up stack THEN sn2 to n4 BEGIN CaseSensitive? 0= \ search IF sa1 sn1 sa2 sn2 caps-search ELSE sa1 sn1 sa2 sn2 search THEN IF \ String is matched to start of trailing spaces 2dup n4 /string \ look for trailing spaces 2dup bl skip dup 0= IF \ We have reached the end of the target buffer 2drop nip trsp2 min n4 + dup to srch_len 0<> EXIT ELSE \ We have NOT reached the end of the target nip - nip trsp2 >= IF \ Enough trailing spaces trsp2 n4 + dup to srch_len 0<> EXIT THEN THEN 1 /string dup n4 < IF \ Not enough characters left for a match 0 to srch_len 0 EXIT THEN to sn1 dup sa1 - +to startcol to sa1 ELSE \ No match possible 0 to srch_len 0 EXIT THEN AGAIN ; \ Rewritten to allow wildcard text search ( July 6th, 2003 - dbu ) \ Changed to use Jos new Version of w_search.f ( July 8th, 2003 - 18:43 - dbu ) : xsearch { sa1 sn1 sa2 sn2 \ buff$ -- a3 n3 flg } \ search for sa2,sn2 within string sa1,sn1. \ sa1 target starting address \ sn1 target initial count \ sa2 search buffer starting address \ sn2 search buffer count \ a3 starting address of possible matched string in target \ n3 remaining count in target sn1 1 < sn2 1 < or if \ there is not text to search in or no text to search for sa1 sn1 false else sa2 sn2 wildcard-char scan nip sn2 1 > and if \ there is a bug in w-search if the search string dosn't \ start with a wildcard char no text will be found \ J.v.d.Ven explaind to me that this isn't bug. So I removed the "bugfix" \ July 28th, 2003 - 17:22 dbu \ sn2 2+ LocalAlloc: buff$ \ sa2 c@ wildcard-char <> \ if 1 buff$ c! wildcard-char buff$ 1+ c! \ store wildcard char into the buffer \ sa2 sn2 buff$ +place \ and append the search string \ else \ sa2 sn2 buff$ place \ only put the search string into the buffer \ then \ buff$ count sa1 sn1 CaseSensitive? w-search 0= \ perform wildcard search sa2 sn2 sa1 sn1 CaseSensitive? w-search 0= \ perform wildcard search if \ we didn't find the text 2drop sa1 sn1 false else \ we found it to found_len \ save the length of the string we found sa1 over - sn1 + \ calc the remaining count in target true then else sa1 sn1 sa2 sn2 (xsearch) \ perform normal search then then ; \ selectably case sensitive search backwards \ rls mods January 6th, 2002 - 20:35 : -xsearch { sadr slen fadr flen \ ffnd srch_lenz -- a3 n3 n4 } 0 to ffnd sadr slen BEGIN fadr flen xsearch WHILE dup +to startcol srch_len to srch_lenz 2dup to slen to sadr 1 /string true to ffnd REPEAT srch_lenz to srch_len 2drop sadr slen ffnd ; 0 value search-till : .searching ( n1 -- ) dup 0= IF 0 to search-till FALSE to search-aborted? THEN search-till 4000 >= IF search-till 4000 = IF s" Searching: \n\nPress ESC to abort" "message THEN dup 1000 mod 0= IF s" Searching: \n\nPress ESC to abort" 2>r 0 (ud,.) 2r@ bl scan drop 1+ swap 11 min move 2r> MessageText: msg-window Refresh: msg-window key? IF key k_esc = to search-aborted? THEN ELSE drop THEN ELSE drop THEN 1 +to search-till ; \ Changed to allow wildcard text search ( July 6th, 2003 - dbu ) [defined] file-lines [if] : to-find-line ( col row -- ) \ set cursor position to the line with the text we found file-lines 1- min 0max to cursor-line to cursor-col 0 HPosition: DocWindow cursor-on-screen cursor-col found_len + screen-cols 3 - - HPosition: DocWindow cursor-line dup to hlst to hled cursor-col to hcst hcst found_len + to hced ; : find-label { line# -- flag } \ flag=TRUE if we found the label line# #line" s" <A NAME" dup>r xsearch IF r> /string \ remove leading "<A NAME" string bl skip \ skip any leading blanks '=' skip \ skip equal sign bl skip \ skip any more leading blanks 2dup '>' scan nip - \ trim text after '>' in line \ retain trailing '"' (quote) '"' skip \ strip off leading '"' (quote) drop find-buf count tuck caps-compare 0= IF 0 line# to-find-line \ if found, move to this line TRUE \ mark as all done searching ELSE FALSE \ else we continue searching THEN ELSE 2drop r>drop FALSE THEN ; \ rls mods January 6th, 2002 - 21:14 \ Changed to allow wildcard text search ( July 6th, 2003 - dbu ) : _find-text-again ( -- f1 ) \ f1=TRUE if found false busy? ?EXIT \ leave if already busy drop \ discard the boolean, we will generate another true to busy? \ now we are busy find-buf c@ IF \ put the search text into the ComboBox find-buf count InsertString: findComboEdit \ if we reached the end of file, \ jump to start beep and exit cursor-line file-lines 1- >= IF Home: DocWindow 0 >col-cursor FALSE to busy? false beep EXIT THEN cursor-line 1-line-flag: DocWindow \ mark current line to be updated \ is the text on the current line? cursor-line #line" \ get address and length of current line dup cursor-col min to cursor-col \ don't jump behind the last char in line cursor-col /string \ jump to cursor position cursor-col to startcol \ make the actual cursor position to our start position find-buf count xsearch IF cursor-line #line" rot - nip nip \ calculate column cursor-line to-find-line \ set cursor position hcst found_len + to hced \ set highlight TRUE \ leave flag on stack ELSE 2drop \ if we are on the last line of the file, we jump \ to the first one cursor-line file-lines 1- = cursor-col cursor-line #line" nip = and IF Home: DocWindow 0 to cursor-col THEN true \ put flag on stack 0 .searching \ open the search progress dialog \ do the search over the rest of the file file-lines cursor-line file-lines 1- min 1+ ?DO I .searching \ set search progress dialog find-label? IF I find-label IF 0= \ invert the flag on stack LEAVE THEN ELSE 0 to startcol I #line" find-buf count xsearch IF i #line" rot - nip nip \ calculate column i to-find-line \ set cursor position hcst found_len + to hced \ set highlight 0= \ invert the flag on stack LEAVE \ and exit ELSE 2drop THEN THEN search-aborted? ?LEAVE LOOP IF \ we didn't find the text FALSE Home: DocWindow 0 to cursor-col ELSE TRUE THEN message-off \ colse the search progress dialog THEN refresh-line ELSE FALSE THEN ReTitle: EditorWindow FALSE to busy? ; defer find-text ( -- ) : find-text-again ( -- ) \ bound to F3 in WinEd bitImage? ?EXIT find-buf c@ 0= IF find-text ELSE 1 +to cursor-col \ skip one character _find-text-again 0= IF _find-text-again ?beep THEN THEN SetFocus: DocWindow ; \ rls mods January 6th, 2002 - 21:11 \ Changed to allow wildcard text search ( July 6th, 2003 - dbu ) : _back-find-text-again ( -- f1 ) \ f1=TRUE if found false busy? ?EXIT \ leave if already busy drop \ discard the boolean, we will generate another true to busy? \ now we are busy cursor-line 0= cursor-col 0= and IF End: DocWindow cursor-line #line.len to cursor-col THEN cursor-line 1-line-flag: DocWindow 0 to startcol cursor-line #line" cursor-col min find-buf count -xsearch IF cursor-line #line" cursor-col min rot - nip nip to cursor-col 0 HPosition: DocWindow cursor-line dup to hlst to hled cursor-col to hcst hcst found_len + to hced TRUE ELSE 2drop true 0 .searching 0 cursor-line 1- 0max ?DO i .searching 0 to startcol i #line" find-buf count -xsearch IF i #line" rot - nip nip i to-find-line hcst found_len + to hced 0= LEAVE ELSE 2drop THEN search-aborted? ?LEAVE -1 +LOOP IF End: DocWindow cursor-line #line" nip to cursor-col FALSE ELSE TRUE THEN message-off THEN refresh-line ReTitle: EditorWindow FALSE to busy? ; : back-find-text-again ( -- ) bitImage? ?EXIT busy? ?EXIT \ leave if already busy find-buf c@ 0= IF TRUE to busy? find-buf EditorWindow Start: FindTextDlg dup 2 = to CaseSensitive? FALSE to busy? find-buf c@ 0= IF drop FALSE beep THEN ELSE true THEN \ -- f1 IF _back-find-text-again 0= IF _back-find-text-again ?beep THEN THEN SetFocus: DocWindow ; [then] |
|
From: Rod O. <rod...@us...> - 2006-06-06 03:28:06
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3162/demos Added Files: RebarControlDemo.f Log Message: Rod: Demonstrates the use of a rebar control --- NEW FILE: RebarControlDemo.f --- \ $Id: RebarControlDemo.f,v 1.1 2006/06/04 21:16:23 rodoakford Exp $ \ Demonstrates the use of a rebar control to display bands containing various controls. \ Bands can be detached into tool windows. \ Sunday, June 04 2006 21:44:15 Rod Oakford \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Detachable Tool Window Class \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ COLOR_BTNFACE Call GetSysColor new-color BTNFACE :Class ToolWindow <Super Window int child \ child = control, parent = rebar \ int parent \ needed in earlier versions of Win32Forth :M Start: ( child -- ) \ start hidden hWnd IF drop ELSE to child GetParent: child to parent register-frame-window drop create-frame-window to hWnd THEN ;M :M On_Paint: ( -- ) 0 0 Width Height BTNFACE FillArea: dc ;M :M WindowStyle: ( -- style ) [ WS_POPUP WS_CAPTION or ] literal ;M :M ExWindowStyle: ( -- exstyle ) WS_EX_TOOLWINDOW ;M :M StartSize: ( -- w h ) StartSize: child ;M :M StartPos: ( -- w h ) StartPos: child ;M :M ParentWindow: ( -- hWndparent ) GetHandle: parent ;M : SetParentOfChild ( hWndparent -- ) GetHandle: child call SetParent drop ; :M Detach: ( -- ) GetID: child IdToIndex: parent DeleteBand: parent hWnd SetParentOfChild SW_SHOW Show: child StartPos: self StartSize: self Move: child 0 get-mouse-XY SetWindowPos: self ;M :M Attach: ( uBand -- ) GetHandle: parent SetParentOfChild child InsertChild: parent SW_HIDE Show: self ;M :M WM_NCLBUTTONDBLCLK ( h m w l -- res ) -1 Attach: self 0 ;M :M WM_EXITSIZEMOVE ( h m w l -- res ) HitTest: parent dup 1+ IF Attach: self ELSE drop THEN 0 ;M ;Class \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Some Toolbars \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Needs Toolbar.f 1 value IDM_NEW 2 value IDM_OPEN 3 value IDM_SAVE 4 value IDM_PRINT 5 value IDM_FIND 6 value IDM_REPLACE 7 value IDM_CUT 8 value IDM_COPY 9 value IDM_PASTE 10 value IDM_UNDO 11 value IDM_REDO 12 value IDM_PRINTPRE 13 value IDM_DELETE 14 value IDM_PROPERTIES 15 value IDM_HELP :Object Toolbar1 ( parent -- ) <super Win32ToolBar :ToolBarTable FileButtons \ Bitmap index id Initial state Initial style tool string index STD_FILENEW IDM_NEW TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_FILEOPEN IDM_OPEN TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_FILESAVE IDM_SAVE TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, SeparatorButton, STD_PRINT IDM_PRINT TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, SeparatorButton, STD_FIND IDM_FIND TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_REPLACE IDM_REPLACE TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, ;ToolBarTable :M WindowStyle: ( -- style ) \ start hidden [ WS_CHILD WS_CLIPCHILDREN or CCS_NODIVIDER or CCS_NOPARENTALIGN or CCS_NORESIZE or ] literal ;M :M StartSize: ( -- w h ) \ start size in popup window hWnd IF GetButtonCount: self 1- \ last button GetButtonRect: self >r over 2* + rot drop swap r> + \ w=r+2t, h=b+t ELSE StartSize: super THEN ;M :M StartPos: ( -- x y ) \ start position in popup window hWnd IF 0 GetButtonRect: self 2drop nip 0 \ x=top, y=0 ELSE StartPos: super THEN ;M :M Start: ( parent -- ) FileButtons IsButtonTable: self Start: super HINST_COMMCTRL IDB_STD_SMALL_COLOR 15 AddBitmaps: self drop ;M ;Object :Object Toolbar2 ( parent -- ) <super Win32ToolBar :ToolBarTable EditButtons \ Bitmap index id Initial state Initial style tool string index STD_CUT IDM_CUT TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_COPY IDM_COPY TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_PASTE IDM_PASTE TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_UNDO IDM_UNDO TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_REDOW IDM_REDO TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, ;ToolBarTable :M WindowStyle: ( -- style ) \ start hidden [ WS_CHILD WS_CLIPCHILDREN or CCS_NODIVIDER or CCS_NOPARENTALIGN or CCS_NORESIZE or ] literal ;M :M StartSize: ( -- w h ) \ start size in popup window hWnd IF GetButtonCount: self 1- \ last button GetButtonRect: self >r over 2* + rot drop swap r> + \ w=r+2t, h=b+t ELSE StartSize: super THEN ;M :M StartPos: ( -- x y ) \ start position in popup window hWnd IF 0 GetButtonRect: self 2drop nip 0 \ x=top, y=0 ELSE StartPos: super THEN ;M :M Start: ( parent -- ) EditButtons IsButtonTable: self Start: super HINST_COMMCTRL IDB_STD_SMALL_COLOR 15 AddBitmaps: self drop ;M ;Object :Object Toolbar3 ( parent -- ) <super Win32ToolBar :ToolBarTable MiscButtons \ Bitmap index id Initial state Initial style tool string index STD_PRINTPRE IDM_PRINTPRE TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_DELETE IDM_DELETE TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_PROPERTIES IDM_PROPERTIES TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, STD_HELP IDM_HELP TBSTATE_ENABLED BTNS_BUTTON 0 ToolBarButton, ;ToolBarTable :M WindowStyle: ( -- style ) \ start hidden [ WS_CHILD WS_CLIPCHILDREN or CCS_NODIVIDER or CCS_NOPARENTALIGN or CCS_NORESIZE or ] literal ;M :M StartSize: ( -- w h ) \ start size in popup window hWnd IF GetButtonCount: self 1- \ last button GetButtonRect: self >r over 2* + rot drop swap r> + \ w=r+2t, h=b+t ELSE StartSize: super THEN ;M :M StartPos: ( -- x y ) \ start position in popup window hWnd IF 0 GetButtonRect: self 2drop nip 0 \ x=top, y=0 ELSE StartPos: super THEN ;M :M Start: ( parent -- ) MiscButtons IsButtonTable: self Start: super HINST_COMMCTRL IDB_STD_SMALL_COLOR 15 AddBitmaps: self drop ;M ;Object \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ A Combobox \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object TheCombo <super ComboControl :M StartSize: ( -- x y ) 100 60 ;M \ start size in popup window :M Start: ( Parent -- ) start: super s" Option 2" InsertString: self s" Option 1" InsertString: self ;M ;Object \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ An Editbox \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ EditControl TheEdit \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ The Rebar \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Needs RebarControl.f ToolWindow Toolbar1Popup ToolWindow Toolbar2Popup ToolWindow Toolbar3Popup ToolWindow ComboPopup ToolWindow EditPopup :Object TheRebar <Super RebarControl :M WindowStyle: ( -- style ) WindowStyle: super [ WS_CLIPSIBLINGS WS_CLIPCHILDREN or WS_BORDER or RBS_VARHEIGHT or RBS_BANDBORDERS or RBS_DBLCLKTOGGLE or ] literal or ;M : InsertToolbar1 ( uBand -- ) Eraseband-info [ RBBIM_STYLE RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or ] literal to bfmask RBBS_CHILDEDGE to fstyle GetHandle: Toolbar1 to hWndChild StartSize: Toolbar1 to cyMinChild to cxMinChild GetID: Toolbar1 to wID InsertBandAt: self ; : InsertToolbar2 ( uBand -- ) Eraseband-info [ RBBIM_STYLE RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or ] literal to bfmask RBBS_CHILDEDGE to fstyle GetHandle: Toolbar2 to hWndChild StartSize: Toolbar2 to cyMinChild to cxMinChild GetID: Toolbar2 to wID InsertBandAt: self ; : InsertToolbar3 ( uBand -- ) Eraseband-info [ RBBIM_STYLE RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or ] literal to bfmask RBBS_CHILDEDGE to fstyle GetHandle: Toolbar3 to hWndChild StartSize: Toolbar3 to cyMinChild to cxMinChild GetID: Toolbar3 to wID InsertBandAt: self ; : InsertCombo ( uBand -- ) Eraseband-info [ RBBIM_STYLE RBBIM_TEXT or RBBIM_IMAGE or RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or ] literal to bfmask RBBS_CHILDEDGE RBBS_BREAK or to fstyle \ start band on a new row z" Combobox" to lpText 0 to iImage GetHandle: TheCombo to hWndChild StartSize: TheCombo to cyMinChild to cxMinChild GetID: TheCombo to wID InsertBandAt: self ; : InsertEdit ( uBand -- ) Eraseband-info [ RBBIM_STYLE RBBIM_TEXT or RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or ] literal to bfmask RBBS_CHILDEDGE to fstyle z" Editbox" to lpText 0 to iImage GetHandle: TheEdit to hWndChild StartSize: TheEdit to cyMinChild to cxMinChild GetID: TheEdit to wID InsertBandAt: self ; :M InsertChild: ( uBand child -- ) Case Toolbar1 of InsertToolbar1 Endof Toolbar2 of InsertToolbar2 Endof Toolbar3 of InsertToolbar3 Endof TheCombo of InsertCombo Endof TheEdit of InsertEdit Endof ( default ) drop EndCase ;M :M DetachChild: ( wID -- ) HitTest: self 1+ IF drop ELSE EndDrag: self Case GetID: Toolbar1 of Detach: Toolbar1Popup endof GetID: Toolbar2 of Detach: Toolbar2Popup endof GetID: Toolbar3 of Detach: Toolbar3Popup endof GetID: TheCombo of Detach: ComboPopup endof GetID: TheEdit of Detach: EditPopup endof ( default ) drop EndCase THEN ;M :M Start: ( parent -- ) Start: super 0 1 ILC_COLORDDB ILC_MASK or 32 32 call ImageList_Create 101 AppInst call LoadIcon over call ImageList_AddIcon drop RBIM_IMAGELIST SetBarInfo: self self Start: Toolbar1 0 InsertToolbar1 Toolbar1 start: Toolbar1Popup s" Toolbar1" SetText: Toolbar1Popup self Start: Toolbar2 1 InsertToolbar2 Toolbar2 start: Toolbar2Popup s" Toolbar2" SetText: Toolbar2Popup self Start: Toolbar3 2 InsertToolbar3 Toolbar3 start: Toolbar3Popup s" Toolbar3" SetText: Toolbar3Popup self Start: TheCombo 3 InsertCombo TheCombo start: ComboPopup s" Combobox" SetText: ComboPopup self Start: TheEdit 4 InsertEdit TheEdit start: EditPopup s" Editbox" SetText: EditPopup 0 MinimizeBand: self 0 1 MaximizeBand: self 0 2 MaximizeBand: self ;M ;Object \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ A Child Window \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object TheChild <Super Child-Window :M WndClassStyle: ( -- style ) CS_DBLCLKS ;M :M On_Init: ( -- ) \ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop \ needed in earlier versions of Win32Forth ;M :M On_Paint: ( -- ) 0 0 width height green FillArea: dc TRANSPARENT SetBkMode: dc 0 0 15 + 2dup s" REBAR CONTROL DEMO" TextOut: dc 15 + 15 + 2dup s" Bands can be moved by clicking and dragging on the gripper, text or image." TextOut: dc 15 + 2dup s" Double clicking toggles the minimum/maximum size of the band." TextOut: dc 15 + 2dup s" Bands can be detached by dragging them off the rebar." TextOut: dc 15 + 2dup s" Double clicking the tool window attaches the band at the last position of the rebar." TextOut: dc 15 + 2dup s" Bands can be re-attached at any position by dropping the tool window on the rebar." TextOut: dc 15 + 2dup s" The rebar is auto-arranged when the main window is resized." TextOut: dc 2drop ;M ;Object \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ The Main Window \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object Frame <Super Window :M WindowStyle: ( -- style ) WindowStyle: Super WS_CLIPCHILDREN or ;M :M WndClassStyle: ( -- style ) CS_DBLCLKS ;M :M WindowHasMenu: ( -- f ) true ;M :M On_Init: ( -- ) \ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop \ needed in earlier versions of Win32Forth self start: TheChild self start: TheRebar ;M :M On_Size: ( -- ) 0 Height: TheRebar Width Height Height: TheRebar - Move: TheChild AutoSize: TheRebar ;M :M WM_NOTIFY ( hwnd msg wparam lparam -- res ) dup 8 + @ \ fetch code from NMHDR structure Case RBN_ENDDRAG of dup 24 + @ ( wID ) DetachChild: TheRebar endof RBN_HEIGHTCHANGE of On_Size: self endof EndCase 0 ;M :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam ) over HIWORD ( notification code ) Case CBN_SELCHANGE of cr ." Combobox selection changed" endof EN_CHANGE of cr ." Editbox text changed" endof EndCase over LOWORD ( command ID ) dup 1 16 within IF cr ." Toolbar button " . \ intercept Toolbar commands ELSE drop OnWmCommand: Super \ intercept Menu commands THEN ;M ;Object start: frame |
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7998/doc Modified Files: p-AcceleratorTables.htm p-callback.htm p-classdbg.htm p-float.htm p-module.htm p-noconsole.htm p-task.htm w32f-glossary.csv Log Message: DexH documentation updated to refelect the latest changes. Index: p-noconsole.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-noconsole.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-noconsole.htm 9 Feb 2006 18:01:44 -0000 1.1 --- p-noconsole.htm 5 Jun 2006 09:28:42 -0000 1.2 *************** *** 18,26 **** <hr /><h1>No console </h1><hr /><h3><i>Helper words for turnkey applications that don't need the console window and the <i> w32fConsole.dll </i>. ! </i></h3><p></p><p>To use this words you must load the file <i> src/console/NoConsole.f </i> first. </p><h2>Glossary </h2><pre><b><a name="0">: MessageLoop ( -- ) \ W32F console </a></b></pre><p>The message loop for the application. ! Use this instead of: <i> BEGIN KEY DROP AGAIN </i>. </p><pre><b><a name="1">: NoConsoleIO ( -- ) \ W32F console </a></b></pre><p>Setup of the Console I/O for turnkey applications that don't need --- 18,27 ---- <hr /><h1>No console </h1><hr /><h3><i>Helper words for turnkey applications that don't need the console window and the <i> w32fConsole.dll </i>. ! </i></h3><p></p><p>To use these words you must load the file <i> src/console/NoConsole.f </i> first. </p><h2>Glossary </h2><pre><b><a name="0">: MessageLoop ( -- ) \ W32F console </a></b></pre><p>The message loop for the application. ! Use this instead of: <i> BEGIN KEY DROP AGAIN </i>. <br /> ! Also needs to be used by tasks that start their own windows. </p><pre><b><a name="1">: NoConsoleIO ( -- ) \ W32F console </a></b></pre><p>Setup of the Console I/O for turnkey applications that don't need *************** *** 58,61 **** --- 59,63 ---- [then] </pre><p>For a full working example see <i> apps/PlayVirginRadio/PlayVirginRadio.f </i>. + </p><p>For an example of multi-tasking use see <i> demos/MultiHello.f </i>. </p><hr><p>Document $Id$</p> </body></html> Index: w32f-glossary.csv =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/w32f-glossary.csv,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** w32f-glossary.csv 25 May 2006 09:22:35 -0000 1.10 --- w32f-glossary.csv 5 Jun 2006 09:28:42 -0000 1.11 *************** *** 9,60 **** "Close:","--","","METHOD","Generic-Window","Generic.htm#7" "Paint:","--","","METHOD","Generic-Window","Generic.htm#8" ! "Show:","state --","","METHOD","Generic-Window","Generic.htm#9" ! "GDIFlush:","--","","METHOD","Generic-Window","Generic.htm#10" ! "Update:","--","","METHOD","Generic-Window","Generic.htm#11" ! "Scroll:","x y --","","METHOD","Generic-Window","Generic.htm#12" ! "Move:","x y w h --","","METHOD","Generic-Window","Generic.htm#13" ! "SetWindowPos:","x y --","","METHOD","Generic-Window","Generic.htm#14" ! "SetMenu:","MenuHandle --","","METHOD","Generic-Window","Generic.htm#15" ! "SetText:","addr len \ text$ --","","METHOD","Generic-Window","Generic.htm#16" ! "GetText:","-- addr len","","METHOD","Generic-Window","Generic.htm#17" ! "SetTextAlign:","flag --","","METHOD","Generic-Window","Generic.htm#18" ! "GetDC:","-- hdc","","METHOD","Generic-Window","Generic.htm#19" ! "GetWindowDC:","-- hdc","","METHOD","Generic-Window","Generic.htm#20" ! "ReleaseDC:","hdc --","","METHOD","Generic-Window","Generic.htm#21" ! "BeginPaint:","ps -- hdc","","METHOD","Generic-Window","Generic.htm#22" ! "EndPaint:","ps --","","METHOD","Generic-Window","Generic.htm#23" ! "GetClientRect:","rect --","","METHOD","Generic-Window","Generic.htm#24" ! "GetWindowLong:","index -- value","","METHOD","Generic-Window","Generic.htm#25" ! "SetWindowLong:","value index -- oldval","","METHOD","Generic-Window","Generic.htm#26" ! "GetStyle:","-- style","","METHOD","Generic-Window","Generic.htm#27" ! "SetStyle:","style --","","METHOD","Generic-Window","Generic.htm#28" ! "+Style:","style --","","METHOD","Generic-Window","Generic.htm#29" ! "-Style:","style --","","METHOD","Generic-Window","Generic.htm#30" ! "SetFocus:","--","","METHOD","Generic-Window","Generic.htm#31" ! "SetForegroundWindow:","--","","METHOD","Generic-Window","Generic.htm#32" ! "SetActiveWindow:","--","","METHOD","Generic-Window","Generic.htm#33" ! "MessageBox:","szText szTitle style -- result","","METHOD","Generic-Window","Generic.htm#34" ! "InvalidateRect:","bgflag rectangle --","","METHOD","Generic-Window","Generic.htm#35" ! "GetDlgItem:","id -- handle","","METHOD","Generic-Window","Generic.htm#36" ! "GetDlgItemText:","addr len id -- len","","METHOD","Generic-Window","Generic.htm#37" ! "SetDlgItemText:","addr len id --","","METHOD","Generic-Window","Generic.htm#38" ! "SetDlgItemFocus:","id --","","METHOD","Generic-Window","Generic.htm#39" ! "SelectDlgItemAll:","id --","","METHOD","Generic-Window","Generic.htm#40" ! "IsDlgButtonChecked:","id -- f1","","METHOD","Generic-Window","Generic.htm#41" ! "CheckDlgButton:","uCheck id --","","METHOD","Generic-Window","Generic.htm#42" ! "SetDlgItemAlign:","flag id --","","METHOD","Generic-Window","Generic.htm#43" ! "SetAlign:","flag id --","DEPRECATED","METHOD","Generic-Window","Generic.htm#44" ! "EnableDlgItem:","flag id --","","METHOD","Generic-Window","Generic.htm#45" ! "ShowDlgItem:","flag id --","","METHOD","Generic-Window","Generic.htm#46" ! "CheckRadioButton:","check_id first_id last_id --","","METHOD","Generic-Window","Generic.htm#47" ! "SendDlgItemMessage:","lParam wParam message id -- long","","METHOD","Generic-Window","Generic.htm#48" ! "SetDlgItemFont:","FontObject id --","","METHOD","Generic-Window","Generic.htm#49" "Window","","","CLASS","","Window.htm#0" "ClassInit:","--","","METHOD","Window","Window.htm#1" ! "GetSize:","-- w h","","METHOD","Window","Window.htm#2" "Width:","-- width","","METHOD","Window","Window.htm#3" "Height:","-- height","","METHOD","Window","Window.htm#4" ! "SetSize:","w h --","","METHOD","Window","Window.htm#5" ! "On_Size:","--","","METHOD","Window","Window.htm#6" "MinSize:","-- width height","","METHOD","Window","Window.htm#7" "MaxSize:","-- width height","","METHOD","Window","Window.htm#8" --- 9,64 ---- "Close:","--","","METHOD","Generic-Window","Generic.htm#7" "Paint:","--","","METHOD","Generic-Window","Generic.htm#8" ! "SetRedraw:","f --","","METHOD","Generic-Window","Generic.htm#9" ! "Show:","state --","","METHOD","Generic-Window","Generic.htm#10" ! "GDIFlush:","--","","METHOD","Generic-Window","Generic.htm#11" ! "Update:","--","","METHOD","Generic-Window","Generic.htm#12" ! "Scroll:","x y --","","METHOD","Generic-Window","Generic.htm#13" ! "Move:","x y w h --","","METHOD","Generic-Window","Generic.htm#14" ! "SetWindowPos:","x y --","","METHOD","Generic-Window","Generic.htm#15" ! "SetMenu:","MenuHandle --","","METHOD","Generic-Window","Generic.htm#16" ! "SetText:","addr len \ text$ --","","METHOD","Generic-Window","Generic.htm#17" ! "GetText:","-- addr len","","METHOD","Generic-Window","Generic.htm#18" ! "SetTextAlign:","flag --","","METHOD","Generic-Window","Generic.htm#19" ! "GetDC:","-- hdc","","METHOD","Generic-Window","Generic.htm#20" ! "GetWindowDC:","-- hdc","","METHOD","Generic-Window","Generic.htm#21" ! "ReleaseDC:","hdc --","","METHOD","Generic-Window","Generic.htm#22" ! "BeginPaint:","ps -- hdc","","METHOD","Generic-Window","Generic.htm#23" ! "EndPaint:","ps --","","METHOD","Generic-Window","Generic.htm#24" ! "GetClientRect:","rect --","","METHOD","Generic-Window","Generic.htm#25" ! "GetWindowLong:","index -- value","","METHOD","Generic-Window","Generic.htm#26" ! "SetWindowLong:","value index -- oldval","","METHOD","Generic-Window","Generic.htm#27" ! "GetStyle:","-- style","","METHOD","Generic-Window","Generic.htm#28" ! "SetStyle:","style --","","METHOD","Generic-Window","Generic.htm#29" ! "+Style:","style --","","METHOD","Generic-Window","Generic.htm#30" ! "-Style:","style --","","METHOD","Generic-Window","Generic.htm#31" ! "SetFocus:","--","","METHOD","Generic-Window","Generic.htm#32" ! "SetForegroundWindow:","--","","METHOD","Generic-Window","Generic.htm#33" ! "SetActiveWindow:","--","","METHOD","Generic-Window","Generic.htm#34" ! "MessageBox:","szText szTitle style -- result","","METHOD","Generic-Window","Generic.htm#35" ! "InvalidateRect:","bgflag rectangle --","","METHOD","Generic-Window","Generic.htm#36" ! "GetDlgItem:","id -- handle","","METHOD","Generic-Window","Generic.htm#37" ! "GetDlgItemText:","addr len id -- len","","METHOD","Generic-Window","Generic.htm#38" ! "SetDlgItemText:","addr len id --","","METHOD","Generic-Window","Generic.htm#39" ! "SetDlgItemFocus:","id --","","METHOD","Generic-Window","Generic.htm#40" ! "SelectDlgItemAll:","id --","","METHOD","Generic-Window","Generic.htm#41" ! "IsDlgButtonChecked:","id -- f1","","METHOD","Generic-Window","Generic.htm#42" ! "CheckDlgButton:","uCheck id --","","METHOD","Generic-Window","Generic.htm#43" ! "SetDlgItemAlign:","flag id --","","METHOD","Generic-Window","Generic.htm#44" ! "SetAlign:","flag id --","DEPRECATED","METHOD","Generic-Window","Generic.htm#45" ! "EnableDlgItem:","flag id --","","METHOD","Generic-Window","Generic.htm#46" ! "ShowDlgItem:","flag id --","","METHOD","Generic-Window","Generic.htm#47" ! "CheckRadioButton:","check_id first_id last_id --","","METHOD","Generic-Window","Generic.htm#48" ! "SendDlgItemMessage:","lParam wParam message id -- long","","METHOD","Generic-Window","Generic.htm#49" ! "SetDlgItemFont:","FontObject id --","","METHOD","Generic-Window","Generic.htm#50" ! "DIALOG&CONTROL","","","|CLASS","","Generic.htm#52" ! "Classinit:","--","","METHOD","DIALOG&CONTROL","Generic.htm#53" ! "GetWindowRect:","-- left top right bottom","","METHOD","DIALOG&CONTROL","Generic.htm#54" "Window","","","CLASS","","Window.htm#0" "ClassInit:","--","","METHOD","Window","Window.htm#1" ! "GetSize:","--width height","","METHOD","Window","Window.htm#2" "Width:","-- width","","METHOD","Window","Window.htm#3" "Height:","-- height","","METHOD","Window","Window.htm#4" ! "SetSize:","width height --","","METHOD","Window","Window.htm#5" ! "On_Size:","wParam --","","METHOD","Window","Window.htm#6" "MinSize:","-- width height","","METHOD","Window","Window.htm#7" "MaxSize:","-- width height","","METHOD","Window","Window.htm#8" *************** *** 70,101 **** "SetClassName:","addr len --","","METHOD","Window","Window.htm#18" "GetClassName:","-- addr len","","METHOD","Window","Window.htm#19" ! "SetParent:","Parent --","","METHOD","Window","Window.htm#20" ! "ParentWindow:","-- Parent | 0 if no parent","","METHOD","Window","Window.htm#21" ! "DefaultCursor:","-- cursor-id","","METHOD","Window","Window.htm#22" ! "DefaultIcon:","-- hIcon","","METHOD","Window","Window.htm#23" ! "WindowStyle:","-- style","","METHOD","Window","Window.htm#24" ! "ExWindowStyle:","-- extended_style","","METHOD","Window","Window.htm#25" ! "WindowTitle:","-- Zstring","","METHOD","Window","Window.htm#26" ! "&ps","","","RECORD:","Window","Window.htm#28" ! "On_EraseBackground:","hwnd msg wparam lparam -- res","","METHOD","Window","Window.htm#29" ! "On_Paint:","--","","METHOD","Window","Window.htm#30" ! "WindowHasMenu:","-- flag","","METHOD","Window","Window.htm#31" ! "MoveCursor:","gx gy --","","METHOD","Window","Window.htm#32" ! "MakeCursor:","gx gy width height --","","METHOD","Window","Window.htm#33" ! "DestroyCursor:","--","","METHOD","Window","Window.htm#34" ! "ShowCursor:","--","","METHOD","Window","Window.htm#35" ! "HideCursor:","--","","METHOD","Window","Window.htm#36" ! "On_SetFocus:","h m w l --","","METHOD","Window","Window.htm#37" ! "On_KillFocus:","h m w l --","","METHOD","Window","Window.htm#38" ! "PushKey:","c1 --","","METHOD","Window","Window.htm#39" ! "Win32Forth:","h m w l --","","METHOD","Window","Window.htm#40" ! "DefWindowProc:","h m w l -- res","","METHOD","Window","Window.htm#41" ! "CenterWindow:","-- x y","","METHOD","Window","Window.htm#42" ! "Enable:","f1 --","","METHOD","Window","Window.htm#43" ! "GetWindowRect:","-- left top right bottom","","METHOD","Window","Window.htm#44" ! "SetTitle:","adr len \ temp$ --","","METHOD","Window","Window.htm#45" ! "find-window","z""a1 -- hWnd","w32f","COLON","","Window.htm#47" ! "send-window","lParam wParam Message_ID hWnd --","w32f","COLON","","Window.htm#48" ! "LoadIconFile","adr len -- hIcon","w32f","COLON","","Window.htm#49" "TrayWindow","","","CLASS","","TrayWindow.htm#0" "DefaultIcon:","-- hIcon","","METHOD","TrayWindow","TrayWindow.htm#1" --- 74,107 ---- "SetClassName:","addr len --","","METHOD","Window","Window.htm#18" "GetClassName:","-- addr len","","METHOD","Window","Window.htm#19" ! "SetParentWindow:","hWndParent --","","METHOD","Window","Window.htm#20" ! "GetParentWindow:","-- hWndParent","","METHOD","Window","Window.htm#21" ! "SetParent:","hWndParent --","","METHOD","Window","Window.htm#22" ! "ParentWindow:","-- hWndParent","","METHOD","Window","Window.htm#23" ! "DefaultCursor:","-- cursor-id","","METHOD","Window","Window.htm#24" ! "DefaultIcon:","-- hIcon","","METHOD","Window","Window.htm#25" ! "WindowStyle:","-- style","","METHOD","Window","Window.htm#26" ! "ExWindowStyle:","-- extended_style","","METHOD","Window","Window.htm#27" ! "WindowTitle:","-- Zstring","","METHOD","Window","Window.htm#28" ! "&ps","","","RECORD:","Window","Window.htm#30" ! "On_EraseBackground:","hwnd msg wparam lparam -- res","","METHOD","Window","Window.htm#31" ! "On_Paint:","--","","METHOD","Window","Window.htm#32" ! "WindowHasMenu:","-- flag","","METHOD","Window","Window.htm#33" ! "MoveCursor:","gx gy --","","METHOD","Window","Window.htm#34" ! "MakeCursor:","gx gy width height --","","METHOD","Window","Window.htm#35" ! "DestroyCursor:","--","","METHOD","Window","Window.htm#36" ! "ShowCursor:","--","","METHOD","Window","Window.htm#37" ! "HideCursor:","--","","METHOD","Window","Window.htm#38" ! "On_SetFocus:","h m w l --","","METHOD","Window","Window.htm#39" ! "On_KillFocus:","h m w l --","","METHOD","Window","Window.htm#40" ! "PushKey:","c1 --","","METHOD","Window","Window.htm#41" ! "Win32Forth:","h m w l --","","METHOD","Window","Window.htm#42" ! "DefWindowProc:","h m w l -- res","","METHOD","Window","Window.htm#43" ! "CenterWindow:","-- x y","","METHOD","Window","Window.htm#44" ! "Enable:","f1 --","","METHOD","Window","Window.htm#45" ! "GetWindowRect:","-- left top right bottom","","METHOD","Window","Window.htm#46" ! "SetTitle:","adr len \ temp$ --","","METHOD","Window","Window.htm#47" ! "find-window","z""a1 -- hWnd","w32f","COLON","","Window.htm#49" ! "send-window","lParam wParam Message_ID hWnd --","w32f","COLON","","Window.htm#50" ! "LoadIconFile","adr len -- hIcon","w32f","COLON","","Window.htm#51" "TrayWindow","","","CLASS","","TrayWindow.htm#0" "DefaultIcon:","-- hIcon","","METHOD","TrayWindow","TrayWindow.htm#1" *************** *** 110,119 **** "On_IconNotify:","hWnd uMsg wParam lParam -- res","","METHOD","TrayWindow","TrayWindow.htm#10" "Child-Window","","","CLASS","","Childwnd.htm#0" ! "GetParent:","-- parent","","METHOD","Child-Window","Childwnd.htm#1" ! "SetID:","n --","","METHOD","Child-Window","Childwnd.htm#2" ! "GetID:","-- n","","METHOD","Child-Window","Childwnd.htm#3" ! "WindowStyle:","-- style","","METHOD","Child-Window","Childwnd.htm#4" ! "WindowTitle:","-- Zstring","","METHOD","Child-Window","Childwnd.htm#5" ! "Start:","Parent --","","METHOD","Child-Window","Childwnd.htm#6" "dialogID?","hdr ID -- f","","COLON","","Dialog.htm#0" "find-dialog-ID","id addr -- address-of-template-header","","COLON","","Dialog.htm#1" --- 116,127 ---- "On_IconNotify:","hWnd uMsg wParam lParam -- res","","METHOD","TrayWindow","TrayWindow.htm#10" "Child-Window","","","CLASS","","Childwnd.htm#0" ! "ClassInit:","--","","METHOD","Child-Window","Childwnd.htm#1" ! "SetParent:","parent --","","METHOD","Child-Window","Childwnd.htm#2" ! "GetParent:","-- parent","","METHOD","Child-Window","Childwnd.htm#3" ! "SetID:","n --","","METHOD","Child-Window","Childwnd.htm#4" ! "GetID:","-- n","","METHOD","Child-Window","Childwnd.htm#5" ! "WindowStyle:","-- style","","METHOD","Child-Window","Childwnd.htm#6" ! "WindowTitle:","-- Zstring","","METHOD","Child-Window","Childwnd.htm#7" ! "Start:","Parent --","","METHOD","Child-Window","Childwnd.htm#8" "dialogID?","hdr ID -- f","","COLON","","Dialog.htm#0" "find-dialog-ID","id addr -- address-of-template-header","","COLON","","Dialog.htm#1" *************** *** 460,484 **** "GetDate:","-- day month year","","METHOD","DateTimePicker","Controls.htm#309" "TabControl","","","CLASS","","Controls.htm#311" ! "Start:","Parent --","","METHOD","TabControl","Controls.htm#312" ! "ClassInit:","--","","METHOD","TabControl","Controls.htm#313" ! "WindowStyle:","-- style","","METHOD","TabControl","Controls.htm#314" ! "AddStyle:","n --","","METHOD","TabControl","Controls.htm#315" ! "InsertTab:","index --","","METHOD","TabControl","Controls.htm#316" ! "GetTabInfo:","index --","","METHOD","TabControl","Controls.htm#317" ! "SetTabInfo:","index --","","METHOD","TabControl","Controls.htm#318" ! "ClientSize:","-- x y w h","","METHOD","TabControl","Controls.htm#319" ! "WindowSize:","0 0 width height -- x y w h","","METHOD","TabControl","Controls.htm#320" ! "Enable:","f --","","METHOD","TabControl","Controls.htm#321" ! "Disable:","--","","METHOD","TabControl","Controls.htm#322" ! "Setfont:","handle --","","METHOD","TabControl","Controls.htm#323" ! "WindowTitle:","-- null$","","METHOD","TabControl","Controls.htm#324" ! "VertButtonBar","","","CLASS","","Controls.htm#326" ! "SetFont:","fonthndl \ hb1 --","","METHOD","VertButtonBar","Controls.htm#327" ! "Enable:","flag \ hb1 --","","METHOD","VertButtonBar","Controls.htm#328" ! "Disable:","--","","METHOD","VertButtonBar","Controls.htm#329" ! "HorizButtonBar","","","CLASS","","Controls.htm#331" ! "SetFont:","fonthndl \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#332" ! "Enable:","flag \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#333" ! "Disable:","--","","METHOD","HorizButtonBar","Controls.htm#334" "MdiDialogWindow","","","CLASS","","MdiDialog.htm#0" "ClassInit:","--","","METHOD","MdiDialogWindow","MdiDialog.htm#1" --- 468,518 ---- "GetDate:","-- day month year","","METHOD","DateTimePicker","Controls.htm#309" "TabControl","","","CLASS","","Controls.htm#311" ! "tc_Item","","","RECORD:","TabControl","Controls.htm#312" ! "IsMask:","n --","","METHOD","TabControl","Controls.htm#313" ! "Mask:","-- n","","METHOD","TabControl","Controls.htm#314" ! "IsPszText:","addr --","","METHOD","TabControl","Controls.htm#315" ! "PszText:","-- n","","METHOD","TabControl","Controls.htm#316" ! "IscchTextMax:","n --","","METHOD","TabControl","Controls.htm#317" ! "cchTextMax:","-- n","","METHOD","TabControl","Controls.htm#318" ! "IsiImage:","n --","","METHOD","TabControl","Controls.htm#319" ! "iImage:","-- n","","METHOD","TabControl","Controls.htm#320" ! "IsLparam:","n --","","METHOD","TabControl","Controls.htm#321" ! "LParam:","-- n","","METHOD","TabControl","Controls.htm#322" ! "Start:","Parent --","","METHOD","TabControl","Controls.htm#323" ! "WindowStyle:","-- style","","METHOD","TabControl","Controls.htm#324" ! "AddStyle:","n --","","METHOD","TabControl","Controls.htm#325" ! "TC_Item:","-- addr","","METHOD","TabControl","Controls.htm#326" ! "InsertTab:","index --","","METHOD","TabControl","Controls.htm#327" ! "GetTabInfo:","index --","","METHOD","TabControl","Controls.htm#328" ! "SetTabInfo:","index --","","METHOD","TabControl","Controls.htm#329" ! "GetTabCount:","-- n","","METHOD","TabControl","Controls.htm#330" ! "DeleteTab:","index --","","METHOD","TabControl","Controls.htm#331" ! "DeleteAllTabs:","--","","METHOD","TabControl","Controls.htm#332" ! "AdjustRect:","rect flag --","","METHOD","TabControl","Controls.htm#333" ! "ClientSize:","-- left top right bottom","","METHOD","TabControl","Controls.htm#334" ! "WindowSize:","0 0 width height -- left top right bottom","","METHOD","TabControl","Controls.htm#335" ! "GetSelectedTab:","-- index","","METHOD","TabControl","Controls.htm#336" ! "SetSelectedTab:","index --","","METHOD","TabControl","Controls.htm#337" ! "GetRowCount:","-- n","","METHOD","TabControl","Controls.htm#338" ! "AutoSize:","--","","METHOD","TabControl","Controls.htm#339" ! "Enable:","f --","","METHOD","TabControl","Controls.htm#340" ! "Disable:","--","","METHOD","TabControl","Controls.htm#341" ! "Setfont:","handle --","","METHOD","TabControl","Controls.htm#342" ! "WindowTitle:","-- null$","","METHOD","TabControl","Controls.htm#343" ! "Handle_Notify:","w l \ ncode tabid -- f","","METHOD","TabControl","Controls.htm#344" ! "On_SelChanged:","l -- f","","METHOD","TabControl","Controls.htm#345" ! "On_SelChanging:","l -- f","","METHOD","TabControl","Controls.htm#346" ! "IsChangeFunc:","cfa --","","METHOD","TabControl","Controls.htm#347" ! "IsChangingFunc:","cfa --","","METHOD","TabControl","Controls.htm#348" ! "default-func","lParam obj -- false","","COLON","TabControl","Controls.htm#349" ! "ClassInit:","--","","METHOD","TabControl","Controls.htm#350" ! "VertButtonBar","","","CLASS","","Controls.htm#352" ! "SetFont:","fonthndl \ hb1 --","","METHOD","VertButtonBar","Controls.htm#353" ! "Enable:","flag \ hb1 --","","METHOD","VertButtonBar","Controls.htm#354" ! "Disable:","--","","METHOD","VertButtonBar","Controls.htm#355" ! "HorizButtonBar","","","CLASS","","Controls.htm#357" ! "SetFont:","fonthndl \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#358" ! "Enable:","flag \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#359" ! "Disable:","--","","METHOD","HorizButtonBar","Controls.htm#360" "MdiDialogWindow","","","CLASS","","MdiDialog.htm#0" "ClassInit:","--","","METHOD","MdiDialogWindow","MdiDialog.htm#1" Index: p-AcceleratorTables.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-AcceleratorTables.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** p-AcceleratorTables.htm 8 Feb 2006 14:26:34 -0000 1.7 --- p-AcceleratorTables.htm 5 Jun 2006 09:28:42 -0000 1.8 *************** *** 41,48 **** </p><pre><b><a name="5">: DisableAccelerators ( a -- ) \ W32F </a></b></pre><p>Destroys the Windows Accelerator Table. - It does not matter trying to destroy a table more than once </p><pre><b><a name="6">: EnableAccelerators ( a -- ) \ W32F </a></b></pre><p>Creates the Windows Accelerator Table. - It does not matter creating the same table again as long as it is destroyed first </p><h2>Example </h2><pre> --- 41,46 ---- |
|
From: Dirk B. <db...@us...> - 2006-06-06 03:27:04
|
Update of /cvsroot/win32forth/win32forth/proj In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4319/proj Added Files: Win32ForthIDE.fpj Log Message: Base commit of the new Win32Forth-Ide application. --- NEW FILE: Win32ForthIDE.fpj --- ProjectName= Project BuildFile= apps\Win32ForthIDE\Main.f SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;src\ProMgr;src\ProMgr\res;APPS\PROMGR;APPS\PROMGR\RES;APPS\WIN32FORTHIDE;APPS\WINED\RES;SRC\WINED;SRC\WINED\RES Project,0 Modules,51 apps\Win32ForthIDE\Main.f SRC\LIB\Mdi.f SRC\LIB\AcceleratorTables.f SRC\LIB\MultiOpen.f SRC\LIB\HtmlControl.f SRC\LIB\AXControl.f SRC\LIB\fcom.f SRC\LIB\ScintillaControl.f SRC\LIB\SendMessage.f SRC\LIB\file.f SRC\LIB\RegistryWindowPos.f SRC\LIB\GetWindowPlacment.f SRC\LIB\Struct.f SRC\LIB\ExtStruct.f SRC\LIB\RecentFiles.f src\lib\Resources.f apps\Win32ForthIDE\EdToolbar.f apps\Win32ForthIDE\CommandID.f SRC\LIB\bitmap.f SRC\LIB\toolbar.f SRC\LIB\RebarControl.f apps\Win32ForthIDE\EdStatusbar.f SRC\LIB\StatusBar.f apps\Win32ForthIDE\EdMenu.f apps\Win32ForthIDE\AnsLink.f src\tools\SdkHelp.f SRC\LIB\Win32Help.f apps\Win32ForthIDE\EdFindInFiles.f SRC\LIB\sub_dirs.f apps\Win32ForthIDE\X_Search.f SRC\LIB\w_search.f apps\Win32ForthIDE\EdTabControl.f SRC\LIB\ExControls.f SRC\LIB\ListView.f apps\Win32ForthIDE\ClassBrowser.f SRC\LIB\TreeView.f apps\Win32ForthIDE\ProjectTree.f SRC\LIB\linklist.f SRC\LIB\enum.f SRC\LIB\ExUtils.f SRC\LIB\fcases.f apps\Win32ForthIDE\ScintillaMDI.f SRC\LIB\ScintillaLexer.f apps\Win32ForthIDE\ScintillaHyperMDI.f SRC\LIB\HyperLink.f apps\Win32ForthIDE\EdDebug.f apps\Win32ForthIDE\EdRemote.f apps\Win32ForthIDE\EdCompile.f apps\Win32ForthIDE\EdCommand.f apps\Win32ForthIDE\EdAbout.f apps\Win32ForthIDE\EdVersion.f DLLs,1 w32fScintilla.dll Forms,0 Auxiliary Files,0 Resources,5 APPS\WINED\RES\WINEDIT.h APPS\WINED\RES\WINEDIT.res apps\Win32ForthIDE\res\toolbar.bmp APPS\PROMGR\RES\treeimages.bmp src\res\SciEditMDI.ico Docs,0 |
|
From: Dirk B. <db...@us...> - 2006-06-06 03:26:47
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11367/src Modified Files: GENERIC.F Log Message: SetRedraw: method and some more documentation added. Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** GENERIC.F 4 Feb 2006 10:40:35 -0000 1.9 --- GENERIC.F 5 Jun 2006 07:17:30 -0000 1.10 *************** *** 155,158 **** --- 155,165 ---- then ;M + :M SetRedraw: ( f -- ) + \ *G Set the redraw state of the window. + \ *P \i f \d Specifies the redraw state. If this parameter is TRUE, the + \ ** content can be redrawn after a change. If this parameter is FALSE, + \ ** the content cannot be redrawn after a change. + 0 swap WM_SETREDRAW hWnd call SendMessage drop ;M + :M Show: ( state -- ) \ *G The ShowWindow function sets the specified window's show state. \n *************** *** 583,591 **** --- 590,604 ---- in-system + \ *W <a name="DIALOG&CONTROL"></a> + \ *S Generic class for Dialog- and Control-Window objects. |CLASS DIALOG&CONTROL <SUPER Generic-Window + \ *G Base class for all dialog and control objects. + \ *P Since DIALOG&CONTROL is a generic class it should not be used to create + \ ** any instances. in-application int mydialoglink + \ The following is for backward compatibility. Use WinRect for new code since it will \ be early bound whereas wRect will be latebound. *************** *** 595,611 **** :M Classinit: ( -- ) ClassInit: super addr: WinRect to wRect ;M :M GetWindowRect: ( -- left top right bottom ) hWnd ! if EraseRect: WinRect ! AddrOf: WinRect hWnd Call GetWindowRect ?win-error ! Left: WinRect Top: WinRect ! Right: WinRect Bottom: WinRect ! else 0 0 0 0 ! then ! ;M \ Temporarily moved here to overcome problem with offset of ints in Window.f --- 608,628 ---- :M Classinit: ( -- ) + \ *G Initialise the class. ClassInit: super + 0 to mydialoglink \ added Sonntag, Juni 04 2006 dbu addr: WinRect to wRect ;M :M GetWindowRect: ( -- left top right bottom ) + \ *G The GetWindowRect method retrieves the dimensions of the bounding rectangle of the window. + \ ** The dimensions are given in screen coordinates that are relative to the upper-left corner + \ ** of the screen. hWnd ! if EraseRect: WinRect ! AddrOf: WinRect hWnd Call GetWindowRect ?win-error ! Left: WinRect Top: WinRect ! Right: WinRect Bottom: WinRect ! else 0 0 0 0 ! then ;M \ Temporarily moved here to overcome problem with offset of ints in Window.f *************** *** 618,621 **** --- 635,639 ---- ;CLASS + \ *G End of DIALOG&CONTROL class \ *Z |
1040 messages has been excluded from this view by a project administrator.
