UIPainter.st
changeset 3538 54b79608c60d
parent 3518 0a2d22e2e0e4
child 3539 dc215e6be73a
equal deleted inserted replaced
3537:6aacb49f2f25 3538:54b79608c60d
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1995-1998 by eXept Software AG
     2  COPYRIGHT (c) 1995-1998 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  4911     self autoAcceptOnSelectionChange value ifTrue:[
  4909     self autoAcceptOnSelectionChange value ifTrue:[
  4912         (builder componentAt:'acceptButton') label:(resources string:'Apply')
  4910         (builder componentAt:'acceptButton') label:(resources string:'Apply')
  4913     ].
  4911     ].
  4914 
  4912 
  4915     "/ using masters infoHolder ?
  4913     "/ using masters infoHolder ?
  4916     (builder aspectAt:#useAlienInfoLabelHolder) == true ifTrue:[
  4914     self useAlienInfoLabelHolder ifTrue:[
  4917         (builder componentAt:#mainPanel) layout bottomOffset:0.
  4915         (builder componentAt:#mainPanel) layout bottomOffset:0.
  4918         (builder componentAt:#infoBarSubSpec) beInvisible
  4916         (builder componentAt:#infoBarSubSpec) beInvisible
  4919     ].
  4917     ].
  4920 
  4918 
  4921     self updateInfoLabel.
  4919     self updateInfoLabel.
  4922 
  4920 
  4923     "Modified: / 31-08-2006 / 10:12:53 / cg"
  4921     "Modified: / 31-08-2006 / 10:12:53 / cg"
       
  4922     "Modified: / 20-02-2018 / 13:04:34 / stefan"
  4924 !
  4923 !
  4925 
  4924 
  4926 loadFromClass:aClass andSelector:selector
  4925 loadFromClass:aClass andSelector:selector
  4927     "loads a window spec by evaluating aMessageString
  4926     "loads a window spec by evaluating aMessageString
  4928      (which is something like 'fooClass windowSpec')"
  4927      (which is something like 'fooClass windowSpec')"