equal
deleted
inserted
replaced
1381 ]. |
1381 ]. |
1382 DefaultHilightBackgroundColor notNil ifTrue:[ |
1382 DefaultHilightBackgroundColor notNil ifTrue:[ |
1383 activeBgColor := DefaultHilightBackgroundColor |
1383 activeBgColor := DefaultHilightBackgroundColor |
1384 ]. |
1384 ]. |
1385 DefaultShadowColor notNil ifTrue:[ |
1385 DefaultShadowColor notNil ifTrue:[ |
1386 shadowColor := DefaultShadowColor on:device |
1386 shadowColor := DefaultShadowColor |
1387 ]. |
1387 ]. |
1388 DefaultLightColor notNil ifTrue:[ |
1388 DefaultLightColor notNil ifTrue:[ |
1389 lightColor := DefaultLightColor on:device |
1389 lightColor := DefaultLightColor |
1390 ]. |
1390 ]. |
1391 |
1391 |
1392 raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true. |
1392 raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true. |
1393 |
1393 |
1394 "Modified: 13.1.1997 / 23:25:34 / cg" |
1394 "Modified: 13.1.1997 / 23:51:21 / cg" |
1395 ! |
1395 ! |
1396 |
1396 |
1397 initialize |
1397 initialize |
1398 super initialize. |
1398 super initialize. |
1399 |
1399 |
1658 ! ! |
1658 ! ! |
1659 |
1659 |
1660 !PullDownMenu class methodsFor:'documentation'! |
1660 !PullDownMenu class methodsFor:'documentation'! |
1661 |
1661 |
1662 version |
1662 version |
1663 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.68 1997-01-13 22:28:03 cg Exp $' |
1663 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.69 1997-01-13 22:51:31 cg Exp $' |
1664 ! ! |
1664 ! ! |