Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.58,1.59
|
From: Ezra B. <ezr...@us...> - 2008-09-08 03:06:16
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv599/apps/Win32ForthIDE Modified Files: Main.f Log Message: IDE updates. EAB Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** Main.f 2 Sep 2008 06:38:41 -0000 1.58 --- Main.f 8 Sep 2008 03:06:13 -0000 1.59 *************** *** 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+ *************** *** 68,73 **** false value with-tabs? false value include-libs? ! 150 175 2value NavigatorPos ! 225 450 2value NavigatorSize 0 constant FT_SOURCE --- 68,73 ---- false value with-tabs? false value include-libs? ! 150 175 2value BookMarksPos ! 225 450 2value BookMarksSize 0 constant FT_SOURCE *************** *** 505,512 **** Select-ForeColor s>d (d.) s" SelectForeColor" "SetDefault Select-BackColor s>d (d.) s" SelectBackColor" "SetDefault AutoIndent? s>d (d.) s" AutoIndent" "SetDefault With-Tabs? s>d (d.) s" TabsInEditor" "SetDefault ! NavigatorPos (d.) s" NavigatorPosition" "SetDefault ! NavigatorSize (d.) s" NavigatorSize" "SetDefault AutoProperty? s>d (d.) s" AutoProperty" "SetDefault SingleControl? s>d (d.) s" SingleControl" "SetDefault --- 505,514 ---- Select-ForeColor s>d (d.) s" SelectForeColor" "SetDefault Select-BackColor s>d (d.) s" SelectBackColor" "SetDefault + Browse-ForeColor s>d (d.) s" BrowseForeColor" "SetDefault + Browse-BackColor s>d (d.) s" BrowseBackColor" "SetDefault AutoIndent? s>d (d.) s" AutoIndent" "SetDefault With-Tabs? s>d (d.) s" TabsInEditor" "SetDefault ! BookMarksPos (d.) s" BookMarksPosition" "SetDefault ! BookMarksSize (d.) s" BookMarksSize" "SetDefault AutoProperty? s>d (d.) s" AutoProperty" "SetDefault SingleControl? s>d (d.) s" SingleControl" "SetDefault *************** *** 565,573 **** s" SelectBackColor" "GetDefaultValue 0= IF drop Select-BackColor THEN to Select-BackColor s" SelectForeColor" "GetDefaultValue 0= IF drop Select-ForeColor THEN to Select-ForeColor s" AutoIndent" "GetDefaultValue 0= IF drop false THEN to autoindent? s" TabsInEditor" "GetDefaultValue 0= IF drop false THEN to with-tabs? ! s" NavigatorPosition" "GetDefault2Value IF 2to NavigatorPos ELSE 2drop then ! s" NavigatorSize" "GetDefault2Value IF 2to NavigatorSize ELSE 2drop THEN s" AutoProperty" "GetDefaultValue 0= IF drop false THEN to AutoProperty? s" SingleControl" "GetDefaultValue 0= IF drop true THEN to SingleControl? --- 567,577 ---- s" SelectBackColor" "GetDefaultValue 0= IF drop Select-BackColor THEN to Select-BackColor s" SelectForeColor" "GetDefaultValue 0= IF drop Select-ForeColor THEN to Select-ForeColor + s" BrowseForeColor" "GetDefaultValue 0= IF drop Browse-ForeColor THEN to Browse-ForeColor + s" BrowseBackColor" "GetDefaultValue 0= IF drop Browse-BackColor THEN to Browse-BackColor s" AutoIndent" "GetDefaultValue 0= IF drop false THEN to autoindent? s" TabsInEditor" "GetDefaultValue 0= IF drop false THEN to with-tabs? ! s" BookMarksPosition" "GetDefault2Value IF 2to BookMarksPos ELSE 2drop then ! s" BookMarksSize" "GetDefault2Value IF 2to BookMarksSize ELSE 2drop THEN s" AutoProperty" "GetDefaultValue 0= IF drop false THEN to AutoProperty? s" SingleControl" "GetDefaultValue 0= IF drop true THEN to SingleControl? *************** *** 617,620 **** --- 621,627 ---- InitScintillaControl \ Dienstag, August 03 2004 dbu AccelTable EnableAccelerators \ init the accelerator table + s" MS Sans Serif" SetFaceName: TabFont + 8 Width: TabFont + Create: TabFont self Start: ScintillaStatusbar self Start: TheRebar *************** *** 627,633 **** load-defaults self Start: OpenFilesTab \ start after mdiclient - s" MS Sans Serif" SetFaceName: TabFont - 8 Width: TabFont - Create: TabFont Handle: TabFont SetFont: OpenFilesTab show-form-tab \ show the form designer whether detached or not --- 634,637 ---- *************** *** 749,753 **** : RefreshColors ( -- ) GetFileType: ChildParent FT_SOURCE <> ?exit ! fore-color back-color SetColors: ChildParent caret-backcolor SetCaretBackColor: ChildParent Select-ForeColor Select-BackColor SetSelectionColor: ChildParent --- 753,760 ---- : RefreshColors ( -- ) GetFileType: ChildParent FT_SOURCE <> ?exit ! ?BrowseMode: ChildParent ! if browse-forecolor browse-backcolor ! else fore-color back-color ! then SetColors: ChildParent caret-backcolor SetCaretBackColor: ChildParent Select-ForeColor Select-BackColor SetSelectionColor: ChildParent *************** *** 1028,1032 **** temp$ count OpenNamedFile: ActiveChild drop then Update ! ; : (OpenBinaryFile) ( adr len -- ) --- 1035,1039 ---- temp$ count OpenNamedFile: ActiveChild drop then Update ! ; ' (OpenSourceFile) is OpenSource : (OpenBinaryFile) ( adr len -- ) *************** *** 1085,1089 **** fload EdRemote.f fload EdCompile.f ! needs EdNavigator.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1092,1096 ---- fload EdRemote.f fload EdCompile.f ! needs EdBookMarks.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 1213,1217 **** start: Frame GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD ! sysgen if GetHandle: Frame Enablew32fMsg then \ inter-process comm InitClassBrowsers \+ sysgen HandleCmdLine --- 1220,1224 ---- start: Frame GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD ! \+ sysgen GetHandle: Frame Enablew32fMsg \ inter-process comm InitClassBrowsers \+ sysgen HandleCmdLine |
