--- a/ImageEditor.st Wed Jan 21 19:59:57 1998 +0100
+++ b/ImageEditor.st Wed Jan 21 20:03:06 1998 +0100
@@ -527,11 +527,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Image Editor'
- #'layout:' #(#LayoutFrame 189 0 240 0 688 0 585 0)
+ #'layout:' #(#LayoutFrame 305 0 397 0 804 0 742 0)
#'label:' 'Image Editor'
#'min:' #(#Point 400 320)
#'max:' #(#Point 1152 900)
- #'bounds:' #(#Rectangle 189 240 689 586)
+ #'bounds:' #(#Rectangle 305 397 805 743)
#'menu:' #menu
#'usePreferredExtent:' false
)
@@ -977,24 +977,6 @@
^builder componentAt: #resourceSelectorInputField
! !
-!ImageEditor methodsFor:'accessing menu'!
-
-menu
- "this window spec was automatically generated by the UI Builder"
-
- ^ self class menu
-
-
-!
-
-menuToolbar
- "this window spec was automatically generated by the UI Builder"
-
- ^ self class menuToolbar
-
-
-! !
-
!ImageEditor methodsFor:'aspects'!
imageIsLoaded
@@ -1327,7 +1309,9 @@
open
super open.
+
self imageEditView masterApplication: self.
+
self resourceClassInputField entryCompletionBlock:
[:value|
|what|
@@ -1336,31 +1320,7 @@
(what at:2) size ~~ 1 ifTrue:[
Display beep
]
- ].
- self resourceSelectorInputField entryCompletionBlock:
- [:value|
- |cls what|
- (cls := Smalltalk at: self resourceClassInputField contents asSymbol) notNil
- ifTrue:
- [
- |firstPossibleSelector resourceType|
- what := cls class selectorCompletion: value withoutSpaces.
- firstPossibleSelector := what first asSymbol.
- (cls class selectors includes: firstPossibleSelector)
- ifTrue:
- [
- resourceType := (cls class compiledMethodAt: firstPossibleSelector) resourceType.
- ((resourceType = #image) or: [resourceType = #fileImage])
- ifTrue:
- [
- self resourceSelectorInputField contents:firstPossibleSelector.
- ].
- ].
- (what at:2) size ~~ 1 ifTrue:[
- Display beep
- ]
- ]
- ].
+ ]
!
postOpenWith:aBuilder