WindowEvent.st
changeset 5275 3a10b5e7beef
parent 5249 5e4cad201723
child 5751 8f2955555565
equal deleted inserted replaced
5274:2c7e2cdd1a1a 5275:3a10b5e7beef
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libview' }"
    12 "{ Package: 'stx:libview' }"
    13 
    13 
    14 MessageSend subclass:#WindowEvent
    14 Event subclass:#WindowEvent
    15 	instanceVariableNames:'delegatedFrom consumed timeStamp'
    15 	instanceVariableNames:'delegatedFrom consumed'
    16 	classVariableNames:''
    16 	classVariableNames:''
    17 	poolDictionaries:''
    17 	poolDictionaries:''
    18 	category:'Interface-Support'
    18 	category:'Interface-Support-UI'
    19 !
    19 !
    20 
    20 
    21 WindowEvent subclass:#ApplicationEvent
    21 WindowEvent subclass:#ApplicationEvent
    22 	instanceVariableNames:''
    22 	instanceVariableNames:''
    23 	classVariableNames:''
    23 	classVariableNames:''
   639     "return the damage rectangle"
   639     "return the damage rectangle"
   640 
   640 
   641     ^ args "consider this a kludge"
   641     ^ args "consider this a kludge"
   642 !
   642 !
   643 
   643 
   644 target
       
   645     "return the target, for which the event is for"
       
   646 
       
   647     ^ receiver
       
   648 !
       
   649 
       
   650 target:anObject
       
   651     "set the target, for which the event is for"
       
   652 
       
   653     receiver := anObject
       
   654 !
       
   655 
       
   656 timeStamp
       
   657     ^ timeStamp
       
   658 !
       
   659 
       
   660 timeStamp:aTimestamp
       
   661     timeStamp := aTimestamp.
       
   662 !
       
   663 
       
   664 type
   644 type
   665     "return the type of the event"
   645     "return the type of the event"
   666 
   646 
   667     ^ selector
   647     ^ selector
   668 !
   648 !
  1640 ! !
  1620 ! !
  1641 
  1621 
  1642 !WindowEvent class methodsFor:'documentation'!
  1622 !WindowEvent class methodsFor:'documentation'!
  1643 
  1623 
  1644 version
  1624 version
  1645     ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.102 2009-05-09 05:09:22 cg Exp $'
  1625     ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.103 2009-06-01 08:43:01 cg Exp $'
  1646 ! !
  1626 ! !
  1647 
  1627 
  1648 WindowEvent::InputEvent initialize!
  1628 WindowEvent::InputEvent initialize!