--- 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 $'
! !