Menu
▾
▴
[Win32forth-cvs] win32forth-610old/demos/SciEdit ClassBrowser.f,1.1,1.2
|
From: Dirk B. <db...@us...> - 2005-03-12 09:16:53
|
Update of /cvsroot/win32forth/win32forth-610old/demos/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25127/apps/SciEdit Modified Files: ClassBrowser.f Log Message: dbu: correct Version of some SciEdit files added Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/demos/SciEdit/ClassBrowser.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ClassBrowser.f 14 Dec 2004 23:53:47 -0000 1.1 --- ClassBrowser.f 12 Mar 2005 09:16:43 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ File: ClassBrowser.f \ Author: Dirk Busch *************** *** 6,10 **** \ Win32Forth class and vocabulary browser ! ANEW ClassBrowser.f needs TreeView.f \ TreeView class by Michael Hillerström --- 8,12 ---- \ Win32Forth class and vocabulary browser ! ANEW -ClassBrowser.f needs TreeView.f \ TreeView class by Michael Hillerström *************** *** 15,18 **** --- 17,22 ---- cr .( Loading class and vocabulary browser...) + false value Browser? + \ ------------------------------------------------------------------------------ \ the treeview control for browsing the classes and vocabularies *************** *** 188,194 **** ;M : Browse ( xt -- ) \ browse for the given xt \in-system-ok get-viewfile ! if $browse else 2drop then ; --- 192,207 ---- ;M + : $browse ( line_number file_name len -- ) + NewBrowseChild LoadHyperFile: ActiveBrowser + SetBrowseMode: ActiveBrowser Update ; + : Browse ( xt -- ) \ browse for the given xt \in-system-ok get-viewfile ! if \ if it's defind in FKERNEL.F than we must ! \ add the path to the file ! count 2dup KERNFILE count STR(NC)= ! if Prepend<home>\ then ! ! $browse else 2drop then ; *************** *** 208,211 **** --- 221,251 ---- \ ------------------------------------------------------------------------------ + \ the status bar + \ ------------------------------------------------------------------------------ + :Object ClassBrowserStatusbar <Super MultiStatusbar + + create SingleWidth -1 , \ width of statusbar parts + + :M SetSingle: ( -- ) + SingleWidth 1 SetParts: self + ;M + + :M SetText: ( -- ) + z" Use CTRL+Click to open the source for a definition in the Editor." 0 SetText: super + ;M + + :M Create: ( hParent -- ) + Create: super + SetSingle: self + SetText: self + Show: self + ;M + + :M Height: ( -- n ) + GetWindowRect: self drop nip - ;M + + ;Object + + \ ------------------------------------------------------------------------------ \ the main window \ ------------------------------------------------------------------------------ *************** *** 221,224 **** --- 261,266 ---- 1001 SetId: TreeView self Start: TreeView + GetHandle: self Create: ClassBrowserStatusbar + true to Browser? ;M *************** *** 226,230 **** --- 268,274 ---- hWnd RegPath$ SaveWindowPos TreeView Dispose + TreeView ClassBrowserStatusbar On_Done: super + false to Browser? ;M *************** *** 240,245 **** ;M :M On_Size: ( -- ) ! AutoSize: TreeView ;M :M WM_NOTIFY ( h m w l -- f ) --- 284,304 ---- ;M + : AdjustWindowSize { width height win -- } + SWP_SHOWWINDOW SWP_NOZORDER or SWP_NOMOVE or + height width + 0 0 \ ignore position + 0 \ ignore z-order + win Call SetWindowPos drop ; + :M On_Size: ( -- ) ! ! \ adjust the TreeView ! tempRect.AddrOf GetClientRect: self ! Left: tempRect Top: tempRect Right: tempRect ! Bottom: tempRect Height: ClassBrowserStatusbar - ! Move: TreeView ! ! \ and the the Statusbar ! Redraw: ClassBrowserStatusbar ;M :M WM_NOTIFY ( h m w l -- f ) *************** *** 257,262 **** ;Object - false value Browser? - EXTERNAL --- 316,319 ---- *************** *** 265,280 **** if SetForegroundWindow: ClassBrowser SW_SHOW Show: ClassBrowser ! else true to Browser? ! Start: ClassBrowser Update: ClassBrowser then ; ! : CloseBrowser ( -- ) Browser? if Close: ClassBrowser ! false to Browser? ! then ; MODULE --- 322,336 ---- if SetForegroundWindow: ClassBrowser SW_SHOW Show: ClassBrowser ! else Start: ClassBrowser Update: ClassBrowser then ; ! :noname ( -- ) Browser? if Close: ClassBrowser ! then ; is CloseBrowser MODULE + |
