AbstractFileBrowser.st
changeset 4337 f2eed806e854
parent 4317 bf3f150809c2
child 4343 209810452034
--- a/AbstractFileBrowser.st	Fri Nov 29 10:47:01 2002 +0100
+++ b/AbstractFileBrowser.st	Fri Nov 29 10:48:10 2002 +0100
@@ -233,18 +233,18 @@
 
 !AbstractFileBrowser class methodsFor:'image'!
 
-DisabledCursorImage
+disabledCursorImage
 
     DisabledCursorImage isNil ifTrue:[
-	DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
+        DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
     ].
     ^ DisabledCursorImage
 !
 
-EnabledCursorImage
+enabledCursorImage
 
     EnabledCursorImage isNil ifTrue:[
-	EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
+        EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
     ].
     ^ EnabledCursorImage
 ! !
@@ -2713,8 +2713,8 @@
 
     hdl := DragAndDropManager new.
 
-    hdl disabledCursor:self class DisabledCursorImage.
-    hdl enabledCursor:self class EnabledCursorImage.
+    hdl disabledCursor:self class disabledCursorImage.
+    hdl enabledCursor:self class enabledCursorImage.
     hdl alienCursor:nil.
 
     hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
@@ -5245,12 +5245,7 @@
 
 !AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
 
-FilenameHistorySize
-
-    ^ 20
-!
-
-HistorySize
+filenameHistorySize
 
     ^ 20
 ! !
@@ -5260,8 +5255,8 @@
 add:aApplItem
 
     super add:aApplItem.
-    (self size > self class FilenameHistorySize) ifTrue:[
-	self removeLast.
+    (self size > self class filenameHistorySize) ifTrue:[
+        self removeLast.
     ]
 ! !
 
@@ -5306,5 +5301,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.62 2002-11-26 15:51:55 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.63 2002-11-29 09:48:10 penk Exp $'
 ! !