preps for native window support
authorClaus Gittinger <cg@exept.de>
Fri, 02 May 1997 14:41:24 +0200
changeset 382 ea14fe927a8b
parent 381 64a356e640fc
child 383 fa5fa79b1e8a
preps for native window support
CheckBox.st
--- a/CheckBox.st	Fri May 02 09:43:55 1997 +0200
+++ b/CheckBox.st	Fri May 02 14:41:24 1997 +0200
@@ -684,8 +684,28 @@
     "Modified: 19.7.1996 / 20:43:47 / cg"
 ! !
 
+!CheckBox methodsFor:'queries - internal'!
+
+nativeWindowType
+    "return a symbol describing my native window type 
+     (may be used internally by the device as a native window creation hint)"
+
+    ^ #CheckBox
+
+    "Created: 2.5.1997 / 14:41:00 / cg"
+!
+
+windowStyle
+    "return a symbol describing my style 
+     (may be used internally by the device as a decoration hint)"
+
+    ^ #checkBox
+
+    "Created: 2.5.1997 / 14:40:25 / cg"
+! !
+
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.43 1997-04-01 11:22:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.44 1997-05-02 12:41:24 cg Exp $'
 ! !