1: ================================================================================ 2: 3: Smalltalk.KSU defineClass: #ColorAbstract 4: superclass: #{UI.ApplicationModel} 5: indexedType: #none 6: private: false 7: instanceVariableNames: 'firstGauge secondGauge thirdGauge ' 8: classInstanceVariableNames: '' 9: imports: '' 10: category: '' 11: 12: ================================================================================ 13: 14: KSU.ColorAbstract method for 'accessing' 15: 16: color 17: 18: ^self subclassResponsibility 19: 20: ------------------------------------------------------------ 21: 22: KSU.ColorAbstract method for 'aspects' 23: 24: firstGauge 25: 26: firstGauge 27: ifNil: 28: [firstGauge := 0.5 asValue. 29: firstGauge compute: [:aValue | self updateColorFirst: aValue]]. 30: ^firstGauge 31: 32: ------------------------------------------------------------ 33: 34: KSU.ColorAbstract method for 'initialize-release' 35: 36: initialize 37: 38: super initialize. 39: firstGauge := nil. 40: secondGauge := nil. 41: thirdGauge := nil. 42: ^self 43: 44: ------------------------------------------------------------ 45: 46: KSU.ColorAbstract method for 'interface opening' 47: 48: postOpenWith: aBuilder 49: 50: super postOpenWith: aBuilder. 51: self updateColor 52: 53: ------------------------------------------------------------ 54: 55: KSU.ColorAbstract method for 'aspects' 56: 57: secondGauge 58: 59: secondGauge 60: ifNil: 61: [secondGauge := 0.5 asValue. 62: secondGauge compute: [:aValue | self updateColorSecond: aValue]]. 63: ^secondGauge 64: 65: ------------------------------------------------------------ 66: 67: KSU.ColorAbstract method for 'aspects' 68: 69: thirdGauge 70: 71: thirdGauge 72: ifNil: 73: [thirdGauge := 0.5 asValue. 74: thirdGauge compute: [:aValue | self updateColorThird: aValue]]. 75: ^thirdGauge 76: 77: ------------------------------------------------------------ 78: 79: KSU.ColorAbstract method for 'private' 80: 81: updateColor 82: 83: self builder 84: ifNotNil: 85: [:aBuilder | 86: aBuilder window 87: ifNotNil: 88: [:aWindow | 89: aWindow 90: background: self color; 91: display]] 92: 93: ------------------------------------------------------------ 94: 95: KSU.ColorAbstract method for 'private' 96: 97: updateColorFirst: aValue 98: 99: InputState default altDown 100: ifTrue: 101: [self secondGauge value = aValue ifFalse: [self secondGauge value: aValue]. 102: self thirdGauge value = aValue ifFalse: [self thirdGauge value: aValue]]. 103: self updateColor 104: 105: ------------------------------------------------------------ 106: 107: KSU.ColorAbstract method for 'private' 108: 109: updateColorSecond: aValue 110: 111: InputState default altDown 112: ifTrue: 113: [self firstGauge value = aValue ifFalse: [self firstGauge value: aValue]. 114: self thirdGauge value = aValue ifFalse: [self thirdGauge value: aValue]]. 115: self updateColor 116: 117: ------------------------------------------------------------ 118: 119: KSU.ColorAbstract method for 'private' 120: 121: updateColorThird: aValue 122: 123: InputState default altDown 124: ifTrue: 125: [self firstGauge value = aValue ifFalse: [self firstGauge value: aValue]. 126: self secondGauge value = aValue ifFalse: [self secondGauge value: aValue]]. 127: self updateColor 128: 129: ================================================================================ 130: 131: KSU.ColorAbstract class 132: instanceVariableNames: '' 133: 134: ================================================================================ 135: 136: KSU.ColorAbstract class method for 'resources' 137: 138: menuBar 139: "Tools.MenuEditor new openOnClass: self andSelector: #menuBar" 140: 141: <resource: #menu> 142: ^#(#{UI.Menu} #( 143: #(#{UI.MenuItem} 144: #rawLabel: 'ファイル' 145: #submenu: #(#{UI.Menu} #( 146: #(#{UI.MenuItem} 147: #rawLabel: '終了' 148: #value: #closeRequest ) ) #(1 ) nil ) ) ) #(1 ) nil ) decodeAsLiteralArray 149: 150: ------------------------------------------------------------ 151: 152: KSU.ColorAbstract class method for 'interface specs' 153: 154: windowSpec 155: 156: ^self subclassResponsibility 157: 158: ================================================================================
This document was generated by KSU.TextDoclet on 2012/11/10 at 10:56:49.