[Win32forth-cvs] win32forth/src Window.f,1.29,1.30

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20822

Modified Files:
	Window.f 
Log Message:
Moved default-class-name to default-window-class

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Window.f	15 Mar 2013 00:23:06 -0000	1.29
--- Window.f	23 Mar 2013 22:00:33 -0000	1.30
***************
*** 269,274 ****
--- 269,290 ----
  ;Record
  
+ : default-class-name   ( -- )
+ \ The a default window class name for this window. Every window
+ \ will become it's own class name and it's own window class.
+ \ Note: If the window class name is set with SetClassName: before
+ \ the Start: method is called no default class name will be set.
+                 WindowClassName c@ 0=
+                 if   (classnamelock)
+                      s" w32fWindow-" WindowClassName place
+                      ClassNameID (.) WindowClassName +place
+                      WindowClassName +null
+                      1 +to ClassNameID
+                      (classnameunlock)
+                 then
+ \ cr ." The WindowClassName is: " WindowClassName count type
+                 ;
  : default-window-class ( -- )
  \ Fill in the defaults for the window class.
+                 default-class-name
                  WndClassStyle: [ self ]                            to Style
                  TheWndProc                                         to wndProc
***************
*** 286,308 ****
                  WndClass Call RegisterClass ;
  
- : default-class-name   ( -- )
- \ The a default window class name for this window. Every window
- \ will become it's own class name and it's own window class.
- \ Note: If the window class name is set with SetClassName: before
- \ the Start: method is called no default class name will be set.
-                 WindowClassName c@ 0=
-                 if   (classnamelock)
-                      s" w32fWindow-" WindowClassName place
-                      ClassNameID (.) WindowClassName +place
-                      WindowClassName +null
-                      1 +to ClassNameID
-                      (classnameunlock)
-                 then
- \ cr ." The WindowClassName is: " WindowClassName count type
-                 ;
- 
  : register-frame-window  ( -- f )
  \ Init the window class and register it.
-                 default-class-name
                  default-window-class
                  register-the-class ;
--- 302,307 ----