--- a/ImageEditor.st Tue Feb 24 19:44:35 1998 +0100
+++ b/ImageEditor.st Tue Feb 24 20:56:34 1998 +0100
@@ -214,10 +214,10 @@
'Print the image on a postscript printer.'
#fileSaveAs
-'Opens dialog to save the image on a file.'
+'Opens dialog to save the image to a file.'
#fileSaveMaskAs
-'Opens dialog to save the mask of the image on a file.'
+'Opens dialog to save the mask of the image to a file.'
#fileSaveMethod
'Saves current image into selected class and selector.'
@@ -444,11 +444,11 @@
#window:
#(#WindowSpec
#name: 'New Image'
- #layout: #(#LayoutFrame 197 0 172 0 497 0 276 0)
+ #layout: #(#LayoutFrame 328 0 326 0 628 0 430 0)
#label: 'New Image'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 197 172 498 277)
+ #bounds: #(#Rectangle 328 326 629 431)
#usePreferredExtent: false
)
#component:
@@ -1011,15 +1011,6 @@
^ holder
!
-valueOfCoordLabel
-
- |holder|
- (holder := builder bindingAt:#valueOfCoordLabel) isNil ifTrue:[
- builder aspectAt:#valueOfCoordLabel put:(holder := ValueHolder new).
- ].
- ^ holder
-!
-
valueOfMagnification
|holder|
@@ -1030,40 +1021,6 @@
^ holder
! !
-!ImageEditor methodsFor:'change & update'!
-
-update:something with:aParameter from:changedObject
-
- something == #value
- ifTrue:
- [
- (changedObject = self valueOfResourceClass)
- ifTrue:
- [
- |s what m|
- s := self resourceClassInputField contents withoutSpaces.
- what := Smalltalk classnameCompletion:s.
- self resourceClassInputField contents:what first.
- (what at:2) size ~~ 1 ifTrue:[
- Display beep
- ]
- ].
- (changedObject = self valueOfResourceClass) | (changedObject = self valueOfResourceSelector)
- ifTrue:
- [
- self loadFromMessage: self resourceClassInputField contents, ' ', self resourceSelectorInputField contents
- ].
- (changedObject = self valueOfFileName)
- ifTrue:
- [
- self loadFromFile: self fileNameInputField contents
- ].
- ].
-
- super update:something with:aParameter from:changedObject
-
-! !
-
!ImageEditor methodsFor:'help'!
defaultInfoLabel
@@ -1196,12 +1153,6 @@
self selectionOfColor value: (self listOfColors indexOf: self imageEditView selectedColor).
!
-sortColorColumn: aColumn
-
-
-
-!
-
updateForNoneImage
self imageIsLoaded value: false.