equal
deleted
inserted
replaced
357 |
357 |
358 "Created: / 18-02-2008 / 17:18:22 / janfrog" |
358 "Created: / 18-02-2008 / 17:18:22 / janfrog" |
359 ! |
359 ! |
360 |
360 |
361 keyPress:key x:x y:y |
361 keyPress:key x:x y:y |
|
362 <resource: #keyboard (#Control_L |
|
363 #Tab #Return #BackSpace #Delete |
|
364 #GoBack)> |
|
365 |
362 (x notNil and:[ y notNil ]) ifTrue:[ |
366 (x notNil and:[ y notNil ]) ifTrue:[ |
363 key = #'Control_L' ifTrue:[ |
367 key = #'Control_L' ifTrue:[ |
364 self |
368 self |
365 highlightNodeAtX:x y:y; |
369 highlightNodeAtX:x y:y; |
366 redraw |
370 redraw |
367 ]. |
371 ]. |
368 "key = #Alt_L ifTrue: [self highlightParseTreeNodeAtX: x y: y; redraw]" |
372 "key = #Alt_L ifTrue: [self highlightParseTreeNodeAtX: x y: y; redraw]" |
369 ]. |
373 ]. |
370 |
374 |
371 (#( #Tab #Return #BackSpace ) includes:key) ifTrue:[ |
375 (#( #Tab #Return #BackSpace #Delete) includes:key) ifTrue:[ |
372 self startParsingProcess |
376 self startParsingProcess |
373 ]. |
377 ]. |
374 |
378 |
375 key == #GoBack ifTrue:[self goBack]. |
379 key == #GoBack ifTrue:[self goBack]. |
376 |
380 |
1023 ! ! |
1027 ! ! |
1024 |
1028 |
1025 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
1029 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
1026 |
1030 |
1027 version_CVS |
1031 version_CVS |
1028 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.11 2012-09-09 19:17:44 cg Exp $' |
1032 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.12 2013-01-17 10:35:08 cg Exp $' |
1029 ! |
1033 ! |
1030 |
1034 |
1031 version_SVN |
1035 version_SVN |
1032 ^ '§Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1036 ^ '§Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1033 ! ! |
1037 ! ! |
1034 |
1038 |
|
1039 |
1035 NewSystemBrowserCodeView initialize! |
1040 NewSystemBrowserCodeView initialize! |