[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f, 1.20, 1.21

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv13641

Modified Files:
	ProjectManager.f 
Log Message:
Made these apps compilable from IDE

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** ProjectManager.f	25 Feb 2007 13:58:11 -0000	1.20
--- ProjectManager.f	2 Dec 2010 05:34:42 -0000	1.21
***************
*** 107,111 ****
  \ Odd minor version numbers are possibly unstable beta releases.
  
! Create ProjectVersion ," 2.01.01"
  
  needs linklist.f
--- 107,111 ----
  \ Odd minor version numbers are possibly unstable beta releases.
  
! Create ProjectVersion ," 2.01.02"
  
  needs linklist.f
***************
*** 1240,1244 ****
          Options SaveSettings
          ProjectManager SaveSettings
!         false promgr-started
          SaveRecentFiles
          SaveRecentFiles
--- 1240,1244 ----
          Options SaveSettings
          ProjectManager SaveSettings
! \        false promgr-started
          SaveRecentFiles
          SaveRecentFiles
***************
*** 1271,1275 ****
  :M ParentWindow: ( -- hwndparent )
          0 ;M
! 
  : add-open-forms  ( -- )
                  clear-status-bar
--- 1271,1275 ----
  :M ParentWindow: ( -- hwndparent )
          0 ;M
! ((
  : add-open-forms  ( -- )
                  clear-status-bar
***************
*** 1291,1295 ****
                       endcase
                  0 ;M
! 
  :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam )
          over LOWORD ( command ID ) dup
--- 1291,1295 ----
                       endcase
                  0 ;M
! ))
  :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam )
          over LOWORD ( command ID ) dup
***************
*** 1476,1485 ****
  false value comment?
  \ // --   -1   \S
! (         1    )
! ((        2   ))
! /*        4   */
! (*        8   *)
! comment:  16  comment;
! DOC  keep this for adding files like docs  ENDDOC
  
  : +Comment ( n -- )   comment? IF  drop  ELSE  comment? or to comment?  THEN ;
--- 1476,1485 ----
  false value comment?
  \ // --   -1   \S
! \ (         1    )
! \ ((        2   ))
! \ /*        4   */
! \ (*        8   *)
! \ comment:  16  comment;
! \ DOC  keep this for adding files like docs  ENDDOC
  
  : +Comment ( n -- )   comment? IF  drop  ELSE  comment? or to comment?  THEN ;
***************
*** 1676,1685 ****
  
  : delete-item ( -- )   Delete: TheProject ;   IDM_DELETE SetCommand
! 
  : AddForms ( -- ) \ get open forms from ForthForm
                  msg-buffer 0= ?exit     \ shared memory not initialized
                  msg-buffer @ FFORMID <> ?exit       \ ForthForm not running
                  0 WANT_FORMS win32forth-message ;   IDM_ADD_FORMS SetCommand
! 
  Create to$ max-path allot
  
--- 1676,1685 ----
  
  : delete-item ( -- )   Delete: TheProject ;   IDM_DELETE SetCommand
! ((
  : AddForms ( -- ) \ get open forms from ForthForm
                  msg-buffer 0= ?exit     \ shared memory not initialized
                  msg-buffer @ FFORMID <> ?exit       \ ForthForm not running
                  0 WANT_FORMS win32forth-message ;   IDM_ADD_FORMS SetCommand
! ))
  Create to$ max-path allot
  
***************
*** 1818,1822 ****
  : Restore ( -- )   Options RestoreSettings ;                 IDM_RESTORE_SETTINGS SetCommand
  
! : Save ( -- )   Options SaveSettings ;                       IDM_SAVE_SETTINGS SetCommand
  
  : Default ( -- )   Options DefaultSettings ;                 IDM_DEFAULT_SETTINGS SetCommand
--- 1818,1822 ----
  : Restore ( -- )   Options RestoreSettings ;                 IDM_RESTORE_SETTINGS SetCommand
  
! : SaveOps ( -- )   Options SaveSettings ;                       IDM_SAVE_SETTINGS SetCommand
  
  : Default ( -- )   Options DefaultSettings ;                 IDM_DEFAULT_SETTINGS SetCommand
***************
*** 1929,1933 ****
  \+ sysgen           read-path-file
                      Start: ProjectWindow
! \+ sysgen           true promgr-started
                      RestoreRecentFiles
                      6 SetNumber: RecentFiles
--- 1929,1933 ----
  \+ sysgen           read-path-file
                      Start: ProjectWindow
! \ \+ sysgen           true promgr-started
                      RestoreRecentFiles
                      6 SetNumber: RecentFiles
***************
*** 1937,1940 ****
--- 1937,1943 ----
                      ;
  
+ : run-PM        ( -- )
+                 PM
+                 Messageloop ;
  
  [defined] sysgen [IF]
***************
*** 1944,1955 ****
  Initialization-chain Chain-add InitDir
  
! :noname ( -- )
!         init-console
!         if  initialization-chain do-chain  then
!         exception@ if bye then
!         default-application ;   is default-hello
  
          &forthdir count &appdir place
!         0 0 ' PM application Project.exe
          &appdir off
  
--- 1947,1958 ----
  Initialization-chain Chain-add InitDir
  
! \ :noname ( -- )
! \         init-console
! \         if  initialization-chain do-chain  then
! \         exception@ if bye then
! \         default-application ;   is default-hello
  
          &forthdir count &appdir place
!          ' run-PM turnkey Project.exe
          &appdir off