UISelectionPanel.st
changeset 1587 91a7b38eb142
parent 1549 345226e6e7d2
child 1602 5a4a97678027
equal deleted inserted replaced
1586:613c56ad49d9 1587:91a7b38eb142
  1584 !UISelectionPanel methodsFor:'change & update'!
  1584 !UISelectionPanel methodsFor:'change & update'!
  1585 
  1585 
  1586 update:something with:aParameter from:changedObject
  1586 update:something with:aParameter from:changedObject
  1587     "one of my models changed its value
  1587     "one of my models changed its value
  1588     "
  1588     "
  1589     |channel label topView|
  1589     |channel label|
  1590 
  1590 
  1591     (channel := self clientSpec) == changedObject ifTrue:[
  1591     (channel := self clientSpec) == changedObject ifTrue:[
  1592         topView := builder window topView.
       
  1593 
       
  1594         (label := channel value) notNil ifTrue:[
  1592         (label := channel value) notNil ifTrue:[
  1595             topView label:label name, ' '.
  1593             label := label name.
  1596         ] ifFalse:[
  1594         ] ifFalse:[
  1597             topView label:'Widget Gallery '
  1595             label := 'Widget Gallery'
  1598         ]
  1596         ].
       
  1597         builder window topView label:(label , ' ')
  1599     ].
  1598     ].
  1600 
  1599 
  1601     super update:something with:aParameter from:changedObject.
  1600     super update:something with:aParameter from:changedObject.
  1602 
       
  1603 
       
  1604 ! !
  1601 ! !
  1605 
  1602 
  1606 !UISelectionPanel methodsFor:'drag & drop'!
  1603 !UISelectionPanel methodsFor:'drag & drop'!
  1607 
  1604 
  1608 canDrop:something in:aComponent
  1605 canDrop:something in:aComponent