StrongtalkSource/ToggleButton.dlt

   1 Delta define: #ToggleButton as: (\r
   2 (Class subclassOf: 'PressHandler' instanceVariables: 'model <Boolean>\r
   3 modelSink <[Boolean]>\r
   4 trueLook <Visual>\r
   5 falseLook <Visual>\r
   6 look <Boolean>\r
   7 pressedBorder <Border>\r
   8 unpressedBorder <Border>\r
   9 frame <Frame>\r
  10                 ') classVariables: 'FocusPainter <Painter>\r
  11                         '; protocols: 'View[Boolean]') !\r
  12 \r
  13 (Delta mirrorFor: #ToggleButton) revision: '$Revision: 1.3 $'!\r
  14 \r
  15 (Delta mirrorFor: #ToggleButton) group: 'ui'!\r
  16 \r
  17 (Delta mirrorFor: #ToggleButton)\r
  18 comment: \r
  19 'General non-native button.\r
  20 \r
  21 Tags: %User %UI\r
  22 \r
  23 (c) 1995-1997 Sun Microsystems, Inc. ALL RIGHTS RESERVED. \r
  24 Use and distribution of this software is subject to the terms of the attached source license\r
  25 '!\r
  26 \r
  27 ! (Delta mirrorFor: #ToggleButton) classSide methodsFor: 'instance creation' !\r
  28 \r
  29 \r
  30 withTrueLook: t <Visual>\r
  31 falseLook: f <Visual>\r
  32 ^<Instance>\r
  33 \r
  34         ^self new trueLook: t falseLook: f initialLook: false!\r
  35 \r
  36 withTrueLook: t <Visual>\r
  37 falseLook: f <Visual>\r
  38 initialLook: b <Boolean>\r
  39 ^<Instance>\r
  40 \r
  41         ^self new trueLook: t falseLook: f initialLook: b! !\r
  42 \r
  43 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'accessing' !\r
  44 \r
  45 \r
  46 falseLook ^<Visual>\r
  47 \r
  48         ^falseLook!\r
  49 \r
  50 look ^<Boolean>\r
  51 \r
  52         ^look!\r
  53 \r
  54 look: flag <Boolean>\r
  55 \r
  56         look := flag.\r
  57         self updatePart.!\r
  58 \r
  59 model ^<Boolean>\r
  60 \r
  61         ^model!\r
  62 \r
  63 model: f <Boolean>\r
  64 \r
  65         model := f.\r
  66         self look: f.!\r
  67 \r
  68 modelSink ^<[Boolean]>\r
  69 \r
  70         ^modelSink!\r
  71 \r
  72 modelSink: b <[Boolean]>\r
  73 \r
  74         modelSink := b!\r
  75 \r
  76 pressedBorder ^<Border>\r
  77 \r
  78         ^pressedBorder!\r
  79 \r
  80 pressedBorder: b <Border>\r
  81 \r
  82         pressedBorder notNil\r
  83                 ifTrue: [ self changing; updatePart ].\r
  84         pressedBorder := b!\r
  85 \r
  86 trueLook ^<Visual>\r
  87 \r
  88         ^trueLook!\r
  89 \r
  90 trueLook: t <Visual> falseLook: f <Visual>\r
  91 \r
  92         trueLook := t.\r
  93         falseLook := f.\r
  94 \r
  95         self    onPress: [ self look: self model not ];\r
  96                         onAction: [ self toggle ];\r
  97                         onCancel: [ self look: self model ].\r
  98 \r
  99         self look: self model.!\r
 100 \r
 101 trueLook: t <Visual> falseLook: f <Visual> initialLook: b <Boolean>\r
 102 \r
 103         model := b.\r
 104         look := b.\r
 105         self trueLook: t falseLook: f!\r
 106 \r
 107 unpressedBorder ^<Border>\r
 108 \r
 109         ^unpressedBorder!\r
 110 \r
 111 unpressedBorder: b <Border>\r
 112 \r
 113         unpressedBorder notNil\r
 114                 ifTrue: [ self changing; updatePart ].\r
 115         unpressedBorder := b! !\r
 116 \r
 117 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'initialize' !\r
 118 \r
 119 \r
 120 initialize\r
 121         super initialize.\r
 122         model := false.\r
 123         self modelSink: [ :f <Boolean> | ].\r
 124         look := false.\r
 125         self    pressedBorder: (Border standard3DRaised: false);\r
 126                         unpressedBorder: (Border standard3DRaised: true).! !\r
 127 \r
 128 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'control' !\r
 129 \r
 130 \r
 131 toggle\r
 132 \r
 133         self model: self model not.\r
 134         self modelSink value: self model.\r
 135         self updatePart.! !\r
 136 \r
 137 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'private' !\r
 138 \r
 139 \r
 140 action\r
 141 \r
 142         super action.\r
 143 \r
 144         "We regain the focus if needed because some parents might move or reparent us\r
 145                 during the action (like outliners)"\r
 146         (self isFocus not and: [ self isAttached and: [ self session activeWindow == self topWindow ] ])\r
 147                 ifTrue: [ self becomeFocus ].!\r
 148 \r
 149 focusPainter ^<Painter>\r
 150 \r
 151         FocusPainter isNil\r
 152                 ifTrue: [       "We don't need a critical region because replacement won't hurt"\r
 153                                                 FocusPainter := Painter new lineStyle: #dot     ].\r
 154         ^FocusPainter!\r
 155 \r
 156 frame ^<Frame>\r
 157 \r
 158         ^frame!\r
 159 \r
 160 frame: f <Frame>\r
 161 \r
 162         frame := f.\r
 163         self part: f.!\r
 164 \r
 165 isFocusCandidate ^<Boolean>\r
 166 \r
 167         ^true!\r
 168 \r
 169 press\r
 170 \r
 171         self scrollIfNeededToMakeVisible: self allocation enclosingRect\r
 172                          relativeTo: self minimizeMotion: true.\r
 173         super press.\r
 174         self becomeFocus!\r
 175 \r
 176 skipCheckLayout ^<Boolean>\r
 177 \r
 178         ^false!\r
 179 \r
 180 updatePart\r
 181 \r
 182         | b <Border> f <Frame> look <Visual> |\r
 183         self hasPart\r
 184                 ifTrue: [ self frame removePart ]\r
 185                 ifFalse: [ self frame: (Frame new) ].\r
 186 \r
 187         self pressing\r
 188                 ifTrue: [ b := self pressedBorder ]\r
 189                 ifFalse: [ b := self unpressedBorder ].\r
 190 \r
 191         look := self look\r
 192                 ifTrue: [ self trueLook ]\r
 193                 ifFalse: [ self falseLook ].\r
 194 \r
 195         self frame\r
 196                 part: look;\r
 197                 border: b.! !\r
 198 \r
 199 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'restricted-to session' !\r
 200 \r
 201 \r
 202 isFocus: f <Boolean>\r
 203 \r
 204         super isFocus: f.\r
 205         (f not and: [ self isGrabbing ])\r
 206                 ifTrue: [ self releaseGrab ].\r
 207         self invalidate.! !\r
 208 \r
 209 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'displaying' !\r
 210 \r
 211 \r
 212 localDisplayOn: can <Canvas>\r
 213 \r
 214         super localDisplayOn: can.\r
 215 \r
 216         (self isFocus and: [ self blinkState and: [ self pressing not ] ])\r
 217                 ifTrue: [ can withPainter: self focusPainter\r
 218                                                         do: [ can displayRectangle:\r
 219                                                                                  ((self frame part allocationRelativeTo: self) enclosingRect\r
 220                                                                                                 expandBy: 1) ]  ].! !\r
 221 \r
 222 ! (Delta mirrorFor: #ToggleButton) methodsFor: 'event processing' !\r
 223 \r
 224 \r
 225 keyDown: key <Symbol> focus: focus <Visual> event: ev <UIEvent> ^<Boolean>\r
 226 \r
 227         focus == self\r
 228                 ifFalse: [ ^false ].\r
 229 \r
 230         key = #RETURN\r
 231                 ifTrue: [       self press.\r
 232                                                 ^true ].\r
 233         key = #SPACE\r
 234                 ifTrue: [       self action.\r
 235                                                 ^true ].\r
 236         (key = #TAB and: [ self pressing ])\r
 237                 ifTrue: [       self cancel.\r
 238                                                 ^false ].\r
 239 \r
 240         ^false!\r
 241 \r
 242 keyUp: key <Symbol> focus: focus <Visual> event: ev <UIEvent> ^<Boolean>\r
 243 \r
 244         focus == self\r
 245                 ifFalse: [ ^false ].\r
 246 \r
 247         ^(key = #RETURN and: [ self pressing ])\r
 248                 onTrue: [ self action ]! !\r
 249 \r