Thread: [Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.20,1.21

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26815/apps/Win32ForthIDE

Modified Files:
	Main.f 
Log Message:
Jos: Repaired the Win32ForthIDE

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Main.f	8 Jul 2006 10:09:20 -0000	1.20
--- Main.f	10 Jul 2006 19:29:02 -0000	1.21
***************
*** 102,107 ****
  TabWindow cTabWindow

! : show-project-tab	( -- )
! 			1 ShowTab: cTabWindow ; IDM_SHOWPROJECT_TAB SetCommand

  Needs Task.f
--- 102,107 ----
  TabWindow cTabWindow

! : show-project-tab      ( -- )
!                         1 ShowTab: cTabWindow ; IDM_SHOWPROJECT_TAB SetCommand

  Needs Task.f
***************
*** 497,506 ****
                  if    Resize: self
                  then  l GetNotifyWnd dup>r GetHandle: pToolBar = ToolTipHandle: pToolBar r@ = or
! 		if	w l Handle_Notify: pToolBar
! 		else	r@ GetHandle: ControlToolBar = ToolTipHandle: ControlToolBar r@ = or
! 			if	w l Handle_Notify: ControlToolbar
! 			else	false
! 			then
! 		then	r>drop
                  ;M

--- 497,506 ----
                  if    Resize: self
                  then  l GetNotifyWnd dup>r GetHandle: pToolBar = ToolTipHandle: pToolBar r@ = or
!                 if      w l Handle_Notify: pToolBar
!                 else    r@ GetHandle: ControlToolBar = ToolTipHandle: ControlToolBar r@ = or
!                         if      w l Handle_Notify: ControlToolbar
!                         else    false
!                         then
!                 then    r>drop
                  ;M

***************
*** 520,533 ****
  int FileNotFound
  2 CallBack: FindFile { hChild lparam -- f }
! 		hChild Call GetParent MDIClient: self =
! 		IF   MAXCOUNTED temp$ hChild Call GetWindowText
! 		     temp$ swap lParam count caps-compare to FileNotFound
! 		     FileNotFound 0= IF hChild Activate: self beep THEN
! 		THEN FileNotFound ;  \ FALSE if found

  :M FileNotFound: ( Filename$ -- f )   \ child window is activated if file is already open
! 		TRUE to FileNotFound
! 		&FindFile EnumChildWindows: self drop
! 		FileNotFound ;M

  ;Object
--- 520,533 ----
  int FileNotFound
  2 CallBack: FindFile { hChild lparam -- f }
!                 hChild Call GetParent MDIClient: self =
!                 IF   MAXCOUNTED temp$ hChild Call GetWindowText
!                      temp$ swap lParam count caps-compare to FileNotFound
!                      FileNotFound 0= IF hChild Activate: self beep THEN
!                 THEN FileNotFound ;  \ FALSE if found

  :M FileNotFound: ( Filename$ -- f )   \ child window is activated if file is already open
!                 TRUE to FileNotFound
!                 &FindFile EnumChildWindows: self drop
!                 FileNotFound ;M

  ;Object
***************
*** 537,557 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! WM_USER	0x0201 + constant WM_SAVE
! 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
! 	int ChildWindow \ the child window for this MDI-Child
! 	int ChildParent \ the parent class of this MDI-Child

  :M WindowStyle: ( -- style )
! 		WindowStyle: super
! 		WS_CLIPCHILDREN or
! 		GetActive: Frame 0= or IF WS_MAXIMIZE or THEN  \ start new child maximised unless
! 		;M                                             \ the active child is not maximised

  :M DefaultIcon: ( -- hIcon )
! 		s" res\SciEditMDI.ico" Prepend<home>\ LoadIconFile ;M

  :M GetFileName: ( -- addr )
--- 537,557 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! WM_USER 0x0201 + constant WM_SAVE
! 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
!         int ChildWindow \ the child window for this MDI-Child
!         int ChildParent \ the parent class of this MDI-Child

  :M WindowStyle: ( -- style )
!                 WindowStyle: super
!                 WS_CLIPCHILDREN or
!                 GetActive: Frame 0= or IF WS_MAXIMIZE or THEN  \ start new child maximised unless
!                 ;M                                             \ the active child is not maximised

  :M DefaultIcon: ( -- hIcon )
!                 s" res\SciEditMDI.ico" Prepend<home>\ LoadIconFile ;M

  :M GetFileName: ( -- addr )
***************
*** 563,601 ****

  0 value Starting?
! :M Start:	( parent -- )
  true to Starting?
! 		Start: super
! 		self start: ChildWindow
! 		0 0 Width Height Move: ChildWindow
                  self AddFile: cTabWindow \ add the file to the file list
! \ 		SetFocus: ChildWindow
! 		SetFocus: self
  false to Starting?
! 		;M

! :M ?Modified:	( -- f )
! 		?Modified: ChildParent ;M

! :M GetFileType:	( -- n )
!  		GetFileType: ChildParent ;M

  :M UpdateStatusBar: ( -- )
! 		ShowToolbar?
! 		if   Update: ScintillaStatusbar
! 		then ;M

  :M On_SetFocus: ( -- )          \ A child window can be selected by clicking on it,
! 				\ selecting it from the Window menu or using CTRL+F6
! 		SetFocus: ChildWindow
! 		ChildWindow to CurrentWindow
! 		self to ActiveChild
! 		Update: ChildParent
! 		UpdateStatusBar: self
! 		EnableToolbar
  \                 self SelectFile: cTabWindow \ select the in the file list
                  ;M

! :M On_Size:	( h m w l -- h m w l )
! 		0 0 Width Height Move: ChildWindow ;M

  \ :M On_ChildActivate:  ( -- )
--- 563,601 ----

  0 value Starting?
! :M Start:       ( parent -- )
  true to Starting?
!                 Start: super
!                 self start: ChildWindow
!                 0 0 Width Height Move: ChildWindow
                  self AddFile: cTabWindow \ add the file to the file list
! \               SetFocus: ChildWindow
!                 SetFocus: self
  false to Starting?
!                 ;M

! :M ?Modified:   ( -- f )
!                 ?Modified: ChildParent ;M

! :M GetFileType: ( -- n )
!                 GetFileType: ChildParent ;M

  :M UpdateStatusBar: ( -- )
!                 ShowToolbar?
!                 if   Update: ScintillaStatusbar
!                 then ;M

  :M On_SetFocus: ( -- )          \ A child window can be selected by clicking on it,
!                                 \ selecting it from the Window menu or using CTRL+F6
!                 SetFocus: ChildWindow
!                 ChildWindow to CurrentWindow
!                 self to ActiveChild
!                 Update: ChildParent
!                 UpdateStatusBar: self
!                 EnableToolbar
  \                 self SelectFile: cTabWindow \ select the in the file list
                  ;M

! :M On_Size:     ( h m w l -- h m w l )
!                 0 0 Width Height Move: ChildWindow ;M

  \ :M On_ChildActivate:  ( -- )
***************
*** 618,680 ****
  \                 ;M

! : ?SaveMessage	( -- n )   \ IDYES, IDNO or IDCANCEL
! 		s" Do you want to save " pad place
! 		GetFileName: ChildParent count "to-pathend" pad +place
! 		s"  ?" pad +place  pad +NULL
! 		pad 1+ z" Win32Forth IDE"
! 		[ MB_ICONEXCLAMATION  MB_YESNOCANCEL or ] literal
! 		hWnd MessageBox ;

! :M On_Close:	( -- f )   \ True = close, False = cancel close
! 		?Modified: self
! 		IF   ?SaveMessage
! 		     Case
! 			IDCANCEL           Of                       FALSE Endof
! 			IDYES              Of SaveFile: ChildParent TRUE  Endof
! 			( otherwise IDNO ) TRUE  swap
! 		     EndCase
! 		ELSE TRUE
! 		THEN
! 		dup dup to NotCancelled
! 		IF                        \ if we don't cancel the close
! 		     GetFileName: ChildParent Insert: RecentFiles \ save filename in recent files list
                       self RemoveFile: cTabWindow \ remove the file from the file list
! 		     GetHandle: self Destroy: Frame \ sugested by Rod Oakford
! 		     ChildWindow dispose  \ then close the child window
! 		     self dispose         \ and dispose of both the
! 					  \ EditControl and the child window
! 		THEN
! 		;M

  :M WM_NOTIFY    ( h m w l -- res )
! 		GetFileType: self FT_SOURCE =
! 		if   2 cells + @ SCN_UPDATEUI =
                       if   UpdateStatusBar: self
!   		          EnableToolbar
                       then
! 		then false
                  ;M

  :M WM_CONTEXTMENU ( hwnd msg wparam lparam -- res )
! 		GetFileType: self FT_SOURCE =
! 		if   ?BrowseMode: ChildParent
! 		     if   VK_CONTROL Call GetKeyState 0x8000 and
                            if   <Hyper: ChildParent
                            else Hyper>: ChildParent
                            then
! 		     then
! 		then 0 ;M

! :M WM_SAVE	( -- ) \ save the current file if modified
! 		GetFileType: self FT_SOURCE =
! 		if   ?Modified: self
! 		     if   SaveFile: ChildParent
                       then
! 		then ;M

! :M WM_UPDATE	( -- ) \ save the current child from global variables
! 		GetFileType: self FT_SOURCE =
! 		if   Update: ChildParent
! 		then ;M

  ;Class
--- 618,680 ----
  \                 ;M

! : ?SaveMessage  ( -- n )   \ IDYES, IDNO or IDCANCEL
!                 s" Do you want to save " pad place
!                 GetFileName: ChildParent count "to-pathend" pad +place
!                 s"  ?" pad +place  pad +NULL
!                 pad 1+ z" Win32Forth IDE"
!                 [ MB_ICONEXCLAMATION  MB_YESNOCANCEL or ] literal
!                 hWnd MessageBox ;

! :M On_Close:    ( -- f )   \ True = close, False = cancel close
!                 ?Modified: self
!                 IF   ?SaveMessage
!                      Case
!                         IDCANCEL           Of                       FALSE Endof
!                         IDYES              Of SaveFile: ChildParent TRUE  Endof
!                         ( otherwise IDNO ) TRUE  swap
!                      EndCase
!                 ELSE TRUE
!                 THEN
!                 dup dup to NotCancelled
!                 IF                        \ if we don't cancel the close
!                      GetFileName: ChildParent Insert: RecentFiles \ save filename in recent files list
                       self RemoveFile: cTabWindow \ remove the file from the file list
!                      GetHandle: self Destroy: Frame \ sugested by Rod Oakford
!                      ChildWindow dispose  \ then close the child window
!                      self dispose         \ and dispose of both the
!                                           \ EditControl and the child window
!                 THEN
!                 ;M

  :M WM_NOTIFY    ( h m w l -- res )
!                 GetFileType: self FT_SOURCE =
!                 if   2 cells + @ SCN_UPDATEUI =
                       if   UpdateStatusBar: self
!                           EnableToolbar
                       then
!                 then false
                  ;M

  :M WM_CONTEXTMENU ( hwnd msg wparam lparam -- res )
!                 GetFileType: self FT_SOURCE =
!                 if   ?BrowseMode: ChildParent
!                      if   VK_CONTROL Call GetKeyState 0x8000 and
                            if   <Hyper: ChildParent
                            else Hyper>: ChildParent
                            then
!                      then
!                 then 0 ;M

! :M WM_SAVE      ( -- ) \ save the current file if modified
!                 GetFileType: self FT_SOURCE =
!                 if   ?Modified: self
!                      if   SaveFile: ChildParent
                       then
!                 then ;M

! :M WM_UPDATE    ( -- ) \ save the current child from global variables
!                 GetFileType: self FT_SOURCE =
!                 if   Update: ChildParent
!                 then ;M

  ;Class
***************
*** 751,827 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! :noname 	( -- )
! 		UpdateStatusBar
! 		EnableToolbar
! 		0 0 WM_UPDATE SendMessageToAllChildren: Frame
                  ; is Update

! : NewEditWnd	( -- ) \ open a new child window for editing
! 		New> HyperEditorChild to ActiveChild
! 		MDIClientWindow: Frame Start: ActiveChild ;

! : NewHtmlWnd	( -- ) \ open a new child window for displaying HTML-Files
! 		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
! 		       \ 'Find text in Files' dialog
                  ActiveBrowser 0=
! 		if   NewEditWnd ActiveChild to ActiveBrowser
! 		then GetHandle: ActiveBrowser Activate: Frame ;  is NewBrowseChild

  : NewRemoteChild ( -- ) \ open a new child window used to open a file
                          \ remotly by the Win32Forth console
! 		ActiveRemote 0=
! 		if   NewEditWnd ActiveChild to ActiveRemote
! 		then GetHandle: ActiveRemote Activate: Frame ;

  : (OpenHtmlFile) ( adr len -- )
! 		{ \ temp$ -- }
! 		MAX-PATH 2 + LocalAlloc: temp$
! 		temp$ place
! 		temp$ FileNotFound: Frame
! 		if   NewHtmlWnd
! 		     temp$ count asciiz SetURL: ActiveChild
! 		then Update ;

  : (OpenSourceFile) ( adr len -- )
! 		{ \ temp$ -- }
! 		MAX-PATH 2 + LocalAlloc: temp$
! 		temp$ place
! 		temp$ FileNotFound: Frame
! 		if   NewEditWnd
! 		     temp$ count OpenNamedFile: ActiveChild
! 		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 ;

  : (OpenImageFile) ( adr len -- )
! 		{ \ temp$ -- }
! 		MAX-PATH 2 + LocalAlloc: temp$
! 		temp$ place
! 		temp$ FileNotFound: Frame
! 		if   NewImageViewWnd
! 		     temp$ count SetFileName: ActiveChild
! 		then Update ;

  : (OpenRemoteFile) ( adr len -- )
! 		{ \ temp$ -- }
! 		MAX-PATH 2 + LocalAlloc: temp$
! 		temp$ place
! 		temp$ FileNotFound: Frame
! 		if   NewRemoteChild
! 		     temp$ count OpenNamedFile: ActiveChild
! 		else ActiveChild to ActiveRemote
! 		then Update ;

  :noname         ( addr -- )
--- 751,827 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! :noname         ( -- )
!                 UpdateStatusBar
!                 EnableToolbar
!                 0 0 WM_UPDATE SendMessageToAllChildren: Frame
                  ; is Update

! : NewEditWnd    ( -- ) \ open a new child window for editing
!                 New> HyperEditorChild to ActiveChild
!                 MDIClientWindow: Frame Start: ActiveChild ;

! : NewHtmlWnd    ( -- ) \ open a new child window for displaying HTML-Files
!                 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
!                        \ 'Find text in Files' dialog
                  ActiveBrowser 0=
!                 if   NewEditWnd ActiveChild to ActiveBrowser
!                 then GetHandle: ActiveBrowser Activate: Frame ;  is NewBrowseChild

  : NewRemoteChild ( -- ) \ open a new child window used to open a file
                          \ remotly by the Win32Forth console
!                 ActiveRemote 0=
!                 if   NewEditWnd ActiveChild to ActiveRemote
!                 then GetHandle: ActiveRemote Activate: Frame ;

  : (OpenHtmlFile) ( adr len -- )
!                 { \ temp$ -- }
!                 MAX-PATH 2 + LocalAlloc: temp$
!                 temp$ place
!                 temp$ FileNotFound: Frame
!                 if   NewHtmlWnd
!                      temp$ count asciiz SetURL: ActiveChild
!                 then Update ;

  : (OpenSourceFile) ( adr len -- )
!                 { \ temp$ -- }
!                 MAX-PATH 2 + LocalAlloc: temp$
!                 temp$ place
!                 temp$ FileNotFound: Frame
!                 if   NewEditWnd
!                      temp$ count OpenNamedFile: ActiveChild
!                 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 ;

  : (OpenImageFile) ( adr len -- )
!                 { \ temp$ -- }
!                 MAX-PATH 2 + LocalAlloc: temp$
!                 temp$ place
!                 temp$ FileNotFound: Frame
!                 if   NewImageViewWnd
!                      temp$ count SetFileName: ActiveChild
!                 then Update ;

  : (OpenRemoteFile) ( adr len -- )
!                 { \ temp$ -- }
!                 MAX-PATH 2 + LocalAlloc: temp$
!                 temp$ place
!                 temp$ FileNotFound: Frame
!                 if   NewRemoteChild
!                      temp$ count OpenNamedFile: ActiveChild
!                 else ActiveChild to ActiveRemote
!                 then Update ;

  :noname         ( addr -- )
***************
*** 848,911 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! : DoMDIMsg	( pMsg f  -- pMsg f )
! 		dup MDIClient: Frame 0<> and
! 		IF   drop dup MDIClient: Frame Call TranslateMDISysAccel 0=
! 		THEN ; msg-chain chain-add DoMDIMsg

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \	Accelerator Table - support
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

  AccelTable table

! 	\ falgs		      key-code  command-id

! 	\ File menu
! 	FCONTROL 		'N'	IDM_NEW_SOURCE_FILE	ACCELENTRY
! 	FCONTROL 		'O'	IDM_OPEN_SOURCE_FILE	ACCELENTRY
! 	FCONTROL 		'S'	IDM_SAVE      		ACCELENTRY
! 	FALT     		'S'	IDM_SAVE_ALL		ACCELENTRY
! 	FCONTROL 		'P'	IDM_PRINT      		ACCELENTRY
! \	FCONTROL 		'R'	IDM_RELOAD		ACCELENTRY
! 	FSHIFT FCONTROL or 	'O'	IDM_OPEN_HIGHLIGHTED_FILE	ACCELENTRY

! 	\ Edit menu
! 	FCONTROL 		'F'	IDM_FIND_TEXT		ACCELENTRY
! 	FCONTROL 		VK_F3	IDM_FIND_TEXT		ACCELENTRY
! 	0        		VK_F3	IDM_FIND_NEXT		ACCELENTRY
! \	FSHIFT   		VK_F3	IDM_FIND_PREVIOUS	ACCELENTRY

! 	FALT     		'D'	IDM_INSERT_DATE		ACCELENTRY
! 	FALT     		'T'	IDM_INSERT_DATE&TIME	ACCELENTRY
! 	FALT     		'C'	IDM_COMMENT_BLOCK	ACCELENTRY
! 	FALT     		'U'	IDM_UNCOMMENT_BLOCK	ACCELENTRY
! 	FSHIFT FCONTROL or 	'F'	IDM_FIND_IN_FILES	ACCELENTRY

! 	\ DexH menu
! 	FALT     		'G'	IDM_DEX_GLOSSARY	 ACCELENTRY
! 	FALT     		'P'	IDM_DEX_PARAGRAPH	 ACCELENTRY
! 	FALT FCONTROL or	'C'	IDM_DEX_CODE_PARAGRAPH	 ACCELENTRY
! 	FALT     		'B'	IDM_DEX_STYLE_BOLD	 ACCELENTRY
! 	FALT     		'I'	IDM_DEX_STYLE_ITALIC	 ACCELENTRY
! 	FALT FCONTROL or	'T'	IDM_DEX_STYLE_TYPEWRITER ACCELENTRY

! 	\ Properties menu
!         0        		VK_F7	IDM_BROWSE		ACCELENTRY

! 	\ Win32Forth menu
!         0        		VK_F12	IDM_COMPILE		ACCELENTRY
!         0        		VK_F11	IDM_DEBUG		ACCELENTRY
! 	0			VK_F10  IDM_HTML_PREVIEW        ACCELENTRY

! 	\ Help menu
!         FCONTROL 		VK_F1	IDM_W32F_ANS_HELP	ACCELENTRY
! 	FSHIFT                  VK_F1   IDM_API_HELP            ACCELENTRY
!         0        		VK_F1	IDM_W32F_DOC		ACCELENTRY
!         FALT     		VK_F1	IDM_ANS_DOC		ACCELENTRY

  Frame HandlesThem

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \	command line handling
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

--- 848,911 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

! : DoMDIMsg      ( pMsg f  -- pMsg f )
!                 dup MDIClient: Frame 0<> and
!                 IF   drop dup MDIClient: Frame Call TranslateMDISysAccel 0=
!                 THEN ; msg-chain chain-add DoMDIMsg

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \       Accelerator Table - support
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

  AccelTable table

!         \ falgs               key-code  command-id

!         \ File menu
!         FCONTROL                'N'     IDM_NEW_SOURCE_FILE     ACCELENTRY
!         FCONTROL                'O'     IDM_OPEN_SOURCE_FILE    ACCELENTRY
!         FCONTROL                'S'     IDM_SAVE                ACCELENTRY
!         FALT                    'S'     IDM_SAVE_ALL            ACCELENTRY
!         FCONTROL                'P'     IDM_PRINT               ACCELENTRY
! \       FCONTROL                'R'     IDM_RELOAD              ACCELENTRY
!         FSHIFT FCONTROL or      'O'     IDM_OPEN_HIGHLIGHTED_FILE       ACCELENTRY

!         \ Edit menu
!         FCONTROL                'F'     IDM_FIND_TEXT           ACCELENTRY
!         FCONTROL                VK_F3   IDM_FIND_TEXT           ACCELENTRY
!         0                       VK_F3   IDM_FIND_NEXT           ACCELENTRY
! \       FSHIFT                  VK_F3   IDM_FIND_PREVIOUS       ACCELENTRY

!         FALT                    'D'     IDM_INSERT_DATE         ACCELENTRY
!         FALT                    'T'     IDM_INSERT_DATE&TIME    ACCELENTRY
!         FALT                    'C'     IDM_COMMENT_BLOCK       ACCELENTRY
!         FALT                    'U'     IDM_UNCOMMENT_BLOCK     ACCELENTRY
!         FSHIFT FCONTROL or      'F'     IDM_FIND_IN_FILES       ACCELENTRY

!         \ DexH menu
!         FALT                    'G'     IDM_DEX_GLOSSARY         ACCELENTRY
!         FALT                    'P'     IDM_DEX_PARAGRAPH        ACCELENTRY
!         FALT FCONTROL or        'C'     IDM_DEX_CODE_PARAGRAPH   ACCELENTRY
!         FALT                    'B'     IDM_DEX_STYLE_BOLD       ACCELENTRY
!         FALT                    'I'     IDM_DEX_STYLE_ITALIC     ACCELENTRY
!         FALT FCONTROL or        'T'     IDM_DEX_STYLE_TYPEWRITER ACCELENTRY

!         \ Properties menu
!         0                       VK_F7   IDM_BROWSE              ACCELENTRY

!         \ Win32Forth menu
!         0                       VK_F12  IDM_COMPILE             ACCELENTRY
!         0                       VK_F11  IDM_DEBUG               ACCELENTRY
!         0                       VK_F10  IDM_HTML_PREVIEW        ACCELENTRY

!         \ Help menu
!         FCONTROL                VK_F1   IDM_W32F_ANS_HELP       ACCELENTRY
!         FSHIFT                  VK_F1   IDM_API_HELP            ACCELENTRY
!         0                       VK_F1   IDM_W32F_DOC            ACCELENTRY
!         FALT                    VK_F1   IDM_ANS_DOC             ACCELENTRY

  Frame HandlesThem

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \       command line handling
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

***************
*** 939,952 ****
                       strip-cmdline

! 		     2dup IsHtmlFile?
! 		     if   (OpenHtmlFile)
! 		     else (OpenRemoteFile) ActiveChild
                            if   bBrowse SetBrowseMode: ActiveChild
                                 #line 1- GotoLine: ActiveChild
                            then
! 		     then
                  else drop
                  then ;

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       The word to start the application
--- 939,953 ----
                       strip-cmdline

!                      2dup IsHtmlFile?
!                      if   (OpenHtmlFile)
!                      else (OpenRemoteFile) ActiveChild
                            if   bBrowse SetBrowseMode: ActiveChild
                                 #line 1- GotoLine: ActiveChild
                            then
!                      then
                  else drop
                  then ;

+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       The word to start the application
***************
*** 962,966 ****
                  Turnkeyed? IF  Begin key drop again  THEN
                  ;
- 
  [defined] sysgen [IF]

--- 963,966 ----

Thread: [Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.20,1.21

win32forth-cvs