[Win32forth-cvs] win32forth/apps/SciEdit Main.f,1.18,1.19

[Rod O. <rod...@us...>]

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

Modified Files:
	Main.f 
Log Message:
Rod: Added WndClassStyle: CS_DBLCLKS and removed borders

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Main.f	7 May 2006 06:34:26 -0000	1.18
--- Main.f	13 May 2006 20:31:02 -0000	1.19
***************
*** 128,145 ****
  
  :M ReSize:      ( -- )
!                 tempRect.AddrOf GetClientRect: self
! 
!                 Left: tempRect
!                 ShowToolbar? if Height: TheRebar 2 - else Top: tempRect then
!                 Right: tempRect
!                 Bottom: tempRect
!                 ShowStatusbar? if Height: ScintillaStatusbar - 1+ then
!                 ShowToolbar? if Height: TheRebar - 1+ then
                  Move: MDIClient
  
!                 ShowToolbar? if Width Height: TheRebar GetHandle: TheRebar AdjustWindowSize then
!                 ShowStatusbar? if Redraw: ScintillaStatusbar then
                  ;M
  
  int WindowState
  :M On_Size:     ( h m w -- )
--- 128,145 ----
  
  :M ReSize:      ( -- )
!                 0
!                 ShowToolbar?   if  Height: TheRebar  else  0  then
!                 width 
!                 height 
!                 ShowStatusbar? if  Height: ScintillaStatusbar -  then
!                 ShowToolbar?   if  Height: TheRebar -  then
                  Move: MDIClient
  
!                 ShowToolbar?   if  Width Height: TheRebar GetHandle: TheRebar AdjustWindowSize  then
!                 ShowStatusbar? if  Redraw: ScintillaStatusbar  then
                  ;M
  
+ :M MinSize: ( -- width height )   412  0  ;M   \ prevent menu wrapping onto another line
+ 
  int WindowState
  :M On_Size:     ( h m w -- )
***************
*** 275,282 ****
                  LoadAppIcon ;M
  
! :M On_Init:     ( -- )
! 
!                 On_Init: super
  
                  InitScintillaControl \ Dienstag, August 03 2004 dbu
                  AccelTable EnableAccelerators \ init the accelerator table
--- 275,281 ----
                  LoadAppIcon ;M
  
! :M WndClassStyle: ( -- style )   CS_DBLCLKS ;M
  
+ :M On_Init:     ( -- )
                  InitScintillaControl \ Dienstag, August 03 2004 dbu
                  AccelTable EnableAccelerators \ init the accelerator table
***************
*** 284,288 ****
                  self Start: TheRebar
                  EnableToolbar
!                 load-defaults ReSize: self
                  ;M
  
--- 283,291 ----
                  self Start: TheRebar
                  EnableToolbar
!                 On_Init: super
!                 \ with CS_DBLCLKS as WndClassStyle to prevent flicker
!                 \ Statusbar must now be started before MDIClient
! \ ( not needed) CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
!                 load-defaults
                  ;M