ListView.st
changeset 1460 b9929a029249
parent 1458 76e820fde1e7
child 1462 dc7d99a98511
equal deleted inserted replaced
1459:2e96c4f14554 1460:b9929a029249
   797         x := margin.
   797         x := margin.
   798 
   798 
   799         srcY := topMargin + (visLine * fontHeight).
   799         srcY := topMargin + (visLine * fontHeight).
   800 "/        h := ((nLinesShown - visLine) * fontHeight).
   800 "/        h := ((nLinesShown - visLine) * fontHeight).
   801         h := (height - margin - srcY).
   801         h := (height - margin - srcY).
   802         self catchExpose.
   802         h > 0 ifTrue:[
   803         self 
   803             self catchExpose.
   804             copyFrom:self 
   804             self 
   805             x:x y:srcY
   805                 copyFrom:self 
   806             toX:x y:(srcY - fontHeight)
   806                 x:x y:srcY
   807             width:w height:h
   807                 toX:x y:(srcY - fontHeight)
   808             async:true.
   808                 width:w height:h
   809 
   809                 async:true.
       
   810         ].
   810         self redrawVisibleLine:nFullLinesShown.
   811         self redrawVisibleLine:nFullLinesShown.
   811         "
   812         "
   812          redraw last partial line - if any
   813          redraw last partial line - if any
   813         "
   814         "
   814         (nFullLinesShown ~~ nLinesShown) ifTrue:[
   815         (nFullLinesShown ~~ nLinesShown) ifTrue:[
   815             self redrawVisibleLine:nLinesShown
   816             self redrawVisibleLine:nLinesShown
   816         ].
   817         ].
   817         self waitForExpose
   818         h > 0 ifTrue:[
   818     ]
   819             self waitForExpose
   819 
   820         ].
   820     "Modified: 29.1.1997 / 13:05:50 / cg"
   821     ]
       
   822 
       
   823     "Modified: / 27.2.1998 / 12:36:59 / cg"
   821 !
   824 !
   822 
   825 
   823 removeIndexWithoutRedraw:lineNr
   826 removeIndexWithoutRedraw:lineNr
   824     "delete a line, given its lineNr - no redraw;
   827     "delete a line, given its lineNr - no redraw;
   825      return true, if something was really deleted (so sender knows,
   828      return true, if something was really deleted (so sender knows,
  3776 ! !
  3779 ! !
  3777 
  3780 
  3778 !ListView class methodsFor:'documentation'!
  3781 !ListView class methodsFor:'documentation'!
  3779 
  3782 
  3780 version
  3783 version
  3781     ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.153 1998-02-26 13:12:26 cg Exp $'
  3784     ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.154 1998-02-27 14:15:15 cg Exp $'
  3782 ! !
  3785 ! !