equal
deleted
inserted
replaced
72 aClass isNil ifTrue: [className := '']. |
72 aClass isNil ifTrue: [className := '']. |
73 |
73 |
74 imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector]. |
74 imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector]. |
75 imageEditor openModal. |
75 imageEditor openModal. |
76 |
76 |
77 resourceClassName := imageEditView resourceClass. |
77 resourceClassName := imageEditView resourceClass name. |
78 resourceSelector := imageEditView resourceSelector. |
78 resourceSelector := imageEditView resourceSelector. |
79 |
79 |
80 ((className asString ~= resourceClassName) |
80 ((className asString ~= resourceClassName) |
81 or:[aSelector asString ~= resourceSelector]) |
81 or:[aSelector asString ~= resourceSelector]) |
82 ifTrue: [^resourceClassName, ' ', resourceSelector] |
82 ifTrue: [^resourceClassName, ' ', resourceSelector] |
2821 "Created: / 26.7.1998 / 12:17:03 / cg" |
2821 "Created: / 26.7.1998 / 12:17:03 / cg" |
2822 ! |
2822 ! |
2823 |
2823 |
2824 hasClassAndSelectorDefined |
2824 hasClassAndSelectorDefined |
2825 ^ [ |
2825 ^ [ |
2826 |clsName| |
2826 |cls| |
2827 |
2827 |
2828 (clsName := imageEditView resourceClass) size > 0 |
2828 (cls := imageEditView resourceClass) notNil |
2829 and:[(Smalltalk at:clsName ifAbsent:nil) notNil |
2829 and:[imageEditView resourceSelector notNil] |
2830 and:[imageEditView resourceSelector notNil]] |
|
2831 ] |
2830 ] |
2832 |
2831 |
2833 "Created: / 31.7.1998 / 02:02:54 / cg" |
2832 "Created: / 31.7.1998 / 02:02:54 / cg" |
2834 ! |
2833 ! |
2835 |
2834 |
2836 hasClassDefined |
2835 hasClassDefined |
2837 ^ [ |
2836 ^ [ |
2838 |clsName| |
2837 imageEditView resourceClass notNil |
2839 |
|
2840 (clsName := imageEditView resourceClass) size > 0 |
|
2841 and:[(Smalltalk at:clsName ifAbsent:nil) notNil] |
|
2842 ] |
2838 ] |
2843 |
2839 |
2844 "Created: / 31.7.1998 / 02:02:22 / cg" |
2840 "Created: / 31.7.1998 / 02:02:22 / cg" |
2845 ! |
2841 ! |
2846 |
2842 |
3318 "returns the default info label" |
3314 "returns the default info label" |
3319 |
3315 |
3320 |resourceClass| |
3316 |resourceClass| |
3321 |
3317 |
3322 resourceClass := imageEditView resourceClass. |
3318 resourceClass := imageEditView resourceClass. |
3323 (resourceClass isSymbol and: [(Smalltalk at:resourceClass) isClass]) |
3319 resourceClass notNil ifTrue:[ |
3324 ifTrue:[ |
3320 ^ resourceClass name, ' >> ', imageEditView resourceSelector |
3325 ^ resourceClass, ' >> ', imageEditView resourceSelector |
|
3326 ]. |
3321 ]. |
3327 ^ 'No class and selector defined.' |
3322 ^ 'No class and selector defined.' |
3328 ! |
3323 ! |
3329 |
3324 |
3330 openDocumentation |
3325 openDocumentation |
4553 doBrowseClass |
4548 doBrowseClass |
4554 "opens a System Browser on the resourceClass and the resourceSelector" |
4549 "opens a System Browser on the resourceClass and the resourceSelector" |
4555 |
4550 |
4556 |cls| |
4551 |cls| |
4557 |
4552 |
4558 cls := Smalltalk at:(imageEditView resourceClass) ifAbsent:nil. |
4553 cls := imageEditView resourceClass. |
4559 cls isNil ifTrue:[^ self warn:'No Class specified']. |
4554 cls isNil ifTrue:[^ self warn:'No Class specified']. |
|
4555 |
4560 UserPreferences systemBrowserClass |
4556 UserPreferences systemBrowserClass |
4561 openInClass:cls class |
4557 openInClass:cls class |
4562 selector:(imageEditView resourceSelector) |
4558 selector:(imageEditView resourceSelector) |
4563 |
4559 |
4564 "Modified: / 31.7.1998 / 02:01:15 / cg" |
4560 "Modified: / 31.7.1998 / 02:01:15 / cg" |