12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 CodeView subclass:#NewSystemBrowserCodeView |
16 CodeView subclass:#NewSystemBrowserCodeView |
17 instanceVariableNames:'browser parseTree selectedNode parsingProcess |
17 instanceVariableNames:'browser parseTree selectedNode parsingProcess |
18 parsingProcessRunning highlightEmphasis seqNum' |
18 parsingProcessRunning highlightEmphasis seqNum' |
19 classVariableNames:'' |
19 classVariableNames:'' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Interface-Browsers-New' |
21 category:'Interface-Browsers-New' |
22 ! |
22 ! |
23 |
23 |
24 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
24 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
25 |
25 |
26 copyright |
26 copyright |
673 |
673 |
674 "Modified: / 18-02-2008 / 21:05:47 / janfrog" |
674 "Modified: / 18-02-2008 / 21:05:47 / janfrog" |
675 ! |
675 ! |
676 |
676 |
677 leftClickMenuForVariableNode: varNode |
677 leftClickMenuForVariableNode: varNode |
678 |
|
679 | environment classes | |
678 | environment classes | |
|
679 |
680 self browser ifNil:[^nil]. |
680 self browser ifNil:[^nil]. |
681 environment := self browser theSingleSelectedMethod mclass environment. |
681 environment := self browser theSingleSelectedMethod mclass environment. |
682 classes := OrderedCollection new. |
682 classes := OrderedCollection new. |
683 [ environment notNil ] whileTrue: |
683 [ environment notNil ] whileTrue:[ |
684 [| cls | |
684 | cls | |
|
685 |
685 cls := environment at: varNode name asSymbol. |
686 cls := environment at: varNode name asSymbol. |
686 cls ifNotNil:[classes add: cls]. |
687 cls ifNotNil:[classes add: cls]. |
687 environment := |
688 environment := |
688 environment = Smalltalk |
689 (environment == Smalltalk) |
689 ifTrue:[environment := nil] |
690 ifTrue:[environment := nil] |
690 ifFalse:[environment environment]]. |
691 ifFalse:[environment environment] |
|
692 ]. |
691 ^classes isEmpty |
693 ^classes isEmpty |
692 ifTrue:[self browseClassesMenu: classes ] |
694 ifTrue:[self browseClassesMenu: classes ] |
693 ifFalse:[self variableNodeMenuContext: varNode] |
695 ifFalse:[self variableNodeMenuContext: varNode] |
694 |
696 |
695 "Modified: / 18-02-2008 / 21:05:47 / janfrog" |
697 "Modified: / 18-02-2008 / 21:05:47 / janfrog" |
696 "Created: / 01-09-2009 / 08:41:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
698 "Created: / 01-09-2009 / 08:41:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
697 "Modified: / 01-09-2009 / 09:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
699 "Modified: / 01-09-2009 / 09:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
700 "Modified (format): / 05-07-2011 / 16:04:47 / cg" |
698 ! |
701 ! |
699 |
702 |
700 middleClickMenuForMessageNode: messageNode |
703 middleClickMenuForMessageNode: messageNode |
701 ^ self messageNodeSendersMenu: messageNode |
704 ^ self messageNodeSendersMenu: messageNode |
702 |
705 |