equal
deleted
inserted
replaced
1973 recv := tab model |
1973 recv := tab model |
1974 ]. |
1974 ]. |
1975 recv notNil ifTrue:[ |
1975 recv notNil ifTrue:[ |
1976 menu receiver:recv |
1976 menu receiver:recv |
1977 ] ifFalse:[ |
1977 ] ifFalse:[ |
1978 Transcript showCR:('%1 : Menu has no receiver' bindWith:(self class name)). |
1978 Transcript showCR:('%1 : Menu has no receiver' bindWith:(self className)). |
1979 ] |
1979 ] |
1980 ]. |
1980 ]. |
1981 self startUpMenu:menu |
1981 self startUpMenu:menu |
|
1982 |
|
1983 "Modified: / 28-06-2019 / 09:05:37 / Claus Gittinger" |
1982 ! |
1984 ! |
1983 |
1985 |
1984 buttonRelease:button x:x y:y |
1986 buttonRelease:button x:x y:y |
1985 "a button is released; see if it's the destroyTab button" |
1987 "a button is released; see if it's the destroyTab button" |
1986 |tab idx isDestroyAction| |
1988 |tab idx isDestroyAction| |