hg/stx-libwidg: comparison Label.st

equal deleted inserted replaced

-:7abd3a234296
+:3ffa271732f7
 Label comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.21 1995-05-03 00:29:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.22 1995-05-09 01:56:01 claus Exp $
 '!
 !Label class methodsFor:'documentation'!
 copyright
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.21 1995-05-03 00:29:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.22 1995-05-09 01:56:01 claus Exp $
 "
 !
 documentation
 "
 This can be used, if resizing of the label is not wanted.
 However, in this case you have to make certain that the size is big enough
 to hold any changed logos later. (usually, you create the label first with
 the longest string first to have it compute its size, then set the fixSize
 attribute to avoid resizing later).
+Be careful when placing self-resizing labels into panels - by default,
+panels do not react on the size change - leading to ugly looking geometry.
+(but you can tell the panel to watch for changes with #elementsCHangeSize:)
 The placement of the contents within the label is controlled by
 the adjust attribute, it can be set with:
 	aLabel adjust:how
 Having a labelSymbol different from the aspectSymbol allows for two labels
 to react on the same aspect-change, but use different messages when asking
 the model for a new label contents. By default, the labelMsg is nil,
 so the label does NOT update its shown contents.
 The aspectMsg defaults to #value.
 Instance variables:
 	logo                <Object>        the logo, can be a Form, String or Text
 	labelWidth          <Integer>       the width of the logo in device units
 	l origin:50@100.
 	top open
-MVC operation (model provides the label):
+MVC operation
-(have to use a plug to simulate a model which responds to
+model provides the label):
-the #someAspect message):
+(have to use a plug to simulate a model which responds to
+	the #someAspect message):
 	|top l model|
 	model := Plug new.
 	model respondTo:#someAspect with:['models labelString'].
 	model changed:#someAspect
 	...
 concrete example (track a counters value):
 (here, the default aspect #value is used both to notify the label about
 changes and to aquire a new value from the model).
 	|top l model|
 	model := ValueHolder new.
 	model value:0.
 	top := StandardSystemView new.
 	top extent:(200 @ 200).
 	l := Label in:top.
+	l level:-1.
 	l model:model; labelMessage:#value.
 	top open
-MVC operation (model changes aspect after a while;
+model changes aspect after a while; two labels on the same model:
-two labels on the same model):
 	|top l model|
 	model := Plug new.
 	model respondTo:#labelValue1 with:['models labelString1'].
 	model respondTo:#labelValue2 with:['new string2'].
 	model changed:#someAspect
 plugged MVC operation (getBlock returns the label):
 	|top l model|
 	model := PluggableAdaptor new
 			getBlock:[:m | 'hello']
 	l := Label origin:0.0@0.0 corner:1.0@0.5 in:top.
 	l model:model; labelMessage:#value.
 	top open.
+use different label-selectors to access fields of a complex model:
+	|top panel model|
+	model := Plug new.
+	model respondTo:#field1 with:['value1'].
+	model respondTo:#field2 with:['value2'].
+	model respondTo:#field3 with:['value3'].
+	model respondTo:#field4 with:['value4'].
+	top := StandardSystemView new.
+	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+	panel elementsChangeSize:true.
+	panel addSubView:((Label on:model) labelMessage:#field1).
+	panel addSubView:((Label on:model) labelMessage:#field2).
+	panel addSubView:((Label on:model) labelMessage:#field3).
+	panel addSubView:((Label on:model) labelMessage:#field4).
+	top extent:(200 @ 200).
+	top open.
+	(Delay forSeconds:5) wait.
+	model respondTo:#field2 with:['new value2'].
+	model changed:#value
+same as above, using default aspects in the label, and an adaptor
+to translate aspects:
+	|top panel model v1|
+	model := Plug new.
+	model respondTo:#field1 with:[v1].
+	model respondTo:#field1: with:[:arg | v1 := arg. model changed:#field1].
+	model respondTo:#field2 with:['value2'].
+	model respondTo:#field2: with:[:arg |].
+	model respondTo:#field3 with:['value3'].
+	model respondTo:#field3: with:[:arg |].
+	model respondTo:#field4 with:['value4'].
+	model respondTo:#field4: with:[:arg |].
+	top := StandardSystemView new.
+	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+	panel elementsChangeSize:true.
+	panel addSubView:((Label on:((AspectAdaptor subject:model) forAspect:#field1)) labelMessage:#value).
+	panel addSubView:((Label on:((AspectAdaptor subject:model) forAspect:#field2)) labelMessage:#value).
+	panel addSubView:((Label on:((AspectAdaptor subject:model) forAspect:#field3)) labelMessage:#value).
+	panel addSubView:((Label on:((AspectAdaptor subject:model) forAspect:#field4)) labelMessage:#value).
+	top extent:(200 @ 200).
+	top open.
+	(Delay forSeconds:5) wait.
+	model field1:'new value1'.
+use an adapter to access fields of a complex model:
+	|top l panel model|
+	model := #('one' 'two' 'three') asValue.
+	top := StandardSystemView new.
+	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+	panel elementsChangeSize:true.
+	panel addSubView:((Label on:(ProtocolAdaptor
+					subjectChannel:model
+					accessPath:#(1))) labelMessage:#value).
+	panel addSubView:((Label on:(ProtocolAdaptor
+					subjectChannel:model
+					accessPath:#(2))) labelMessage:#value).
+	panel addSubView:((Label on:(ProtocolAdaptor
+					subjectChannel:model
+					accessPath:#(3))) labelMessage:#value).
+	top extent:(200 @ 200).
+	top open.
+	(Delay forSeconds:5) wait.
+	model value:#('oneone' 'twotwo' 'threethree').
 "
 ! !
 !Label class methodsFor:'instance creation'!
 	    self redraw
 	]
 ]
 ! !
+!
+!Label methodsFor:'accessing-mvc'!
+model:aModel
+super model:aModel.
+self getLabelFromModel.
+!
+labelMessage
+"return the symbol used to aquire the labelString/image from the model
+when the aspect changes.
+The default is nil, which means: leave the label unchanged."
+^ labelMsg
+!
+labelMessage:aSymbol
+"set the symbol used to aquire the labelString/image from the model.
+The default is nil, which means: leave the label unchanged."
+labelMsg ~~ aSymbol ifTrue:[
+	labelMsg := aSymbol.
+	self getLabelFromModel
+]
+!
+addModelInterfaceTo:aDictionary
+"see comment in View>>modelInterface"
+super addModelInterfaceTo:aDictionary.
+aDictionary at:#labelMessage put:labelMsg
+! !
 !Label methodsFor:'accessing'!
 foregroundColor:aColor
 "set the foreground color"
 "set the colors to be used for drawing"
 fgColor := fg on:device.
 bgColor := bg on:device.
 self redraw
-!
-labelMessage:aSymbol
-"set the symbol used to aquire the labelString/image from the model.
-The default is nil, which means: leave the label unchanged."
-labelMsg := aSymbol
 !
 labelString:aString
 "for ST-80 compatibility: same as #label:
 set the label-string; adjust extent if not already realized and not fixedSize"
 "return the logos width in pixels"
 ^ labelWidth
 !
+layout:how
+"for protocol compatibility: alias for #adjust:"
+self adjust:how
+!
+layout
+"for protocol compatibility: alias for #adjust"
+^ self adjust
+!
 adjust:how
 "set the adjust, how which must be one of
 #left        -> left adjust logo
 #right       -> right adjust logo
 	adjust := how.
 	self newLayout
 ]
 !
+adjust
+"return the adjust symbol"
+^ adjust
+!
 font:aFont
 "set the font - if I'm not realized and not fixedSize, adjust my size"
 (aFont ~~ font) ifTrue:[
 	super font:(aFont on:device).
 realize
 super realize.
 "/    fgColor := fgColor on:device.
 "/    bgColor := bgColor on:device.
-(model notNil
-and:[aspectMsg notNil]) ifTrue:[
-	self getLabelFromModel.
-]
 !
 initialize
 super initialize.
 Here, we use labelMsg.
 This allows multiple labels to react on the same aspect,
 but show different labels when changed (also, constant labels
 which have a nil labelMsg will not try to aquire a labelString)."
-|sym|
+(model notNil
+and:[labelMsg notNil]) ifTrue:[
-model notNil ifTrue:[
+	self label:(model perform:labelMsg) printString.
-	sym := labelMsg.
-"/        sym isNil ifTrue:[sym := aspect<sg].
-	sym notNil ifTrue:[
-	    self label:(model perform:sym) printString.
-	]
 ].
 !
 newLayout
 "recompute position/size after a change
 update:something with:aParameter from:changedObject
 "the MVC way of changing the label ..."
 changedObject == model ifTrue:[
 	something == aspectMsg ifTrue:[
-	    labelMsg notNil ifTrue:[
+	    self getLabelFromModel.
-		self getLabelFromModel.
-	    ].
 	    ^ self.
 	]
 ].
-super update:something
+^ super update:something with:aParameter from:changedObject
 ! !
 !Label methodsFor:'queries'!
 preferedExtent

changeset 125	3ffa271732f7
parent 118	3ee5ea99d0e2
child 128	06a050529335