PopUpMenu.st
changeset 6481 994b339d8f80
parent 6244 a24a9a3fbc7f
child 6600 9a4a44808e01
equal deleted inserted replaced
6480:aca1305c31ea 6481:994b339d8f80
  1263      CAVEAT: with the addition of Text objects,
  1263      CAVEAT: with the addition of Text objects,
  1264              this method is going to be obsoleted by a textStyle
  1264              this method is going to be obsoleted by a textStyle
  1265              method, which allows specific control over
  1265              method, which allows specific control over
  1266              normalFont/boldFont/italicFont parameters."
  1266              normalFont/boldFont/italicFont parameters."
  1267 
  1267 
  1268     preferredExtent := nil.
  1268     self flushCachedPreferredExtent.
  1269     menuView font:aFont
  1269     menuView font:aFont
  1270 
  1270 
  1271     "Modified: 22.5.1996 / 12:36:53 / cg"
  1271     "Modified: / 22-05-1996 / 12:36:53 / cg"
       
  1272     "Modified: / 09-11-2018 / 20:17:43 / Claus Gittinger"
  1272 !
  1273 !
  1273 
  1274 
  1274 viewBackground:aColor
  1275 viewBackground:aColor
  1275     "this is a kludge and will vanish ..."
  1276     "this is a kludge and will vanish ..."
  1276 
  1277