equal
deleted
inserted
replaced
81 !DictionaryInspectorView methodsFor:'menu'! |
81 !DictionaryInspectorView methodsFor:'menu'! |
82 |
82 |
83 fieldMenu |
83 fieldMenu |
84 <resource: #programMenu > |
84 <resource: #programMenu > |
85 |
85 |
86 |items m| |
86 |items m selIdx| |
87 |
87 |
88 inspectedObject isNameSpace ifTrue:[ |
88 inspectedObject isNameSpace ifTrue:[ |
89 items := #( |
89 items := #( |
90 ('Copy Key' doCopyKey ) |
90 ('Copy Key' doCopyKey ) |
91 ('-') |
91 ('-') |
210 ]. |
210 ]. |
211 (inspectedObject isSharedPool) ifTrue:[ |
211 (inspectedObject isSharedPool) ifTrue:[ |
212 m disableAll:#( doRemoveKey ) |
212 m disableAll:#( doRemoveKey ) |
213 ]. |
213 ]. |
214 |
214 |
215 self theSingleSelectionIndex isNil ifTrue:[ |
215 (selIdx := self theSingleSelectionIndex) isNil ifTrue:[ |
216 m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect |
216 m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect |
217 doStartMonitor doStopMonitor doCopyKey |
217 doStartMonitor doStopMonitor doCopyKey |
218 showKeyReferences showReferences showOwners browse |
218 showKeyReferences showReferences showOwners browse |
219 ). |
219 ). |
220 selectionIndex isEmptyOrNil ifTrue:[ |
220 selectionIndex isEmptyOrNil ifTrue:[ |
221 "/ allowed for multi-select |
221 "/ allowed for multi-select |
222 m disableAll:#( doRemoveKey ) |
222 m disableAll:#( doRemoveKey ) |
223 ] |
223 ] |
224 ] ifFalse:[ |
224 ] ifFalse:[ |
225 (self keyIndexForLine:selectionIndex) isNil ifTrue:[ |
225 (self keyIndexForLine:selIdx) isNil ifTrue:[ |
226 m disableAll:#(doInspectKey doRemoveKey doCopyKey) |
226 m disableAll:#(doInspectKey doRemoveKey doCopyKey) |
227 ] |
227 ] |
228 ]. |
228 ]. |
229 hideLiteralValues == true ifTrue:[ |
229 hideLiteralValues == true ifTrue:[ |
230 m disableAll:#( doShowNilValues doHideNilValues ) |
230 m disableAll:#( doShowNilValues doHideNilValues ) |
613 ! ! |
613 ! ! |
614 |
614 |
615 !DictionaryInspectorView class methodsFor:'documentation'! |
615 !DictionaryInspectorView class methodsFor:'documentation'! |
616 |
616 |
617 version |
617 version |
618 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.69 2010-03-03 11:16:30 cg Exp $' |
618 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.70 2010-03-09 09:39:50 cg Exp $' |
619 ! |
619 ! |
620 |
620 |
621 version_CVS |
621 version_CVS |
622 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.69 2010-03-03 11:16:30 cg Exp $' |
622 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.70 2010-03-09 09:39:50 cg Exp $' |
623 ! ! |
623 ! ! |