Tools__CodeView2.st
changeset 12950 990f530e57c5
parent 12914 fbab25348919
child 12960 284b237cbc3f
equal deleted inserted replaced
12949:320a22d3c70b 12950:990f530e57c5
   556 
   556 
   557     "Modified: / 08-04-2011 / 20:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   557     "Modified: / 08-04-2011 / 20:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   558 !
   558 !
   559 
   559 
   560 editedMethodOrClass:aMethodOrClass
   560 editedMethodOrClass:aMethodOrClass
   561     textView editedMethodOrClass:aMethodOrClass
   561     textView editedMethodOrClass:aMethodOrClass.
       
   562     aMethodOrClass isBehavior ifFalse:[
       
   563         self methodHolder value:aMethodOrClass
       
   564     ].
   562 !
   565 !
   563 
   566 
   564 font
   567 font
   565 
   568 
   566     ^textView font
   569     ^textView font
   905 ! !
   908 ! !
   906 
   909 
   907 !CodeView2 methodsFor:'change & update'!
   910 !CodeView2 methodsFor:'change & update'!
   908 
   911 
   909 update:aspect with:param from:sender
   912 update:aspect with:param from:sender
       
   913 "/    sender == methodHolder ifTrue:[
       
   914 "/        self updateGutter.
       
   915 "/    ].
   910 
   916 
   911     sender == showGutterChannel ifTrue: [
   917     sender == showGutterChannel ifTrue: [
   912         self updateGutterVisibility.
   918         self updateGutterVisibility.
   913         ^self.
   919         ^self.
   914     ].
   920     ].
   922     super update:aspect with:param from:sender
   928     super update:aspect with:param from:sender
   923 
   929 
   924     "Modified: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   930     "Modified: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   925     "Modified: / 07-07-2011 / 12:07:04 / Jan Vrany <jan.vrant@fit.cvut,cz>"
   931     "Modified: / 07-07-2011 / 12:07:04 / Jan Vrany <jan.vrant@fit.cvut,cz>"
   926     "Modified: / 06-10-2011 / 14:14:36 / cg"
   932     "Modified: / 06-10-2011 / 14:14:36 / cg"
       
   933 !
       
   934 
       
   935 updateGutter
       
   936 
       
   937     self showGutterChannel value ifTrue:[        
       
   938         gutterView invalidate.
       
   939     ]
       
   940 
       
   941     "Created: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   927 !
   942 !
   928 
   943 
   929 updateGutterVisibility
   944 updateGutterVisibility
   930 
   945 
   931     self showGutterChannel value ifTrue:[        
   946     self showGutterChannel value ifTrue:[        
  3475 ! !
  3490 ! !
  3476 
  3491 
  3477 !CodeView2 class methodsFor:'documentation'!
  3492 !CodeView2 class methodsFor:'documentation'!
  3478 
  3493 
  3479 version
  3494 version
  3480     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.80 2013-06-14 14:34:58 cg Exp $'
  3495     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.81 2013-06-20 23:21:53 cg Exp $'
  3481 !
  3496 !
  3482 
  3497 
  3483 version_CVS
  3498 version_CVS
  3484     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.80 2013-06-14 14:34:58 cg Exp $'
  3499     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.81 2013-06-20 23:21:53 cg Exp $'
  3485 !
  3500 !
  3486 
  3501 
  3487 version_SVN
  3502 version_SVN
  3488     ^ '$Id: Tools__CodeView2.st,v 1.80 2013-06-14 14:34:58 cg Exp $'
  3503     ^ '$Id: Tools__CodeView2.st,v 1.81 2013-06-20 23:21:53 cg Exp $'
  3489 ! !
  3504 ! !
  3490 
  3505 
  3491 
  3506 
  3492 CodeView2 initialize!
  3507 CodeView2 initialize!