Initial revision
[ssr] / StraySrc / Libraries / Core / TearSupt / sh / tearSupt
1 ;
2 ; tearSupt.sh
3 ;
4 ; Tearoff support code
5 ;
6 ; © 1994-1998 Straylight
7 ;
8
9 ;----- Licensing note -------------------------------------------------------
10 ;
11 ; This file is part of Straylight's Tearoff Menu System (TMS), but it's
12 ; distributed with Straylight's core libraries (corelib).
13 ;
14 ; TMS is free software; you can redistribute it and/or modify
15 ; it under the terms of the GNU General Public License as published by
16 ; the Free Software Foundation; either version 2, or (at your option)
17 ; any later version.
18 ;
19 ; TMS is distributed in the hope that it will be useful,
20 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ; GNU General Public License for more details.
23 ;
24 ; You should have received a copy of the GNU General Public License
25 ; along with Corelib. If not, write to the Free Software Foundation,
26 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27
28 ; --- tearSupport_init ---
29 ;
30 ; On entry: --
31 ;
32 ; On exit: --
33 ;
34 ; Use: Initialises tearSupport
35
36 IMPORT tearSupport_init
37
38 ; --- tearSupport_opened ---
39 ;
40 ; On entry: R0 == task handle of task which opened tearoff menu
41 ;
42 ; On exit: --
43 ;
44 ; Use: Informs TearSupport that a transient tearoff menu has been
45 ; opened, and which task owns the menu.
46
47 IMPORT tearSupport_opened
48
49 ; --- tearSupport_closed ---
50 ;
51 ; On entry: --
52 ;
53 ; On exit: --
54 ;
55 ; Use: Informs TearSupport that the transient tearoff menu has been
56 ; closed, and that support is no longer required for it.
57
58 IMPORT tearSupport_closed
59
60 ; --- tearSupport_switch ---
61 ;
62 ; On entry: R0 == 1 to disable, 0 to enable trapping
63 ;
64 ; On exit: --
65 ;
66 ; Use: Enables or disables trapping of Wimp_CreateMenu while a
67 ; transient tearoff menu is open. This is intended to allow
68 ; use of Wimp_CreateMenu by the transient tearoff owner while
69 ; a transient tearoff is open (e.g. to close Wimp menus).
70
71 IMPORT tearSupport_switch
72
73 ;----- That's all, folks ----------------------------------------------------
74
75 END