equal
deleted
inserted
replaced
61 !HierarchicalListEditor class methodsFor:'icons'! |
61 !HierarchicalListEditor class methodsFor:'icons'! |
62 |
62 |
63 iconCreateChild |
63 iconCreateChild |
64 |
64 |
65 IconCreateChild isNil ifTrue:[ |
65 IconCreateChild isNil ifTrue:[ |
66 IconCreateChild := Image fromFile:'/home/ca/st/images/ui_hierListChild.xpm'. |
66 IconCreateChild := Image fromFile:'bitmaps/ui_hierListChild.xpm'. |
67 |
|
68 IconCreateChild isNil ifTrue:[ |
|
69 IconCreateChild := MenuEditor iconCreateMenu |
|
70 ]. |
|
71 ]. |
67 ]. |
72 ^ IconCreateChild. |
68 ^ IconCreateChild. |
73 |
69 |
74 " |
70 " |
75 IconCreateChild := nil |
71 IconCreateChild := nil |
77 ! |
73 ! |
78 |
74 |
79 iconCreateSister |
75 iconCreateSister |
80 |
76 |
81 IconCreateSister isNil ifTrue:[ |
77 IconCreateSister isNil ifTrue:[ |
82 IconCreateSister := Image fromFile:'/home/ca/st/images/ui_hierListSister.xpm'. |
78 IconCreateSister := Image fromFile:'bitmaps/ui_hierListSister.xpm'. |
83 |
|
84 IconCreateSister isNil ifTrue:[ |
|
85 IconCreateSister := MenuEditor iconCreateItem |
|
86 ] |
|
87 ]. |
79 ]. |
88 ^ IconCreateSister. |
80 ^ IconCreateSister. |
89 |
81 |
90 " |
82 " |
91 IconCreateSister := nil |
83 IconCreateSister := nil |
939 |
931 |
940 [accepted] whileTrue:[ |
932 [accepted] whileTrue:[ |
941 accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings. |
933 accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings. |
942 |
934 |
943 accepted ifTrue:[ |
935 accepted ifTrue:[ |
944 cls := Smalltalk at:(bindings at:#specClassChannel) value asSymbol. |
936 cls := self resolveName:(bindings at:#specClassChannel) value. |
945 |
937 |
946 cls notNil ifTrue:[ |
938 cls notNil ifTrue:[ |
947 sel := (bindings at:#specSelectorChannel) value withoutSeparators. |
939 sel := (bindings at:#specSelectorChannel) value withoutSeparators. |
948 |
940 |
949 sel size ~~ 0 ifTrue:[ |
941 sel size ~~ 0 ifTrue:[ |
1206 buildFrom:aClass andSelector:aSelector |
1198 buildFrom:aClass andSelector:aSelector |
1207 "rebuild window from a class and selector |
1199 "rebuild window from a class and selector |
1208 " |
1200 " |
1209 |sel anchor| |
1201 |sel anchor| |
1210 |
1202 |
1211 (specClass := aClass) isBehavior ifFalse:[ |
1203 specClass := self resolveName:aClass. |
1212 specClass notNil ifTrue:[ |
|
1213 specClass := Smalltalk at:aClass asSymbol |
|
1214 ] |
|
1215 ]. |
|
1216 specSelector := nil. |
1204 specSelector := nil. |
1217 |
1205 |
1218 aSelector size ~~ 0 ifTrue:[ |
1206 aSelector size ~~ 0 ifTrue:[ |
1219 sel := aSelector asString withoutSeparators. |
1207 sel := aSelector asString withoutSeparators. |
1220 sel size ~~ 0 ifTrue:[ |
1208 sel size ~~ 0 ifTrue:[ |