--- a/RadioButton.st	Fri Jan 15 17:58:10 2016 +0100
+++ b/RadioButton.st	Fri Jan 15 17:58:13 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 Toggle subclass:#RadioButton
 	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel offImage onImage
 		buttonOffImage buttonOnImage disabledOnImage disabledOffImage
@@ -1089,7 +1091,8 @@
 
 nativeWindowType
     "return a symbol describing my native window type 
-     (may be used internally by the device as a native window creation hint)"
+     (may be used internally by the device as a native window creation hint,
+      if the device supports native windows)"
 
     self class == RadioButton ifTrue:[
         ^ #RadioButton
@@ -1148,10 +1151,10 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.56 2014-08-18 18:28:19 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.56 2014-08-18 18:28:19 stefan Exp $'
+    ^ '$Header$'
 ! !