--- a/ImageEditor.st Wed Jan 28 14:58:00 1998 +0100
+++ b/ImageEditor.st Wed Jan 28 15:01:47 1998 +0100
@@ -201,9 +201,6 @@
#editRotate
'Opens a dialog to rotate the image in degrees.'
-#editUndo
-'Undoes last action.'
-
#fileBrowseClass
'Opens the System Browser on the class and the selector.'
@@ -315,12 +312,6 @@
#'activeHelpKey:' #fileLoadFromClass
)
#(#MenuItem
- #'label:' 'Load From Class With Superclass...'
- #'translateLabel:' true
- #'value:' #loadFromClassWithSuperclass
- #'activeHelpKey:' #fileLoadFromClassWithSuperclass
- )
- #(#MenuItem
#'label:' '-'
)
#(#MenuItem
@@ -369,7 +360,7 @@
#'label:' '-'
)
#(#MenuItem
- #'label:' 'Browse Class'
+ #'label:' 'Browse Image Class'
#'value:' #browseClass
#'activeHelpKey:' #fileBrowseClass
#'enabled:' #imageIsLoaded
@@ -1173,7 +1164,7 @@
defaultInfoLabel
|usedColors|
- self image isNil ifTrue: [^'No image defined'].
+ self image isNil ifTrue: [^'No image loaded.'].
self image colorMap isNil ifTrue: [usedColors := '?'] ifFalse: [usedColors := self image usedColors size].
^self image width printString, 'x',
self image height printString, 'x',
@@ -1617,34 +1608,6 @@
!
-loadFromClassWithSuperclass
-
- |box|
- box := EnterBox new.
- box title:'Name of superclass:'.
- box okText:'OK'.
- box abortText:'Cancel'.
- box initialText: 'ApplicationModel'.
- box entryCompletionBlock:[:contents |
- |s what m|
-
- s := contents withoutSpaces.
- what := Smalltalk classnameCompletion:s.
- box contents:what first.
- (what at:2) size ~~ 1 ifTrue:[
- self beep
- ]
- ].
- box showAtPointer.
- box accepted
- ifTrue:
- [
- self loadFromInClassesOf: box contents asSymbol
- ]
-
- "Modified: / 28.1.1998 / 13:14:00 / stefan"
-!
-
loadFromFile
self loadFromFile: