--- a/DeviceWorkstation.st	Sun Aug 03 11:32:31 2014 +0200
+++ b/DeviceWorkstation.st	Sun Aug 03 14:33:00 2014 +0200
@@ -4669,6 +4669,13 @@
 
 !DeviceWorkstation methodsFor:'event handling'!
 
+addToKnownScreens
+    AllScreens isNil ifTrue:[
+        AllScreens := IdentitySet new:1
+    ].
+    AllScreens add:self.
+!
+
 checkForEndOfDispatch
     "return true, if there are still any views of interest -
      if not, stop dispatch.
@@ -4988,10 +4995,7 @@
     (dispatchProcess notNil and:[dispatchProcess isDead not]) ifTrue:[^ self].
     dispatching := true.
 
-    AllScreens isNil ifTrue:[
-	AllScreens := IdentitySet new:1
-    ].
-    AllScreens add:self.
+    self addToKnownScreens.
 
     p := [ self setupDispatchLoop ] newProcess.
 
@@ -4999,9 +5003,9 @@
     "/ give the process a nice name (for the processMonitor)
     "/
     (nm := self displayName) notNil ifTrue:[
-	nm := 'event dispatcher (' ,  nm , ')'.
+        nm := 'event dispatcher (' ,  nm , ')'.
     ] ifFalse:[
-	nm := 'event dispatcher'.
+        nm := 'event dispatcher'.
     ].
     p name:nm.
     p priority:(Processor userInterruptPriority).
@@ -6133,6 +6137,12 @@
     "Modified: 24.4.1996 / 19:38:46 / cg"
 !
 
+nativeWidgets:aBoolean
+    "enable/disable native widgets on a display"
+
+    "/ ignored here
+!
+
 reinitialize
     "historic leftover (old subclasses call super reinitialize)"
 !
@@ -7256,6 +7266,20 @@
     ^ self
 ! !
 
+!DeviceWorkstation methodsFor:'native window stuff'!
+
+changeButtonState:state in:drawableId
+    self subclassResponsibility
+!
+
+changeLabel:state in:drawableId
+    self subclassResponsibility
+!
+
+enableScrollBar:enableBoolean in:drawableId
+    self subclassResponsibility
+! !
+
 !DeviceWorkstation methodsFor:'pointer stuff'!
 
 anyButtonMotionMask
@@ -7445,6 +7469,14 @@
     "Created: / 24-08-2010 / 17:23:51 / sr"
 !
 
+supportsNativeWidgetType:aWidgetTypeSymbol
+    ^ false
+
+    "
+     Screen current supportsNativeWidgetType:#Button
+    "
+!
+
 supportsNativeWidgets
     ^ false
 
@@ -8018,7 +8050,7 @@
 !
 
 setCursor:aCursorId in:aWindowId
-    "set a windows cursor"
+    "set a window's cursor"
 
     "/ mhmh - could be ignored
     ^ self subclassResponsibility
@@ -8026,10 +8058,10 @@
 
 setCursors:aCursor
     "change the cursor of all views on the receiver device
-     to aCursorId, without affecting the views idea of what
-     the cursor is (so that it can be restored from the views
+     to aCursorId, without affecting the view's idea of what
+     the cursor is (so that it can be restored from the view's
      cursor instance variable later).
-     Use of this is not recommended - its better to change
+     Use of this is not recommended - it's better to change
      the cursor of a windowGroup alone."
 
     |id|
@@ -8038,14 +8070,14 @@
 
     id := (aCursor onDevice:self) id.
     id notNil ifTrue:[
-	knownViews validElementsDo:[:aView |
-	    |vid|
-
-	    (vid := aView id) notNil ifTrue:[
-		self setCursor:id in:vid
-	    ]
-	].
-	self flush
+        knownViews validElementsDo:[:aView |
+            |vid|
+
+            (vid := aView id) notNil ifTrue:[
+                self setCursor:id in:vid
+            ]
+        ].
+        self flush
     ]
 
     "
@@ -8381,11 +8413,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.621 2014-08-01 06:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.622 2014-08-03 12:33:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.621 2014-08-01 06:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.622 2014-08-03 12:33:00 cg Exp $'
 ! !