equal
deleted
inserted
replaced
1581 !UISelectionPanel methodsFor:'change & update'! |
1581 !UISelectionPanel methodsFor:'change & update'! |
1582 |
1582 |
1583 update:something with:aParameter from:changedObject |
1583 update:something with:aParameter from:changedObject |
1584 "one of my models changed its value |
1584 "one of my models changed its value |
1585 " |
1585 " |
1586 |channel label| |
1586 |label| |
1587 |
1587 |
1588 (channel := self clientSpec) == changedObject ifTrue:[ |
1588 changedObject == self clientSpec ifTrue:[ |
1589 (label := channel value) notNil ifTrue:[ |
1589 (label := changedObject value) notNil ifTrue:[ |
1590 label := label name. |
1590 label := 'Widget Gallery: ' , label name. |
1591 ] ifFalse:[ |
1591 ] ifFalse:[ |
1592 label := 'Widget Gallery' |
1592 label := 'Widget Gallery' |
1593 ]. |
1593 ]. |
1594 builder window topView label:(label , ' ') |
1594 builder window topView label:(label , ' ') |
1595 ]. |
1595 ]. |