CodeView.st
changeset 3224 9dd0891a2ff4
parent 3128 a800566f5662
child 3252 b44361e6b97a
equal deleted inserted replaced
3223:8cb04c4decd2 3224:9dd0891a2ff4
   164 !
   164 !
   165 
   165 
   166 keyPress:key x:x y:y
   166 keyPress:key x:x y:y
   167     "catch keyboard shortcuts"
   167     "catch keyboard shortcuts"
   168 
   168 
   169     <resource: #keyboard (#Explain #Help 
   169     <resource: #keyboard (#Format #Explain #Help 
   170 			  #CommentSelection #UncommentSelection)>
   170                           #CommentSelection #UncommentSelection)>
   171 
   171 
   172     (key == #Format)  ifTrue:[^ self format].
   172     (key == #Format)  ifTrue:[^ self format].
   173     (key == #Explain) ifTrue:[^ self explain].
   173     (key == #Explain) ifTrue:[^ self explain].
   174     (key == #Help)    ifTrue:[^ self explain].
   174     (key == #Help)    ifTrue:[^ self explain].
   175     (key == #CommentSelection)    ifTrue:[^ self commentSelection].
   175     (key == #CommentSelection)    ifTrue:[^ self commentSelection].
   318 ! !
   318 ! !
   319 
   319 
   320 !CodeView class methodsFor:'documentation'!
   320 !CodeView class methodsFor:'documentation'!
   321 
   321 
   322 version
   322 version
   323     ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.55 2005-02-25 11:57:54 cg Exp $'
   323     ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.56 2005-12-21 11:40:22 cg Exp $'
   324 ! !
   324 ! !