--- a/Cursor.st	Mon Oct 07 11:19:32 2002 +0200
+++ b/Cursor.st	Mon Oct 14 18:15:24 2002 +0200
@@ -3206,10 +3206,10 @@
 allocateOnDevice:aDevice
     "allocate a device-cursor-resource for me on aDevice"
 
-    |newCursor id sF mF w h deviceSf deviceMf|
+    |id sF mF w h deviceSf deviceMf|
 
     device notNil ifTrue:[
-        self halt:'should not happen'.
+        self error:'should not happen' mayProceed:true.
         device unregisterCursor:self.
         device := cursorId := nil.
     ].
@@ -3336,6 +3336,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.99 2002-07-11 12:20:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.100 2002-10-14 16:14:33 stefan Exp $'
 ! !
+
 Cursor initialize!

--- a/GLXWorkstation.st	Mon Oct 07 11:19:32 2002 +0200
+++ b/GLXWorkstation.st	Mon Oct 14 18:15:24 2002 +0200
@@ -3287,13 +3287,6 @@
     ^ false
 !
 
-glxCallobj: obj in: aGLXWindowId
-    "OBSOLETE; use glxCallObject:in:
-     This one will be removed soon."
-
-    self halt
-!
-
 glxCloseObjectIn:aGLXWindowId
     "end object defnition"
 
@@ -3307,13 +3300,6 @@
 %}
 !
 
-glxCloseobjIn:aGLXWindowId
-    "OBSOLETE: use glxCloseObjectIn:
-     This one will be removed."
-
-    self halt
-!
-
 glxDeleteObject:obj in:aGLXWindowId
 
 %{  /* NOCONTEXT STACK:32000 */
@@ -3328,13 +3314,6 @@
 %}
 !
 
-glxDelobj:obj in:aGLXWindowId
-    "OBSOLETE: use glxDeleteObject:in:
-     This one will be removed."
-
-    self halt
-!
-
 glxGenObjectIn:aGLXWindowId
     "return a new (free & unused) object id for use
      with makeObj"
@@ -3348,13 +3327,6 @@
 %}
 !
 
-glxGenobjIn:aGLXWindowId
-    "OBSOLETE: use glxGenObject:in:
-     This one will be removed."
-
-    self halt
-!
-
 glxGetopenobjIn:aGLXWindowId
     "return the currently open objects id; -1 if none is open"
 
@@ -3394,13 +3366,6 @@
 #endif
 %}.
     ^ false
-!
-
-glxMakeobj:obj in:aGLXWindowId
-    "OBSOLETE; use glxMakeObject:in:
-     This one will be removed soon."
-
-    self halt
 ! !
 
 !GLXWorkstation methodsFor:'patches & surfaces'!
@@ -8800,5 +8765,5 @@
 !GLXWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.78 2001-08-21 09:27:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.79 2002-10-14 16:15:24 stefan Exp $'
 ! !