Tools__CodeView2.st
changeset 13091 076f0ec1e120
parent 13085 42d374ca3b6e
child 13092 e70369d1bf59
equal deleted inserted replaced
13090:4e05bced2aae 13091:076f0ec1e120
  2085         "/ some hysteresis to avoid quick readjust again
  2085         "/ some hysteresis to avoid quick readjust again
  2086         newWidth := (requiredW * 1.1) rounded.
  2086         newWidth := (requiredW * 1.1) rounded.
  2087         self corner:(newWidth+1 @ 1.0).
  2087         self corner:(newWidth+1 @ 1.0).
  2088         [
  2088         [
  2089             textView removeDependent:self.
  2089             textView removeDependent:self.
  2090             textViewScroller origin:(newWidth @ 0.0) corner:(1.0 @ 1.0).
  2090             textViewScroller origin:(newWidth+1 @ 0.0) corner:(1.0 @ 1.0).
  2091         ] ensure:[
  2091         ] ensure:[
  2092             textView addDependent:self.
  2092             textView addDependent:self.
  2093         ].
  2093         ].
  2094         self invalidate.
  2094         self invalidate.
  2095     ].
  2095     ].
  2293 !
  2293 !
  2294 
  2294 
  2295 redrawBackgroundX:x y:y width:w height:h
  2295 redrawBackgroundX:x y:y width:w height:h
  2296     "redraws gutter background"
  2296     "redraws gutter background"
  2297 
  2297 
       
  2298     |savPaint|
       
  2299 
  2298     "background is filled with background color"
  2300     "background is filled with background color"
  2299 "/    self 
       
  2300 "/        fillRectangleX:x
       
  2301 "/        y:y
       
  2302 "/        width:w
       
  2303 "/        height:h
       
  2304 "/        color: self viewBackground "backgroundPaint". 
       
  2305     self 
  2301     self 
  2306         clearRectangleX:x
  2302         clearRectangleX:x
  2307         y:y
  2303         y:y
  2308         width:w
  2304         width:w
  2309         height:h. 
  2305         height:h. 
  2310 
  2306 
  2311     "separator line is drawn with foreground color"
  2307     "separator line is drawn in grey"
       
  2308     savPaint := self paint.
       
  2309     self paint:Color grey.
       
  2310 
  2312     self 
  2311     self 
  2313         displayLineFromX:(width - 1)
  2312         displayLineFromX:(width - 1)
  2314         y:y
  2313         y:y
  2315         toX:(width - 1)
  2314         toX:(width - 1)
  2316         y:(y+h).
  2315         y:(y+h).
       
  2316 
       
  2317     self paint:savPaint.
  2317 
  2318 
  2318     "Created: / 14-12-2009 / 13:15:53 / Jindra <a>"
  2319     "Created: / 14-12-2009 / 13:15:53 / Jindra <a>"
  2319     "Modified: / 14-12-2009 / 15:09:54 / Jindra <a>"
  2320     "Modified: / 14-12-2009 / 15:09:54 / Jindra <a>"
  2320     "Modified: / 17-08-2011 / 15:12:47 / cg"
  2321     "Modified: / 17-08-2011 / 15:12:47 / cg"
  2321     "Modified (comment): / 07-10-2011 / 19:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2322     "Modified (comment): / 07-10-2011 / 19:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  3541 ! !
  3542 ! !
  3542 
  3543 
  3543 !CodeView2 class methodsFor:'documentation'!
  3544 !CodeView2 class methodsFor:'documentation'!
  3544 
  3545 
  3545 version
  3546 version
  3546     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.94 2013-07-03 21:16:11 cg Exp $'
  3547     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.95 2013-07-04 14:59:12 cg Exp $'
  3547 !
  3548 !
  3548 
  3549 
  3549 version_CVS
  3550 version_CVS
  3550     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.94 2013-07-03 21:16:11 cg Exp $'
  3551     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.95 2013-07-04 14:59:12 cg Exp $'
  3551 !
  3552 !
  3552 
  3553 
  3553 version_SVN
  3554 version_SVN
  3554     ^ '$Id: Tools__CodeView2.st,v 1.94 2013-07-03 21:16:11 cg Exp $'
  3555     ^ '$Id: Tools__CodeView2.st,v 1.95 2013-07-04 14:59:12 cg Exp $'
  3555 ! !
  3556 ! !
  3556 
  3557 
  3557 
  3558 
  3558 CodeView2 initialize!
  3559 CodeView2 initialize!