4 * [Generated from slider, 08 November 1995]
7 #pragma include_only_once
8 #pragma force_top_level
13 /*----- Overview ----------------------------------------------------------*
26 * Control data: +0 == slider colour (if flags bit 9 clear)
27 * +1 == background colour
28 * +2 == separator colour
30 * +4 == maximum slider value
33 * Workspace: +0 == current slider value
34 * +4 == slider colour (if flags bit 9 set)
35 * +5 == reserved, must be 0
38 * Flags: Bit 8 == slider is horizontal if clear, vertical is set
40 * Use: Control type for a slider.
43 extern routine slider;
45 /*----- Macros and symbols ------------------------------------------------*/
47 /* --- Direction flags --- */
49 #define slFlag_vertical ((1<<8))
50 #define slFlag_horizontal (0)
51 #define slFlag_colData ((1<<9))
53 /* --- Slider event codes --- */
55 #define slider_event (0x80000001)
57 #define slider_sliding (0)
58 #define slider_slid (1)
60 /*----- That's all, folks -------------------------------------------------*/