[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdAbout.f, 1.1, 1.2 EdImageWindow.f, 1.1, 1.2 EdMenu

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-serv2660/apps/Win32ForthIDE

Modified Files:
	EdAbout.f EdImageWindow.f EdMenu.f EdStatusbar.f Main.f 
Log Message:
- FreeImage.dll added

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Main.f	9 Jun 2006 11:44:56 -0000	1.8
--- Main.f	9 Jun 2006 17:03:35 -0000	1.9
***************
*** 12,16 ****
  \ See www.scintilla.org for more information about the control.

! cr .( Loading Win32ForthIDE...)

  ANEW -Main.f
--- 12,16 ----
  \ See www.scintilla.org for more information about the control.

! cr .( Loading Win32Forth IDE...)

  ANEW -Main.f
***************
*** 62,65 ****
--- 62,66 ----
  1 constant FT_HTML
  2 constant FT_BINARY
+ 3 constant FT_BITMAP

  needs EdToolbar.f
***************
*** 273,277 ****

  :M WindowTitle: ( -- z" )
!                 z" Win32ForthIDE" ;M

  :M MinSize:     ( -- width height )
--- 274,278 ----

  :M WindowTitle: ( -- z" )
!                 z" Win32Forth IDE" ;M

  :M MinSize:     ( -- width height )
***************
*** 553,557 ****
  		GetFileName: ChildParent count "to-pathend" pad +place
  		s"  ?" pad +place  pad +NULL
! 		pad 1+ z" Win32ForthIDE"
  		[ MB_ICONEXCLAMATION  MB_YESNOCANCEL or ] literal
  		hWnd MessageBox ;
--- 554,558 ----
  		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 ;
***************
*** 755,761 ****
  \ This is called from the File listview when a file is selected.
  \ addr is the object address of the mdi child window
!                 GetHandle: [ ] Activate: Frame Update
! \                 SetFocus: Frame
!                 ; is OnSelect

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 756,760 ----
  \ This is called from the File listview when a file is selected.
  \ addr is the object address of the mdi child window
!                 GetHandle: [ ] Activate: Frame Update ; is OnSelect

  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Index: EdAbout.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdAbout.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdAbout.f	5 Jun 2006 09:19:00 -0000	1.1
--- EdAbout.f	9 Jun 2006 17:03:35 -0000	1.2
***************
*** 22,26 ****

  create about-head
!          z," Win32ForthIDE (Public Domain since June 2006)"

  create about-msg1
--- 22,26 ----

  create about-head
!          z," Win32Forth IDE (Public Domain since June 2006)"

  create about-msg1
***************
*** 30,45 ****
          sciedit-compile-version >date" +z",
          +z," , "
!         sciedit-compile-version >time" +z", +z,"  "

  create about-msg2
!          z," Written in 2006 by: Dirk Busch (dbu)\n"
!         +z," eMail: di...@wi...\n"
!         +z," This Win32Forth IDE based on:"
!         +z," 'SciEdit' written by Dirk Busch and \n"
          +z," 'Project Manager' written by Ezra Boyce."

  create about-msg3
!          z," This Editor is based on the: 'Scintilla source code edit control'."
!         +z," See www.scintilla.org for more information about the control."

  :M On_Init:     ( hWnd-focus -- f )
--- 30,51 ----
          sciedit-compile-version >date" +z",
          +z," , "
!         sciedit-compile-version >time" +z",
!         +z," \n\n"
!         +z," Written in 2006 by: "
!         +z," Dirk Busch, Ezra Boyce, George Hubert, "
!         +z," Rod Oakford and some others."

  create about-msg2
!          z," This Win32Forth IDE based on:\n"
!         +z," 'SciEdit' written by Dirk Busch and\n"
          +z," 'Project Manager' written by Ezra Boyce."

  create about-msg3
!          z," The Win32Forth IDE is using the:\n"
!         +z," - 'Scintilla source code edit control' "
!         +z," See www.scintilla.org for details.\n"
!         +z," - 'FreeImage open source image library' "
!         +z," See http://freeimage.sourceforge.net for details. "
!         +z," FreeImage is used under the FreeImage Public License."

  :M On_Init:     ( hWnd-focus -- f )

Index: EdStatusbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdStatusbar.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EdStatusbar.f	7 Jun 2006 15:39:34 -0000	1.2
--- EdStatusbar.f	9 Jun 2006 17:03:35 -0000	1.3
***************
*** 46,50 ****
  : SetHtmlView	( -- )
  		Clear: self
!                 z"  HTML view" EdPart SetText: self ;

  : SetEditView	( -- )
--- 46,50 ----
  : SetHtmlView	( -- )
  		Clear: self
!                 z"  HTML" EdPart SetText: self ;

  : SetEditView	( -- )
***************
*** 65,69 ****
  : SetBinaryView ( -- )
  		Clear: self
!                 z"  BIN view" EdPart SetText: self ;

  :M Update:	( -- )
--- 65,73 ----
  : SetBinaryView ( -- )
  		Clear: self
!                 z"  BINARY" EdPart SetText: self ;
! 
! : SetBitmapView ( -- )
! 		Clear: self
!                 z"  BITMAP" EdPart SetText: self ;

  :M Update:	( -- )
***************
*** 77,80 ****
--- 81,85 ----
                          FT_HTML   of SetHtmlView   endof
                          FT_BINARY of SetBinaryView endof
+                         FT_BITMAP of SetBitmapView endof
                       endcase
  		then

Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** EdMenu.f	9 Jun 2006 04:31:07 -0000	1.5
--- EdMenu.f	9 Jun 2006 17:03:35 -0000	1.6
***************
*** 183,186 ****
--- 183,189 ----
  		GetFileType FT_BINARY = ;

+ : IsBitmapWnd?	( -- f )
+ 		GetFileType FT_BITMAP = ;
+ 
  : NoTextToPad   ( -- addr len ) \ copy empty string to PAD
                  0 pad ! pad count ;

Index: EdImageWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdImageWindow.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdImageWindow.f	9 Jun 2006 04:31:07 -0000	1.1
--- EdImageWindow.f	9 Jun 2006 17:03:35 -0000	1.2
***************
*** 47,51 ****

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

  :M Update:      ( -- )
--- 47,51 ----

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

  :M Update:      ( -- )
***************
*** 55,60 ****

  : NewImageViewWnd  ( -- )
!     New> ImageViewChild to ActiveChild
! 		MDIClientWindow: Frame Start: ActiveChild ;
! 
!     \s
--- 55,58 ----

  : NewImageViewWnd  ( -- )
!                 New> ImageViewChild to ActiveChild
!                 MDIClientWindow: Frame Start: ActiveChild ;

[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdAbout.f, 1.1, 1.2 EdImageWindow.f, 1.1, 1.2 EdMenu

[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdAbout.f, 1.1, 1.2 EdImageWindow.f, 1.1, 1.2 EdMenu.f, 1.5, 1.6 EdStatusbar.f, 1.2, 1.3 Main.f, 1.8, 1.9