50 ! ! |
50 ! ! |
51 |
51 |
52 !ImageEditor class methodsFor:'instance creation'! |
52 !ImageEditor class methodsFor:'instance creation'! |
53 |
53 |
54 openModalOnClass: aClass andSelector: aSelector |
54 openModalOnClass: aClass andSelector: aSelector |
55 "opens modal the Image Editor on aClass and aSelector" |
55 "opens modal a Image Editor on aClass and aSelector" |
56 " |
56 " |
57 self openModalOnClass: self andSelector: #leftMouseKeyIcon |
57 self openModalOnClass: self andSelector: #leftMouseKeyIcon |
58 " |
58 " |
59 |
59 |
60 |imageEditor imageEditView className resourceClassName resourceSelector| |
60 |imageEditor imageEditView className resourceClassName resourceSelector| |
61 |
61 |
62 imageEditor := self new. |
62 imageEditor := self new. |
63 |
63 |
64 aClass isClass ifTrue: [className := aClass name]. |
64 aClass isClass ifTrue: [className := aClass name]. |
65 aClass isString ifTrue:[className := aClass]. |
65 aClass isString ifTrue: [className := aClass]. |
|
66 aClass isNil ifTrue: [className := aClass printString]. |
66 |
67 |
67 imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector]. |
68 imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector]. |
68 imageEditor openModal. |
69 imageEditor openModal. |
69 |
70 |
70 resourceClassName := imageEditView resourceClass. |
71 resourceClassName := imageEditView resourceClass. |
75 ifTrue: [^resourceClassName, ' ', resourceSelector] |
76 ifTrue: [^resourceClassName, ' ', resourceSelector] |
76 ifFalse:[^nil] |
77 ifFalse:[^nil] |
77 ! |
78 ! |
78 |
79 |
79 openOnClass: aClass andSelector: aSelector |
80 openOnClass: aClass andSelector: aSelector |
80 "opens the Image Editor on aClass and aSelector" |
81 "opens a Image Editor on aClass and aSelector" |
81 " |
82 " |
82 self openOnClass: self andSelector: #leftMouseKeyIcon |
83 self openOnClass: self andSelector: #leftMouseKeyIcon |
83 " |
84 " |
84 |
85 |
85 ^self open loadFromMessage: aClass name, ' ', aSelector |
86 ^self open loadFromMessage: aClass name, ' ', aSelector |
86 ! |
87 ! |
87 |
88 |
88 openOnFile: aFileName |
89 openOnFile: aFileName |
89 "opens the Image Editor on aFileName" |
90 "opens a Image Editor on aFileName" |
90 " |
91 " |
91 self openOnFile: 'bitmaps/SmalltalkX.xbm' |
92 self openOnFile: 'bitmaps/SmalltalkX.xbm' |
92 " |
93 " |
93 |
94 |
94 ^self open loadFromFile: aFileName |
95 ^self open loadFromFile: aFileName |
95 ! |
96 ! |
96 |
97 |
97 openOnImage: anImage |
98 openOnImage: anImage |
98 "opens the Image Editor on anImage" |
99 "opens a Image Editor on anImage" |
99 " |
100 " |
100 self openOnImage: Icon startIcon |
101 self openOnImage: Icon startIcon |
101 " |
102 " |
102 |
103 |
103 ^self open loadFromImage: anImage |
104 ^self open loadFromImage: anImage |