Scroller.st
changeset 4031 5f0133b18996
parent 4030 864057d8abe1
child 4032 edc14bf0c5a5
equal deleted inserted replaced
4030:864057d8abe1 4031:5f0133b18996
  2428                 thumbFrame := nil.
  2428                 thumbFrame := nil.
  2429                 ^ self
  2429                 ^ self
  2430             ]
  2430             ]
  2431         ].
  2431         ].
  2432     ].
  2432     ].
  2433     true "((styleSheet name == #winXP) and:[self isMiniScroller not])" ifTrue:[
  2433     (((styleSheet name == #winXP) or:[styleSheet name == #winVista]) 
       
  2434     and:[self isMiniScroller not]) ifTrue:[
  2434         nw := nw + 1.
  2435         nw := nw + 1.
  2435         nh := nh + 1.
  2436         nh := nh + 1.
  2436     ].
  2437     ].
  2437 
  2438 
  2438     "
  2439     "
  2716 ! !
  2717 ! !
  2717 
  2718 
  2718 !Scroller class methodsFor:'documentation'!
  2719 !Scroller class methodsFor:'documentation'!
  2719 
  2720 
  2720 version
  2721 version
  2721     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.192 2009-10-24 18:28:18 cg Exp $'
  2722     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.193 2009-10-24 18:30:12 cg Exp $'
  2722 !
  2723 !
  2723 
  2724 
  2724 version_CVS
  2725 version_CVS
  2725     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.192 2009-10-24 18:28:18 cg Exp $'
  2726     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.193 2009-10-24 18:30:12 cg Exp $'
  2726 ! !
  2727 ! !