Color.st
changeset 2388 8a7f4bb3847c
parent 2379 b2a844aabc93
child 2455 9d61d6c0d0f9
equal deleted inserted replaced
2387:cfd8fa32799b 2388:8a7f4bb3847c
  1396     "
  1396     "
  1397 
  1397 
  1398     "Modified: 24.2.1997 / 21:33:28 / cg"
  1398     "Modified: 24.2.1997 / 21:33:28 / cg"
  1399 !
  1399 !
  1400 
  1400 
       
  1401 lightBlue
       
  1402     "return a light blue color"
       
  1403 
       
  1404     ^ self redPercent:50 greenPercent:50 bluePercent:100
       
  1405 
       
  1406     "
       
  1407      Color lightBlue inspect
       
  1408     "
       
  1409 
       
  1410     "Modified: 23.4.1996 / 13:23:08 / cg"
       
  1411 !
       
  1412 
  1401 lightGray
  1413 lightGray
  1402     "return the lightGrey color (US version ;-)"
  1414     "return the lightGrey color (US version ;-)"
  1403 
  1415 
  1404     LightGrey isNil ifTrue:[
  1416     LightGrey isNil ifTrue:[
  1405         LightGrey := self grayPercent:67
  1417         LightGrey := self grayPercent:67
  1411     "
  1423     "
  1412 
  1424 
  1413     "Modified: 24.2.1997 / 21:33:41 / cg"
  1425     "Modified: 24.2.1997 / 21:33:41 / cg"
  1414 !
  1426 !
  1415 
  1427 
       
  1428 lightGreen
       
  1429     "return a light green color"
       
  1430 
       
  1431     ^ self redPercent:50 greenPercent:100 bluePercent:50
       
  1432 
       
  1433     "
       
  1434      Color lightGreen inspect
       
  1435     "
       
  1436 
       
  1437     "Modified: 23.4.1996 / 13:23:08 / cg"
       
  1438 !
       
  1439 
  1416 lightGrey
  1440 lightGrey
  1417     "return the lightGrey color (English version ;-)"
  1441     "return the lightGrey color (English version ;-)"
  1418 
  1442 
  1419     ^ self lightGray
  1443     ^ self lightGray
  1420 
  1444 
  1421     "
  1445     "
  1422      Color lightGrey inspect
  1446      Color lightGrey inspect
  1423     "
  1447     "
  1424 
  1448 
  1425     "Modified: 28.5.1996 / 20:51:11 / cg"
  1449     "Modified: 28.5.1996 / 20:51:11 / cg"
       
  1450 !
       
  1451 
       
  1452 lightRed
       
  1453     "return a light red color"
       
  1454 
       
  1455     ^ self redPercent:100 greenPercent:50 bluePercent:50
       
  1456 
       
  1457     "
       
  1458      Color lightRed inspect
       
  1459     "
       
  1460 
       
  1461     "Modified: 23.4.1996 / 13:23:08 / cg"
  1426 !
  1462 !
  1427 
  1463 
  1428 magenta
  1464 magenta
  1429     "return the magenta color - ST-80 compatibility"
  1465     "return the magenta color - ST-80 compatibility"
  1430 
  1466 
  4558 ! !
  4594 ! !
  4559 
  4595 
  4560 !Color class methodsFor:'documentation'!
  4596 !Color class methodsFor:'documentation'!
  4561 
  4597 
  4562 version
  4598 version
  4563     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.122 1998-10-01 10:51:11 cg Exp $'
  4599     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.123 1998-10-09 11:51:08 cg Exp $'
  4564 ! !
  4600 ! !
  4565 Color initialize!
  4601 Color initialize!