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
|
