controlinternal.dcl 3.69 KB
Newer Older
Peter Achten's avatar
Peter Achten committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
definition module controlinternal


//	Clean Object I/O library, version 1.2


from	oswindow import OSWindowMetrics
import	wstate


enablecontrols		:: ![Id] !Bool               !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
disablecontrols		:: ![Id] !Bool               !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
15
setcontrolsshowstate:: ![Id] !Bool               !OSWindowMetrics !WIDS        !WindowHandle`           !*OSToolbox
Peter Achten's avatar
Peter Achten committed
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
setcontrolsmarkstate:: !Id !MarkState ![Index]   !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
setcontroltexts		:: ![(Id,String)]            !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
seteditcontrolcursor:: !Id !Int                  !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
setcontrolslook		:: ![(Id,Bool,(Bool,Look))]  !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
drawincontrol		:: !Id !.(St *Picture .x)    !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (!Maybe .x,!WindowHandle`,          !*OSToolbox)
setsliderstates		:: ![(Id,IdFun SliderState)] !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
selectradiocontrol	:: !Id !Index                !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
selectpopupitem		:: !Id !Index                !OSWindowMetrics !OSWindowPtr !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
openpopupitems		:: !Id !Index ![PopUpControlItem .pst]        !OSWindowPtr !(WindowHandle .ls .pst) !*OSToolbox
                                                                 -> (           !WindowHandle .ls .pst, !*OSToolbox)
closepopupitems		:: !Id ![Index]                               !OSWindowPtr !(WindowHandle .ls .pst) !*OSToolbox
                                                                 -> (           !WindowHandle .ls .pst, !*OSToolbox)
movecontrolviewframe:: !Id !Vector2              !OSWindowMetrics !WIDS        !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
setcontrolviewdomain:: !Id !ViewDomain           !OSWindowMetrics !WIDS        !WindowHandle`           !*OSToolbox
                                                                 -> (          !WindowHandle`,          !*OSToolbox)
setcontrolscrollfun	:: !Id !Direction ScrollFunction                           !WindowHandle`
                                                                 ->             WindowHandle`