Label.st
changeset 6606 97edccbfda90
parent 6577 03d26847c27b
child 6718 289912053d22
equal deleted inserted replaced
6605:0ce71c8c8ca2 6606:97edccbfda90
  1096         ]
  1096         ]
  1097     ] ifFalse:[
  1097     ] ifFalse:[
  1098         newLogo isStringCollection ifTrue:[
  1098         newLogo isStringCollection ifTrue:[
  1099             numberOfLines := newLogo size.
  1099             numberOfLines := newLogo size.
  1100             (numberOfLines <= 1) ifTrue:[
  1100             (numberOfLines <= 1) ifTrue:[
  1101                 newLogo := newLogo asString
  1101                 newLogo := newLogo asStringWithoutFinalCR
  1102             ]
  1102             ]
  1103         ]
  1103         ]
  1104     ].
  1104     ].
  1105 
  1105 
  1106     (newLogo ~~ logo) ifTrue:[
  1106     (newLogo ~~ logo) ifTrue:[
  1140         ].
  1140         ].
  1141     ]
  1141     ]
  1142 
  1142 
  1143     "Created: / 13-10-2010 / 12:16:34 / cg"
  1143     "Created: / 13-10-2010 / 12:16:34 / cg"
  1144     "Modified (format): / 13-02-2017 / 20:26:33 / cg"
  1144     "Modified (format): / 13-02-2017 / 20:26:33 / cg"
  1145     "Modified: / 08-05-2019 / 03:22:07 / Claus Gittinger"
  1145     "Modified: / 17-06-2019 / 19:16:54 / Claus Gittinger"
  1146 !
  1146 !
  1147 
  1147 
  1148 label:newLabel suppressResize:suppress
  1148 label:newLabel suppressResize:suppress
  1149     "change the label and optionally suppress a resize operation"
  1149     "change the label and optionally suppress a resize operation"
  1150 
  1150