equal
deleted
inserted
replaced
91 ! |
91 ! |
92 |
92 |
93 iconCreateSep |
93 iconCreateSep |
94 ^ Painter imageSeparator |
94 ^ Painter imageSeparator |
95 |
95 |
96 ! |
|
97 |
|
98 iconStepDown |
|
99 ^ ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal |
|
100 ! |
|
101 |
|
102 iconStepIn |
|
103 ^ ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal |
|
104 ! |
|
105 |
|
106 iconStepOut |
|
107 ^ ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal |
|
108 ! |
|
109 |
|
110 iconStepUp |
|
111 ^ ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical |
|
112 ! ! |
96 ! ! |
113 |
97 |
114 !MenuEditor class methodsFor:'interface specs'! |
98 !MenuEditor class methodsFor:'interface specs'! |
115 |
99 |
116 classAndMethodSpec |
100 classAndMethodSpec |
349 #'label:' 'stepUp' |
333 #'label:' 'stepUp' |
350 #'value:' #doStepUp |
334 #'value:' #doStepUp |
351 #'enabled:' #enabledStepOver |
335 #'enabled:' #enabledStepOver |
352 #'labelImage:' |
336 #'labelImage:' |
353 #(#ResourceRetriever |
337 #(#ResourceRetriever |
354 #MenuEditor #iconStepUp |
338 #UIPainter #iconStepUp |
355 ) |
339 ) |
356 ) |
340 ) |
357 #(#MenuItem |
341 #(#MenuItem |
358 #'label:' 'stepDown' |
342 #'label:' 'stepDown' |
359 #'value:' #doStepDown |
343 #'value:' #doStepDown |
360 #'enabled:' #enabledStepOver |
344 #'enabled:' #enabledStepOver |
361 #'labelImage:' |
345 #'labelImage:' |
362 #(#ResourceRetriever |
346 #(#ResourceRetriever |
363 #MenuEditor #iconStepDown |
347 #UIPainter #iconStepDown |
364 ) |
348 ) |
365 ) |
349 ) |
366 #(#MenuItem |
350 #(#MenuItem |
367 #'label:' 'stepIn' |
351 #'label:' 'stepIn' |
368 #'value:' #doStepIn |
352 #'value:' #doStepIn |
369 #'enabled:' #enabledStepIn |
353 #'enabled:' #enabledStepIn |
370 #'labelImage:' |
354 #'labelImage:' |
371 #(#ResourceRetriever |
355 #(#ResourceRetriever |
372 #MenuEditor #iconStepIn |
356 #UIPainter #iconStepIn |
373 ) |
357 ) |
374 ) |
358 ) |
375 #(#MenuItem |
359 #(#MenuItem |
376 #'label:' 'stepOut' |
360 #'label:' 'stepOut' |
377 #'value:' #doStepOut |
361 #'value:' #doStepOut |
378 #'enabled:' #enabledStepOut |
362 #'enabled:' #enabledStepOut |
379 #'labelImage:' |
363 #'labelImage:' |
380 #(#ResourceRetriever |
364 #(#ResourceRetriever |
381 #MenuEditor #iconStepOut |
365 #UIPainter #iconStepOut |
382 ) |
366 ) |
383 ) |
367 ) |
384 ) nil |
368 ) nil |
385 nil |
369 nil |
386 ) |
370 ) |
1638 cls isBehavior ifFalse:[ |
1622 cls isBehavior ifFalse:[ |
1639 (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[ |
1623 (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[ |
1640 ^ self information:'no valid class defined'. |
1624 ^ self information:'no valid class defined'. |
1641 ] |
1625 ] |
1642 ]. |
1626 ]. |
1643 SystemBrowser openInClass:cls |
1627 SystemBrowser openInClass:cls class selector:(self painter selectorName) |
1644 |
1628 |
1645 ! |
1629 ! |
1646 |
1630 |
1647 doDefineClass |
1631 doDefineClass |
1648 |
1632 |