--- a/Cursor.st	Mon Dec 20 18:45:08 1993 +0100
+++ b/Cursor.st	Sat Jan 08 18:12:58 1994 +0100
@@ -13,7 +13,7 @@
 Object subclass:#Cursor
        instanceVariableNames:'shape sourceForm maskForm hotX hotY
                               device cursorId'
-       classVariableNames:   'lobby
+       classVariableNames:   'Lobby
                               DefaultFgColor DefaultBgColor
 
                               NormalCursor HandCursor ArrowCursor
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.5 1993-12-11 01:26:11 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.6 1994-01-08 17:11:07 claus Exp $
 
 see Cursor class documentation for info.
 
@@ -56,7 +56,7 @@
 
 class variables:
 
-lobby           <Registry>      keeps track of known device cursors
+Lobby           <Registry>      keeps track of known device cursors
 
 DefaultFgColor  <Color>         default foreground color for cursors (usually black)
 DefaultBgColor  <Color>         default background color for cursors (usually white)
@@ -70,8 +70,8 @@
 !Cursor class methodsFor:'initialization'!
 
 initialize
-    lobby isNil ifTrue:[
-        lobby := Registry new.
+    Lobby isNil ifTrue:[
+        Lobby := Registry new.
 
         "want to be informed when returning from snapshot"
         ObjectMemory addDependent:self
@@ -81,9 +81,9 @@
 flushDeviceCursors
     "unassign all cursors from their device"
 
-    lobby contentsDo:[:aCursor |
+    Lobby contentsDo:[:aCursor |
         aCursor restored.
-        lobby changed:aCursor
+        Lobby changed:aCursor
     ]
 !
 
@@ -161,7 +161,7 @@
     |newCursor|
 
     "first look if not already known"
-    lobby contentsDo:[:aCursor |
+    Lobby contentsDo:[:aCursor |
         (aCursor sourceForm == sourceForm) ifTrue:[
             (aCursor maskForm == maskForm) ifTrue:[
                 (aCursor hotX == hotX) ifTrue:[
@@ -176,7 +176,7 @@
                                     maskForm:maskForm
                                         hotX:hotX
                                         hotY:hotY.
-    lobby register:newCursor.
+    Lobby register:newCursor.
     ^ newCursor
 !
 
@@ -188,13 +188,13 @@
     |newCursor|
 
     "first look if not already known"
-    lobby contentsDo:[:aCursor |
+    Lobby contentsDo:[:aCursor |
         (aCursor shape == aShape) ifTrue:[
             ^ aCursor
         ]
     ].
     newCursor := self basicNew setShape:aShape.
-    lobby register:newCursor.
+    Lobby register:newCursor.
     ^ newCursor
 !
 
@@ -643,7 +643,7 @@
     "create a new Cursor representing the same cursor as
      myself on aDevice; if one already exists, return the one"
 
-    |newCursor index id|
+    |newCursor id|
 
     aDevice isNil ifTrue:[
         "this may not happen"
@@ -654,7 +654,7 @@
     (device == aDevice) ifTrue:[^ self].
 
     "first look if not already there"
-    lobby contentsDo:[:aCursor |
+    Lobby contentsDo:[:aCursor |
         (aCursor device == aDevice) ifTrue:[
             shape notNil ifTrue:[
                 (aCursor shape == shape) ifTrue:[
@@ -704,7 +704,7 @@
         cursorId := id.
 
         "must unregister, the old registration had a nil cursorId in it"
-        lobby changed:self.
+        Lobby changed:self.
         ^ self
     ].
 
@@ -719,7 +719,7 @@
                            hotY:hotY
     ].
     newCursor setDevice:aDevice id:id.
-    lobby register:newCursor.
+    Lobby register:newCursor.
     ^ newCursor
 ! !