SimpleView.st
changeset 8217 ed76c62a1bd2
parent 8207 2d2335976051
child 8220 d3b0cba62407
equal deleted inserted replaced
8216:5e3ca2c2a0c5 8217:ed76c62a1bd2
  4176     "change the styleSheet. Knowledgable users only, please."
  4176     "change the styleSheet. Knowledgable users only, please."
  4177 
  4177 
  4178     styleSheet := aStyleSheet.
  4178     styleSheet := aStyleSheet.
  4179 !
  4179 !
  4180 
  4180 
  4181 uuid
       
  4182     "return my uuid (for the pollonium st/x capture/replay tool)"
       
  4183 
       
  4184     ^ uuid
       
  4185 !
       
  4186 
       
  4187 uuid:aUUID
       
  4188     "set my uuid (for the pollonium st/x capture/replay tool)"
       
  4189 
       
  4190     uuid := aUUID
       
  4191 !
       
  4192 
       
  4193 viewGravity
  4181 viewGravity
  4194     "return the viewGravity - that's the direction where the view will move
  4182     "return the viewGravity - that's the direction where the view will move
  4195      when the superView is resized."
  4183      when the superView is resized."
  4196 
  4184 
  4197     ^ viewGravity
  4185     ^ viewGravity