--- a/Label.st	Sun May 18 09:45:08 2014 +0100
+++ b/Label.st	Mon Sep 08 17:03:09 2014 +0100
@@ -1473,6 +1473,18 @@
     ^ m
 ! !
 
+!Label methodsFor:'native widget support'!
+
+nativeWindowType
+    "return a symbol describing my native window type 
+     (may be used internally by the device as a native window creation hint)"
+
+    self class == Label ifTrue:[
+        ^ #Label
+    ].
+    ^ nil
+! !
+
 !Label methodsFor:'others'!
 
 rawLabelSizeOf:aLogo
@@ -1959,10 +1971,10 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.153 2014-02-18 16:46:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.154 2014-08-03 12:28:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.153 2014-02-18 16:46:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.154 2014-08-03 12:28:17 cg Exp $'
 ! !