equal
deleted
inserted
replaced
42 [author:] |
42 [author:] |
43 Claus Gittinger |
43 Claus Gittinger |
44 " |
44 " |
45 ! ! |
45 ! ! |
46 |
46 |
|
47 |
47 !DictionaryInspectorView methodsFor:'event handling'! |
48 !DictionaryInspectorView methodsFor:'event handling'! |
48 |
49 |
49 keyPress:key x:x y:y |
50 keyPress:key x:x y:y |
50 "handle special keys" |
51 "handle special keys" |
51 |
52 |
52 <resource: #keyboard (#Delete #BackSpace)> |
53 <resource: #keyboard (#Delete #BackSpace #Insert)> |
53 |
54 |
54 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
55 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
55 self doRemoveKey. |
56 self doRemoveKey. |
56 ^ self. |
57 ^ self. |
57 ]. |
58 ]. |
60 ^ self. |
61 ^ self. |
61 ]. |
62 ]. |
62 |
63 |
63 super keyPress:key x:x y:y |
64 super keyPress:key x:x y:y |
64 ! ! |
65 ! ! |
|
66 |
65 |
67 |
66 !DictionaryInspectorView methodsFor:'initialization & release'! |
68 !DictionaryInspectorView methodsFor:'initialization & release'! |
67 |
69 |
68 initialize |
70 initialize |
69 super initialize. |
71 super initialize. |
75 hideUnloadedClasses := false. |
77 hideUnloadedClasses := false. |
76 hideAliases := false. |
78 hideAliases := false. |
77 hideLiteralValues := false. |
79 hideLiteralValues := false. |
78 hideNilValues := false. |
80 hideNilValues := false. |
79 ! ! |
81 ! ! |
|
82 |
80 |
83 |
81 !DictionaryInspectorView methodsFor:'menu'! |
84 !DictionaryInspectorView methodsFor:'menu'! |
82 |
85 |
83 fieldMenu |
86 fieldMenu |
84 <resource: #programMenu > |
87 <resource: #programMenu > |
234 ^ m. |
237 ^ m. |
235 |
238 |
236 "Modified: / 26-09-2012 / 13:20:59 / cg" |
239 "Modified: / 26-09-2012 / 13:20:59 / cg" |
237 ! ! |
240 ! ! |
238 |
241 |
|
242 |
239 !DictionaryInspectorView methodsFor:'menu actions'! |
243 !DictionaryInspectorView methodsFor:'menu actions'! |
240 |
244 |
241 browse |
245 browse |
242 |cls| |
246 |cls| |
243 |
247 |
378 self topView withWaitCursorDo:[ |
382 self topView withWaitCursorDo:[ |
379 UserPreferences systemBrowserClass browseReferendsOf:(key asSymbol) |
383 UserPreferences systemBrowserClass browseReferendsOf:(key asSymbol) |
380 ]. |
384 ]. |
381 ] |
385 ] |
382 ! ! |
386 ! ! |
|
387 |
383 |
388 |
384 !DictionaryInspectorView methodsFor:'private'! |
389 !DictionaryInspectorView methodsFor:'private'! |
385 |
390 |
386 allNumericKeys |
391 allNumericKeys |
387 inspectedObject keysDo:[:k | k isNumber ifFalse:[^ false]]. |
392 inspectedObject keysDo:[:k | k isNumber ifFalse:[^ false]]. |
640 ] ifFalse:[ |
645 ] ifFalse:[ |
641 self showSelection:lineNrCollection first |
646 self showSelection:lineNrCollection first |
642 ]. |
647 ]. |
643 ! ! |
648 ! ! |
644 |
649 |
|
650 |
645 !DictionaryInspectorView methodsFor:'user interaction'! |
651 !DictionaryInspectorView methodsFor:'user interaction'! |
646 |
652 |
647 indexedValueAtIndex:idx |
653 indexedValueAtIndex:idx |
648 |key| |
654 |key| |
649 |
655 |
657 |
663 |
658 key := keys at:idx. |
664 key := keys at:idx. |
659 inspectedObject at:key put:newValue. |
665 inspectedObject at:key put:newValue. |
660 ! ! |
666 ! ! |
661 |
667 |
|
668 |
662 !DictionaryInspectorView class methodsFor:'documentation'! |
669 !DictionaryInspectorView class methodsFor:'documentation'! |
663 |
670 |
664 version |
671 version |
665 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp $' |
672 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.78 2013-01-17 10:48:34 cg Exp $' |
666 ! |
673 ! |
667 |
674 |
668 version_CVS |
675 version_CVS |
669 ^ '§Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp §' |
676 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.78 2013-01-17 10:48:34 cg Exp $' |
670 ! |
677 ! |
671 |
678 |
672 version_SVN |
679 version_SVN |
673 ^ '$Id: DictionaryInspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $' |
680 ^ '$Id: DictionaryInspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $' |
674 ! ! |
681 ! ! |
|
682 |