SimpleView.st
changeset 8668 976bb82ebc0a
parent 8657 98885a2f2631
child 8672 f17d3237e820
equal deleted inserted replaced
8667:6b5cdd36a62f 8668:976bb82ebc0a
  1308 
  1308 
  1309     "Modified: / 24-11-2016 / 18:00:43 / cg"
  1309     "Modified: / 24-11-2016 / 18:00:43 / cg"
  1310 !
  1310 !
  1311 
  1311 
  1312 styleSheet
  1312 styleSheet
  1313     "return the view style sheet information (a dictionary)"
  1313     "return the view style sheet information (a dictionary).
       
  1314      Notice: returns a dummy styleSheet if headless"
  1314 
  1315 
  1315     StyleSheet isNil ifTrue:[
  1316     StyleSheet isNil ifTrue:[
  1316 	self updateAllStyleCaches.
  1317         self updateAllStyleCaches.
       
  1318         StyleSheet isNil ifTrue:[^ ViewStyle new].
  1317     ].
  1319     ].
  1318     ^ StyleSheet
  1320     ^ StyleSheet
  1319 
  1321 
  1320     "
  1322     "
  1321      View styleSheet
  1323      View styleSheet
  1322     "
  1324     "
  1323 
  1325 
  1324     "Modified: 9.1.1997 / 13:47:42 / cg"
  1326     "Modified: / 09-01-1997 / 13:47:42 / cg"
       
  1327     "Modified: / 27-03-2019 / 11:11:55 / Claus Gittinger"
  1325 !
  1328 !
  1326 
  1329 
  1327 styleSheet:aViewStyle
  1330 styleSheet:aViewStyle
  1328     "set the view style from a style-sheet"
  1331     "set the view style from a style-sheet"
  1329 
  1332