hg/stx-libtool: comparison Tools__NewSystemBrowserCodeView.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 ! !
 !NewSystemBrowserCodeView class methodsFor:'initialization'!
 initialize
 "
 "Created: / 25-12-2007 / 19:58:53 / janfrog"
 "Modified: / 27-02-2008 / 12:16:10 / janfrog"
 "Modified: / 15-04-2010 / 16:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 01-07-2011 / 16:21:38 / cg"
 ! !
 !NewSystemBrowserCodeView class methodsFor:'menu specs'!
 editMenuSpec
 "This resource specification was automatically generated
 nil
 )
 "Modified: / 18-10-2008 / 18:50:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !NewSystemBrowserCodeView methodsFor:'accessing'!
 browser
 ^ browser ? menuHolder
 "Created: / 26-12-2007 / 11:12:26 / janfrog"
 "Modified: / 19-02-2008 / 09:16:11 / janfrog"
 "Modified: / 04-08-2011 / 19:05:43 / cg"
 ! !
 !NewSystemBrowserCodeView methodsFor:'accessing-contents'!
 list: anObject
 super list: anObject.
 self updateParseTree.
 "Created: / 25-12-2007 / 10:05:17 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'change & update'!
 updateParseTree
 self startParsingProcess
 "/Transcript showCR:'Updating parse tree'
 "Created: / 25-12-2007 / 10:05:49 / janfrog"
 "Modified: / 25-12-2007 / 21:29:28 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'event handling'!
 buttonMotion:button x:x y:y
 (button == 0 and:[ self sensor ctrlDown ])
 "Created: / 18-02-2008 / 17:18:22 / janfrog"
 !
 keyPress:key x:x y:y
+<resource: #keyboard (#Control_L
+#Tab #Return #BackSpace #Delete
+#GoBack)>
 (x notNil and:[ y notNil ]) ifTrue:[
 key = #'Control_L' ifTrue:[
 self
 highlightNodeAtX:x y:y;
 redraw
 ].
 "key = #Alt_L ifTrue: [self highlightParseTreeNodeAtX: x y: y; redraw]"
 ].
-(#( #Tab #Return #BackSpace ) includes:key) ifTrue:[
+(#( #Tab #Return #BackSpace #Delete) includes:key) ifTrue:[
 self startParsingProcess
 ].
 key == #GoBack ifTrue:[self goBack].
 y: y
 "Created: / 25-12-2007 / 23:15:15 / janfrog"
 "Modified: / 19-02-2008 / 09:16:11 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'menu'!
 browseClassesMenu: classes
 | menu|
 "Created: / 18-02-2008 / 21:10:46 / janfrog"
 "Modified: / 21-02-2008 / 09:40:09 / janfrog"
 "Modified: / 09-09-2012 / 13:24:19 / cg"
 ! !
 !NewSystemBrowserCodeView methodsFor:'menu - actions'!
 accept
 super accept.
 "Created: / 18-02-2008 / 21:21:26 / janfrog"
 "Modified: / 19-02-2008 / 09:59:11 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'menu - double dispatch'!
 blueButtonMenuForMessageNode:messageNode
 ^ self messageNodeContextMenu:messageNode
 "Created: / 18-02-2008 / 19:08:50 / janfrog"
 "Modified: / 18-02-2008 / 21:05:56 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'private'!
 implementorsOf: selector
 selector ifNil:[^#()].
 in: Smalltalk allClasses
 ignoreCase: false
 "Created: / 26-12-2007 / 11:37:22 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'private - highlighting'!
 highlightClear
 self list ifNil:[ ^ self ].
 "Created: / 25-12-2007 / 22:57:23 / janfrog"
 "Modified: / 26-12-2007 / 11:16:14 / janfrog"
 "Modified: / 01-09-2009 / 22:29:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !NewSystemBrowserCodeView methodsFor:'private - highlighting - nodes'!
 highlightLiteralNode: node
 node value isSymbol ifTrue:
 ^ self highlightFrom: node start to: node stop
 "Created: / 25-12-2007 / 23:45:42 / janfrog"
 "Modified: / 18-02-2008 / 20:51:51 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'private - parsing'!
 parseTree
 ]
 "Created: / 25-12-2007 / 21:16:03 / janfrog"
 ! !
 !NewSystemBrowserCodeView methodsFor:'private - testing'!
 isInstanceVariableNode: node
 ^false
 "Created: / 21-02-2008 / 09:32:33 / janfrog"
 ! !
 !NewSystemBrowserCodeView class methodsFor:'documentation'!
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.11 2012/09/09 19:17:44 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.12 2013-01-17 10:35:08 cg Exp $'
 !
 version_SVN
-^ '$Id: Tools__NewSystemBrowserCodeView.st 8054 2012-09-13 09:15:20Z vranyj1 $'
+^ '�Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 �'
 ! !
 NewSystemBrowserCodeView initialize!

branch	jv
changeset 12401	4714b9640528
parent 12292	ecc23f7c8dde
parent 12104	ef5283010b5f
child 12406	1fbd331e4489