Scroller.st
changeset 709 a738bd76ace4
parent 705 e2e7e718eb93
child 713 0c38ad51016d
equal deleted inserted replaced
708:e8eb52699f90 709:a738bd76ace4
  1395         DefaultThumbHalfLightColor notNil ifTrue:[
  1395         DefaultThumbHalfLightColor notNil ifTrue:[
  1396             thumbHalfLightColor := DefaultThumbHalfLightColor
  1396             thumbHalfLightColor := DefaultThumbHalfLightColor
  1397         ].
  1397         ].
  1398     ].
  1398     ].
  1399 
  1399 
  1400     device hasGreyscales ifFalse:[
  1400     device hasGrayscales ifFalse:[
  1401         thumbEdgeStyle notNil ifTrue:[
  1401         thumbEdgeStyle notNil ifTrue:[
  1402             thumbHalfShadowColor := Color darkGray.
  1402             thumbHalfShadowColor := Color darkGray.
  1403             thumbHalfLightColor := White
  1403             thumbHalfLightColor := White
  1404         ].
  1404         ].
  1405 
  1405 
  1416     DefaultThumbColor notNil ifTrue:[
  1416     DefaultThumbColor notNil ifTrue:[
  1417         thumbColor := DefaultThumbColor on:device
  1417         thumbColor := DefaultThumbColor on:device
  1418     ] ifFalse:[
  1418     ] ifFalse:[
  1419         thumbColor := White.
  1419         thumbColor := White.
  1420         styleSheet name ~= #normal ifTrue:[
  1420         styleSheet name ~= #normal ifTrue:[
  1421             device hasGreyscales ifFalse:[
  1421             device hasGrayscales ifFalse:[
  1422                 thumbColor := Color grey
  1422                 thumbColor := Color grey
  1423             ].
  1423             ].
  1424         ].
  1424         ].
  1425     ].
  1425     ].
  1426 
  1426 
  1460 
  1460 
  1461     drawableId notNil ifTrue:[
  1461     drawableId notNil ifTrue:[
  1462         self computeThumbFrame
  1462         self computeThumbFrame
  1463     ]
  1463     ]
  1464 
  1464 
  1465     "Modified: 28.5.1996 / 20:47:35 / cg"
  1465     "Modified: 28.5.1996 / 21:13:34 / cg"
  1466 !
  1466 !
  1467 
  1467 
  1468 initialize
  1468 initialize
  1469     "initialize - setup instvars from defaults"
  1469     "initialize - setup instvars from defaults"
  1470 
  1470 
  1770 ! !
  1770 ! !
  1771 
  1771 
  1772 !Scroller class methodsFor:'documentation'!
  1772 !Scroller class methodsFor:'documentation'!
  1773 
  1773 
  1774 version
  1774 version
  1775     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.56 1996-05-28 18:58:50 cg Exp $'
  1775     ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.57 1996-05-28 19:18:12 cg Exp $'
  1776 ! !
  1776 ! !