ClickMenuView.st
changeset 202 01f3cbb8e20e
parent 174 d80a6cc3f9b2
child 205 6814c0bf8df8
equal deleted inserted replaced
201:d2888811c664 202:01f3cbb8e20e
     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 
    12 
    13 MenuView subclass:#ClickMenuView
    13 MenuView subclass:#ClickMenuView
    14        instanceVariableNames:''
    14 	 instanceVariableNames:''
    15        classVariableNames:''
    15 	 classVariableNames:''
    16        poolDictionaries:''
    16 	 poolDictionaries:''
    17        category:'Views-Menus'
    17 	 category:'Views-Menus'
    18 !
    18 !
    19 
    19 
    20 !ClickMenuView class methodsFor:'documentation'!
    20 !ClickMenuView class methodsFor:'documentation'!
    21 
    21 
    22 copyright
    22 copyright
    29  inclusion of the above copyright notice.   This software may not
    29  inclusion of the above copyright notice.   This software may not
    30  be provided or otherwise made available to, or used by, any
    30  be provided or otherwise made available to, or used by, any
    31  other person.  No title to or ownership of the software is
    31  other person.  No title to or ownership of the software is
    32  hereby transferred.
    32  hereby transferred.
    33 "
    33 "
    34 !
       
    35 
       
    36 version
       
    37     ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.6 1995-11-11 16:19:18 cg Exp $'
       
    38 !
    34 !
    39 
    35 
    40 documentation
    36 documentation
    41 "
    37 "
    42     ClickMenuViews are like menuViews, but deselects automatically
    38     ClickMenuViews are like menuViews, but deselects automatically
    87     ).
    83     ).
    88     menu1 resize; open.
    84     menu1 resize; open.
    89     top add:menu1.
    85     top add:menu1.
    90     top openWithExtent:(menu1 extent).
    86     top openWithExtent:(menu1 extent).
    91 "
    87 "
       
    88 !
       
    89 
       
    90 version
       
    91     ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.7 1995-11-23 14:34:28 cg Exp $'
    92 ! !
    92 ! !
    93 
    93 
    94 !ClickMenuView methodsFor:'event handling'!
    94 !ClickMenuView methodsFor:'event handling'!
    95 
    95 
    96 buttonRelease:button x:x y:y
    96 buttonRelease:button x:x y:y
    97     super buttonRelease:button x:x y:y.
    97     super buttonRelease:button x:x y:y.
    98     self selection:nil
    98     self selection:nil
    99 ! !
    99 ! !
       
   100