Color.st
changeset 2077 442b9763111c
parent 2071 20a74671b3e0
child 2083 117f2e5ca733
equal deleted inserted replaced
2076:7202e4e5c2e2 2077:442b9763111c
  1447 !
  1447 !
  1448 
  1448 
  1449 orange
  1449 orange
  1450     "return the orange color - ST-80 compatibility"
  1450     "return the orange color - ST-80 compatibility"
  1451 
  1451 
  1452      ^ self redPercent:75 greenPercent:50 bluePercent:0
  1452      ^ self orange:100
  1453 
  1453 !
  1454     "Modified: 23.4.1996 / 13:29:32 / cg"
  1454 
       
  1455 orange: orange
       
  1456     "return a orange color;
       
  1457      the argument orange is interpreted as percent (0..100)"
       
  1458 
       
  1459      ^ self redPercent:orange greenPercent:orange/2 bluePercent:0
       
  1460                                      
  1455 !
  1461 !
  1456 
  1462 
  1457 pink 
  1463 pink 
  1458     "return the pink color - ST-80 compatibility"
  1464     "return the pink color - ST-80 compatibility"
  1459 
  1465 
  4508 ! !
  4514 ! !
  4509 
  4515 
  4510 !Color class methodsFor:'documentation'!
  4516 !Color class methodsFor:'documentation'!
  4511 
  4517 
  4512 version
  4518 version
  4513     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.111 1998-02-26 14:00:24 cg Exp $'
  4519     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.112 1998-03-07 16:28:47 tz Exp $'
  4514 ! !
  4520 ! !
  4515 Color initialize!
  4521 Color initialize!