1: ================================================================================ 2: 3: Smalltalk.KSU defineClass: #ColorCMY 4: superclass: #{KSU.ColorAbstract} 5: indexedType: #none 6: private: false 7: instanceVariableNames: '' 8: classInstanceVariableNames: '' 9: imports: '' 10: category: 'KSU-Template' 11: 12: ================================================================================ 13: 14: KSU.ColorCMY method for 'accessing' 15: 16: color 17: 18: | aColor | 19: aColor := ColorValue 20: cyan: (0 max: (self cyanGauge value min: 1)) 21: magenta: (0 max: (self magentaGauge value min: 1)) 22: yellow: (0 max: (self yellowGauge value min: 1)). 23: ^aColor 24: 25: ------------------------------------------------------------ 26: 27: KSU.ColorCMY method for 'aspects' 28: 29: cyanGauge 30: 31: ^self firstGauge 32: 33: ------------------------------------------------------------ 34: 35: KSU.ColorCMY method for 'aspects' 36: 37: magentaGauge 38: 39: ^self secondGauge 40: 41: ------------------------------------------------------------ 42: 43: KSU.ColorCMY method for 'aspects' 44: 45: yellowGauge 46: 47: ^self thirdGauge 48: 49: ================================================================================ 50: 51: KSU.ColorCMY class 52: instanceVariableNames: '' 53: 54: ================================================================================ 55: 56: KSU.ColorCMY class method for 'examples' 57: 58: example1 59: "KSU.ColorCMY example1." 60: 61: | anApplication | 62: anApplication := KSU.ColorCMY new. 63: anApplication open. 64: ^anApplication 65: 66: ------------------------------------------------------------ 67: 68: KSU.ColorCMY class method for 'interface specs' 69: 70: windowSpec 71: "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" 72: 73: <resource: #canvas> 74: ^#(#{UI.FullSpec} 75: #window: 76: #(#{UI.WindowSpec} 77: #label: '減法混色' 78: #min: #(#{Core.Point} 512 160 ) 79: #max: #(#{Core.Point} 512 160 ) 80: #bounds: #(#{Graphics.Rectangle} 1023 719 1535 879 ) 81: #flags: 4 82: #menu: #menuBar ) 83: #component: 84: #(#{UI.SpecCollection} 85: #collection: #( 86: #(#{UI.LabelSpec} 87: #layout: #(#{Core.Point} 24 17 ) 88: #name: #cyanLabel 89: #colors: 90: #(#{UI.LookPreferences} 91: #setBackgroundColor: #(#{Graphics.ColorValue} #pink ) ) 92: #label: 'シアン :' ) 93: #(#{UI.LabelSpec} 94: #layout: #(#{Core.Point} 24 49 ) 95: #name: #magentaLabel 96: #colors: 97: #(#{UI.LookPreferences} 98: #setBackgroundColor: #(#{Graphics.ColorValue} 6143 8191 6143 ) ) 99: #label: 'マゼンタ:' ) 100: #(#{UI.LabelSpec} 101: #layout: #(#{Core.Point} 24 81 ) 102: #name: #yellowLabel 103: #colors: 104: #(#{UI.LookPreferences} 105: #setBackgroundColor: #(#{Graphics.ColorValue} 6143 6143 8191 ) ) 106: #label: 'イエロー:' ) 107: #(#{UI.ProgressWidgetSpec} 108: #layout: #(#{Graphics.Rectangle} 232 17 488 40 ) 109: #name: #cyanPercent 110: #isOpaque: true 111: #model: #cyanGauge 112: #direction: #horizontal 113: #position: #topLeft 114: #area: true 115: #reverse: false ) 116: #(#{UI.ProgressWidgetSpec} 117: #layout: #(#{Graphics.Rectangle} 232 49 488 72 ) 118: #name: #magentaPercent 119: #isOpaque: true 120: #model: #magentaGauge 121: #direction: #horizontal 122: #position: #topLeft 123: #area: true 124: #reverse: false ) 125: #(#{UI.ProgressWidgetSpec} 126: #layout: #(#{Graphics.Rectangle} 232 81 488 104 ) 127: #name: #yellowPercent 128: #isOpaque: true 129: #model: #yellowGauge 130: #direction: #horizontal 131: #position: #topLeft 132: #area: true 133: #reverse: false ) 134: #(#{UI.SpinButtonSpec} 135: #layout: #(#{Graphics.Rectangle} 112 17 208 40 ) 136: #name: #cyanGauge 137: #colors: 138: #(#{UI.LookPreferences} 139: #setBackgroundColor: #(#{Graphics.ColorValue} 6143 8191 8191 ) 140: #setSelectionBackgroundColor: #(#{Graphics.ColorValue} 6143 8191 8191 ) ) 141: #model: #cyanGauge 142: #tabable: false 143: #alignment: #center 144: #type: #number 145: #low: 0 146: #high: 1 147: #interval: 0.01 ) 148: #(#{UI.SpinButtonSpec} 149: #layout: #(#{Graphics.Rectangle} 112 49 208 72 ) 150: #name: #magentaGauge 151: #colors: 152: #(#{UI.LookPreferences} 153: #setBackgroundColor: #(#{Graphics.ColorValue} 8191 6143 8191 ) 154: #setSelectionBackgroundColor: #(#{Graphics.ColorValue} 8191 6143 8191 ) ) 155: #model: #magentaGauge 156: #tabable: false 157: #alignment: #center 158: #type: #number 159: #low: 0 160: #high: 1 161: #interval: 0.01 ) 162: #(#{UI.SpinButtonSpec} 163: #layout: #(#{Graphics.Rectangle} 112 81 208 104 ) 164: #name: #yellowGauge 165: #colors: 166: #(#{UI.LookPreferences} 167: #setBackgroundColor: #(#{Graphics.ColorValue} 8191 8191 6143 ) 168: #setSelectionBackgroundColor: #(#{Graphics.ColorValue} 8191 8191 6143 ) ) 169: #model: #yellowGauge 170: #tabable: false 171: #alignment: #center 172: #type: #number 173: #low: 0 174: #high: 1 175: #interval: 0.01 ) ) ) ) 176: 177: ================================================================================
This document was generated by KSU.TextDoclet on 2012/11/10 at 10:56:49.