1434 |
1434 |
1435 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1435 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1436 |
1436 |
1437 showSeparatingLines := DefaultSeparatingLines. "/ false. |
1437 showSeparatingLines := DefaultSeparatingLines. "/ false. |
1438 DefaultViewBackground notNil ifTrue:[ |
1438 DefaultViewBackground notNil ifTrue:[ |
1439 viewBackground := DefaultViewBackground on:device |
1439 viewBackground := DefaultViewBackground on:device |
1440 ]. |
1440 ]. |
1441 |
1441 |
1442 DefaultForegroundColor notNil ifTrue:[ |
1442 DefaultForegroundColor notNil ifTrue:[ |
1443 fgColor := DefaultForegroundColor |
1443 fgColor := DefaultForegroundColor |
1444 ] ifFalse:[ |
1444 ] ifFalse:[ |
1445 fgColor := Black. |
1445 fgColor := Black. |
1446 ]. |
1446 ]. |
1447 DefaultBackgroundColor notNil ifTrue:[ |
1447 DefaultBackgroundColor notNil ifTrue:[ |
1448 bgColor := DefaultBackgroundColor |
1448 bgColor := DefaultBackgroundColor |
1449 ] ifFalse:[ |
1449 ] ifFalse:[ |
1450 bgColor := viewBackground. |
1450 bgColor := viewBackground. |
1451 ]. |
1451 ]. |
1452 onLevel := DefaultHilightLevel. |
1452 onLevel := DefaultHilightLevel. |
1453 offLevel := DefaultLevel. |
1453 offLevel := DefaultLevel. |
1454 |
1454 |
1455 self is3D ifTrue:[ |
1455 self is3D ifTrue:[ |
1456 device hasColors ifTrue:[ |
1456 device hasColors ifTrue:[ |
1457 activeFgColor := Color name:'yellow' |
1457 activeFgColor := Color name:'yellow' |
1458 ] ifFalse:[ |
1458 ] ifFalse:[ |
1459 activeFgColor := White |
1459 activeFgColor := White |
1460 ]. |
1460 ]. |
1461 device hasGrayscales ifTrue:[ |
1461 device hasGrayscales ifTrue:[ |
1462 activeBgColor := bgColor. |
1462 activeBgColor := bgColor. |
1463 ] ifFalse:[ |
1463 ] ifFalse:[ |
1464 activeBgColor := fgColor. |
1464 activeBgColor := fgColor. |
1465 ]. |
1465 ]. |
1466 topMargin := 2. |
1466 topMargin := 2. |
1467 |
1467 |
1468 style := styleSheet name. |
1468 style := styleSheet name. |
1469 ((style == #iris) or:[style == #motif]) ifTrue:[ |
1469 ((style == #iris) or:[style == #motif]) ifTrue:[ |
1470 self level:2. |
1470 self level:2. |
1471 onLevel := 2. |
1471 onLevel := 2. |
1472 offLevel := 0. |
1472 offLevel := 0. |
1473 activeFgColor := fgColor |
1473 activeFgColor := fgColor |
1474 ] |
1474 ] ifFalse:[ |
|
1475 style == #win95 ifTrue:[ |
|
1476 self level:1 |
|
1477 ] |
|
1478 ] |
1475 ] ifFalse:[ |
1479 ] ifFalse:[ |
1476 activeFgColor := bgColor. |
1480 activeFgColor := bgColor. |
1477 activeBgColor := fgColor. |
1481 activeBgColor := fgColor. |
1478 topMargin := 0 |
1482 topMargin := 0 |
1479 ]. |
1483 ]. |
1480 |
1484 |
1481 edgeStyle := DefaultEdgeStyle. |
1485 edgeStyle := DefaultEdgeStyle. |
1482 toggleMode := DefaultToggleMode. |
1486 toggleMode := DefaultToggleMode. |
1483 |
1487 |
1484 DefaultHilightForegroundColor notNil ifTrue:[ |
1488 DefaultHilightForegroundColor notNil ifTrue:[ |
1485 activeFgColor := DefaultHilightForegroundColor |
1489 activeFgColor := DefaultHilightForegroundColor |
1486 ]. |
1490 ]. |
1487 DefaultHilightBackgroundColor notNil ifTrue:[ |
1491 DefaultHilightBackgroundColor notNil ifTrue:[ |
1488 activeBgColor := DefaultHilightBackgroundColor |
1492 activeBgColor := DefaultHilightBackgroundColor |
1489 ]. |
1493 ]. |
1490 DefaultShadowColor notNil ifTrue:[ |
1494 DefaultShadowColor notNil ifTrue:[ |
1491 shadowColor := DefaultShadowColor |
1495 shadowColor := DefaultShadowColor |
1492 ]. |
1496 ]. |
1493 DefaultLightColor notNil ifTrue:[ |
1497 DefaultLightColor notNil ifTrue:[ |
1494 lightColor := DefaultLightColor |
1498 lightColor := DefaultLightColor |
1495 ]. |
1499 ]. |
1496 |
1500 |
1497 raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true. |
1501 raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true. |
1498 |
1502 |
1499 "Modified: 17.1.1997 / 23:22:13 / cg" |
1503 "Modified: / 15.9.1998 / 22:58:42 / cg" |
1500 ! |
1504 ! |
1501 |
1505 |
1502 initialize |
1506 initialize |
1503 super initialize. |
1507 super initialize. |
1504 |
1508 |