archive/guilib/dialog_riscos.c

/*
 *  dialog_riscos.c -- dialog creation, RISC OS
 */

#include "gui.h"

/****************************************************************************************/
/*  Dialog creation functions                                                           */
/****************************************************************************************/

#define DIALOG_ICON_CHUNK 10
#define DIALOG_NONE 0xffffffff

static gui_window_id dialog_id = DIALOG_NONE;
static wimp_window *dialog_block;
static int dialog_block_icons;
static int dialog_icons;
static int dialog_y;
static int dialog_x;
static struct gui_dialog_icon *dialog_icon;

/*
 *  gui_start_dialog -- start creating a dialogue window
 *
 *  => title -- window title
 *
 *  <= nothing
 */

void gui_start_dialog(char *title, unsigned int width,
      bool close, const char *help)
{
  assert(dialog_id == DIALOG_NONE);

  #ifdef DEBUG
  printf("gui_start_dialog: title = '%s'\n", title);
  fflush(stdout);
  #endif

  dialog_id = gui_get_free_window_id();

  dialog_block_icons = DIALOG_ICON_CHUNK;
  dialog_icons = 0;
  dialog_y = 4;
  dialog_x = width;

  dialog_icon = malloc(dialog_block_icons * sizeof(struct gui_dialog_icon));
  if (!dialog_icon) gui_raise_error("memory");

  dialog_block = malloc(wimp_SIZEOF_WINDOW(dialog_block_icons));
  if (!dialog_block) gui_raise_error("memory");

  dialog_block->flags = wimp_WINDOW_MOVEABLE | wimp_WINDOW_AUTO_REDRAW |
      wimp_WINDOW_NEW_FORMAT | wimp_WINDOW_BACK_ICON | wimp_WINDOW_TITLE_ICON |
      (close ? wimp_WINDOW_CLOSE_ICON : 0);
  dialog_block->title_fg = wimp_COLOUR_BLACK;
  dialog_block->title_bg = wimp_COLOUR_LIGHT_GREY;
  dialog_block->work_fg = wimp_COLOUR_BLACK;
  dialog_block->work_bg = wimp_COLOUR_VERY_LIGHT_GREY;
  dialog_block->highlight_bg = wimp_COLOUR_CREAM;
  dialog_block->extent.x0 = dialog_block->extent.y1 = 0;
  dialog_block->extent.x1 = width;
  dialog_block->title_flags = wimp_ICON_TEXT | wimp_ICON_HCENTRED | wimp_ICON_VCENTRED |
      wimp_ICON_INDIRECTED;
  dialog_block->work_flags = 0;
  dialog_block->sprite_area = (osspriteop_area *) 1;
  dialog_block->xmin = dialog_block->ymin = 1;
  dialog_block->title_data.indirected_text.text = title;
  dialog_block->title_data.indirected_text.validation = 0;

  gui_window_list[dialog_id].title = title;
  gui_window_list[dialog_id].help = help;
}


/*
 *  gui_create_dialog -- finish creating and open a dialogue window
 *
 *  => nothing
 *
 *  <= window id
 */

gui_window_id gui_create_dialog()
{
  gui_window_id id = dialog_id;
  wimp_w handle;
  wimp_open open;

  assert(dialog_id != DIALOG_NONE);

  dialog_y += 4;

  dialog_block->extent.y0 = -dialog_y;
  dialog_block->icon_count = dialog_icons;

  gui_error = xwimp_create_window(dialog_block, &handle);
  gui_check_error();

  gui_window_list[dialog_id].used = DIALOG;
  gui_window_list[dialog_id].handle = handle;
  gui_window_list[dialog_id].close_fn = gui_remove_window;
  gui_window_list[dialog_id].redraw_fn = NULL;
  gui_window_list[dialog_id].click_fn = NULL;
  gui_window_list[dialog_id].resize_fn = NULL;
  gui_window_list[dialog_id].key_fn = NULL;
  gui_window_list[dialog_id].input_fn = NULL;
  gui_window_list[dialog_id].menu_fn = NULL;
  gui_window_list[dialog_id].width = dialog_block->extent.x1;
  gui_window_list[dialog_id].height = dialog_y;
  gui_window_list[dialog_id].menu = NULL;
  gui_window_list[dialog_id].icon = dialog_icon;

  free(dialog_block);

  open.w = handle;
  open.visible.x0 = open.visible.y0 = 300;
  open.visible.x1 = 300 + gui_window_list[dialog_id].width;
  open.visible.y1 = 300 + dialog_y;
  open.xscroll = open.yscroll = 0;
  open.next = wimp_TOP;
  gui_error = xwimp_open_window(&open);
  gui_check_error();

  dialog_id = DIALOG_NONE;

  #ifdef DEBUG
  printf("gui_create_dialog: id = 0x%x, handle = 0x%x\n", dialog_id,
        (unsigned int) handle);
  fflush(stdout);
  #endif

  return id;
}


/*
 *  ensure_dialog_space -- allocate memory for icons if necessary
 *
 *  => nothing
 *
 *  <= nothing
 */

void ensure_dialog_space(void)
{
  if (dialog_icons == dialog_block_icons)
  {
    dialog_block_icons += DIALOG_ICON_CHUNK;
    dialog_block = realloc(dialog_block, wimp_SIZEOF_WINDOW(dialog_block_icons));
    dialog_icon = realloc(dialog_icon, dialog_block_icons * sizeof(struct gui_dialog_icon));
    if (!dialog_block || !dialog_icon)
    {
/*      free(dialog_block);*/
      dialog_id = DIALOG_NONE;
      gui_raise_error("memory");
    }
  }
}


/*
 *  gui_create_label -- create a text label
 *
 *  => text -- label text
 *
 *  <= nothing
 */

void gui_create_label(char *text, const char *help)
{
  assert(dialog_id != DIALOG_NONE);

  #ifdef DEBUG
  printf("gui_create_label: text = '%s'\n", text);
  fflush(stdout);
  #endif

  ensure_dialog_space();

  dialog_block->icons[dialog_icons].extent.x0 = 0;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 52);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1;
  dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_HCENTRED |
      wimp_ICON_VCENTRED | wimp_ICON_INDIRECTED |
      wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT |
      wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
      wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
  dialog_block->icons[dialog_icons].data.indirected_text.text = text;
  dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;

  dialog_icon[dialog_icons].type = ICON_NONE;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;
  dialog_y += 52;
}


/*
 *  gui_create_text_box -- create a labelled writeable text box
 *
 *  => text -- label text
 *     mask -- entry mask (eg. '0-9' etc)
 *
 *  <= gadget id
 *     0 if an error occurred
 */

gui_gadget_id gui_create_text_box(char *text, const char *mask, const char *help)
{
  assert(dialog_id != DIALOG_NONE);

  #ifdef DEBUG
  printf("gui_create_text_box: text = '%s', mask = '%s'\n", text, mask);
  fflush(stdout);
  #endif

  ensure_dialog_space();

  dialog_block->icons[dialog_icons].extent.x0 = 0;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 60);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 * 0.25;
  dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_RJUSTIFIED |
       wimp_ICON_VCENTRED | wimp_ICON_INDIRECTED |
       wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT |
       wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
       wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
  dialog_block->icons[dialog_icons].data.indirected_text.text = text;
  dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;

  dialog_icon[dialog_icons].type = ICON_NONE;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;

  ensure_dialog_space();

  dialog_block->icons[dialog_icons].extent.x0 = dialog_block->extent.x1 * 0.25;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 56);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 - 8;
  dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y + 4);
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_VCENTRED |
      wimp_ICON_INDIRECTED | wimp_ICON_BORDER | wimp_ICON_FILLED |
      wimp_BUTTON_WRITABLE << wimp_ICON_BUTTON_TYPE_SHIFT |
      wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
      wimp_COLOUR_WHITE << wimp_ICON_BG_COLOUR_SHIFT;
  if (!(dialog_block->icons[dialog_icons].data.indirected_text.text = calloc(20, 1)))
  {
    free(dialog_block);
    dialog_id = DIALOG_NONE;
    gui_raise_error("memory");
  }
  dialog_block->icons[dialog_icons].data.indirected_text.validation = (char *) "kta;pptr_write,4,4";
  dialog_block->icons[dialog_icons].data.indirected_text.size = 20;

  dialog_icon[dialog_icons].type = ICON_NONE;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;
  dialog_y += 60;

  return (gui_gadget_id) dialog_icons - 1;
}


/*
 *  gui_create_text_box -- create a labelled display text box
 *
 *  => text -- label text
 *     value -- display text
 *
 *  <= gadget id
 *     0 if an error occurred
 */

gui_gadget_id gui_create_display_box(char *text, char *value, const char *help)
{
  assert(dialog_id != DIALOG_NONE);

  #ifdef DEBUG
  printf("gui_create_display_box: text = '%s'\n", text);
  fflush(stdout);
  #endif

  ensure_dialog_space();

  dialog_block->icons[dialog_icons].extent.x0 = 0;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 60);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 * 0.25;
  dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_RJUSTIFIED |
       wimp_ICON_VCENTRED | wimp_ICON_INDIRECTED |
       wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT |
       wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
       wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
  dialog_block->icons[dialog_icons].data.indirected_text.text = text;
  dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;

  dialog_icon[dialog_icons].type = ICON_NONE;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;

  ensure_dialog_space();

  dialog_block->icons[dialog_icons].extent.x0 = dialog_block->extent.x1 * 0.25;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 56);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 - 8;
  dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y + 4);
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_VCENTRED |
      wimp_ICON_INDIRECTED | wimp_ICON_BORDER | wimp_ICON_FILLED |
      wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT |
      wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
      wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
  dialog_block->icons[dialog_icons].data.indirected_text.text = value;
  dialog_block->icons[dialog_icons].data.indirected_text.validation = (char *) "r2";
  dialog_block->icons[dialog_icons].data.indirected_text.size = 20;

  dialog_icon[dialog_icons].type = ICON_NONE;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;
  dialog_y += 60;

  return (gui_gadget_id) dialog_icons - 1;
}


/*
 *  gui_create_button -- create an action button
 *
 *  => text -- button text
 *     click_fn -- function called when button is clicked
 *
 *  <= nothing
 */

void gui_create_button(char *text, void (*click_fn)(gui_window_id window_id, gui_gadget_id gadget_id), const char *help)
{
  unsigned const int border = (dialog_x == dialog_block->extent.x1 ? 8 : 0);

  assert(dialog_id != DIALOG_NONE);

  #ifdef DEBUG
  printf("gui_create_button: text = '%s'\n", text);
  fflush(stdout);
  #endif

  ensure_dialog_space();

  if (dialog_x == dialog_block->extent.x1) dialog_y += 84;

  dialog_block->icons[dialog_icons].extent.x0 = dialog_x - 140 - border * 2;
  dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y - 16 + border);
  dialog_block->icons[dialog_icons].extent.x1 = dialog_x - 8;
  dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y - 68 - border);
  dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT | wimp_ICON_HCENTRED |
      wimp_ICON_VCENTRED | wimp_ICON_INDIRECTED | wimp_ICON_BORDER | wimp_ICON_FILLED |
      wimp_BUTTON_CLICK << wimp_ICON_BUTTON_TYPE_SHIFT |
      wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT |
      wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
  dialog_block->icons[dialog_icons].data.indirected_text.text = text;
  dialog_block->icons[dialog_icons].data.indirected_text.validation =
      (dialog_x == dialog_block->extent.x1 ? (char *) "r6,3" : (char *) "r5,3");

  dialog_icon[dialog_icons].type = ICON_ACTION;
  dialog_icon[dialog_icons].click_fn = click_fn;
  dialog_icon[dialog_icons].help = help;

  dialog_icons++;
  dialog_x -= 140 + border * 2;
}
1	/*
2	* dialog_riscos.c -- dialog creation, RISC OS
3	*/
4
5	#include "gui.h"
6
7	/****************************************************************************************/
8	/* Dialog creation functions */
9	/****************************************************************************************/
10
11	#define DIALOG_ICON_CHUNK 10
12	#define DIALOG_NONE 0xffffffff
13
14	static gui_window_id dialog_id = DIALOG_NONE;
15	static wimp_window *dialog_block;
16	static int dialog_block_icons;
17	static int dialog_icons;
18	static int dialog_y;
19	static int dialog_x;
20	static struct gui_dialog_icon *dialog_icon;
21
22	/*
23	* gui_start_dialog -- start creating a dialogue window
24	*
25	* => title -- window title
26	*
27	* <= nothing
28	*/
29
30	void gui_start_dialog(char *title, unsigned int width,
31	bool close, const char *help)
32	{
33	assert(dialog_id == DIALOG_NONE);
34
35	#ifdef DEBUG
36	printf("gui_start_dialog: title = '%s'\n", title);
37	fflush(stdout);
38	#endif
39
40	dialog_id = gui_get_free_window_id();
41
42	dialog_block_icons = DIALOG_ICON_CHUNK;
43	dialog_icons = 0;
44	dialog_y = 4;
45	dialog_x = width;
46
47	dialog_icon = malloc(dialog_block_icons * sizeof(struct gui_dialog_icon));
48	if (!dialog_icon) gui_raise_error("memory");
49
50	dialog_block = malloc(wimp_SIZEOF_WINDOW(dialog_block_icons));
51	if (!dialog_block) gui_raise_error("memory");
52
53	dialog_block->flags = wimp_WINDOW_MOVEABLE \| wimp_WINDOW_AUTO_REDRAW \|
54	wimp_WINDOW_NEW_FORMAT \| wimp_WINDOW_BACK_ICON \| wimp_WINDOW_TITLE_ICON \|
55	(close ? wimp_WINDOW_CLOSE_ICON : 0);
56	dialog_block->title_fg = wimp_COLOUR_BLACK;
57	dialog_block->title_bg = wimp_COLOUR_LIGHT_GREY;
58	dialog_block->work_fg = wimp_COLOUR_BLACK;
59	dialog_block->work_bg = wimp_COLOUR_VERY_LIGHT_GREY;
60	dialog_block->highlight_bg = wimp_COLOUR_CREAM;
61	dialog_block->extent.x0 = dialog_block->extent.y1 = 0;
62	dialog_block->extent.x1 = width;
63	dialog_block->title_flags = wimp_ICON_TEXT \| wimp_ICON_HCENTRED \| wimp_ICON_VCENTRED \|
64	wimp_ICON_INDIRECTED;
65	dialog_block->work_flags = 0;
66	dialog_block->sprite_area = (osspriteop_area *) 1;
67	dialog_block->xmin = dialog_block->ymin = 1;
68	dialog_block->title_data.indirected_text.text = title;
69	dialog_block->title_data.indirected_text.validation = 0;
70
71	gui_window_list[dialog_id].title = title;
72	gui_window_list[dialog_id].help = help;
73	}
74
75
76	/*
77	* gui_create_dialog -- finish creating and open a dialogue window
78	*
79	* => nothing
80	*
81	* <= window id
82	*/
83
84	gui_window_id gui_create_dialog()
85	{
86	gui_window_id id = dialog_id;
87	wimp_w handle;
88	wimp_open open;
89
90	assert(dialog_id != DIALOG_NONE);
91
92	dialog_y += 4;
93
94	dialog_block->extent.y0 = -dialog_y;
95	dialog_block->icon_count = dialog_icons;
96
97	gui_error = xwimp_create_window(dialog_block, &handle);
98	gui_check_error();
99
100	gui_window_list[dialog_id].used = DIALOG;
101	gui_window_list[dialog_id].handle = handle;
102	gui_window_list[dialog_id].close_fn = gui_remove_window;
103	gui_window_list[dialog_id].redraw_fn = NULL;
104	gui_window_list[dialog_id].click_fn = NULL;
105	gui_window_list[dialog_id].resize_fn = NULL;
106	gui_window_list[dialog_id].key_fn = NULL;
107	gui_window_list[dialog_id].input_fn = NULL;
108	gui_window_list[dialog_id].menu_fn = NULL;
109	gui_window_list[dialog_id].width = dialog_block->extent.x1;
110	gui_window_list[dialog_id].height = dialog_y;
111	gui_window_list[dialog_id].menu = NULL;
112	gui_window_list[dialog_id].icon = dialog_icon;
113
114	free(dialog_block);
115
116	open.w = handle;
117	open.visible.x0 = open.visible.y0 = 300;
118	open.visible.x1 = 300 + gui_window_list[dialog_id].width;
119	open.visible.y1 = 300 + dialog_y;
120	open.xscroll = open.yscroll = 0;
121	open.next = wimp_TOP;
122	gui_error = xwimp_open_window(&open);
123	gui_check_error();
124
125	dialog_id = DIALOG_NONE;
126
127	#ifdef DEBUG
128	printf("gui_create_dialog: id = 0x%x, handle = 0x%x\n", dialog_id,
129	(unsigned int) handle);
130	fflush(stdout);
131	#endif
132
133	return id;
134	}
135
136
137	/*
138	* ensure_dialog_space -- allocate memory for icons if necessary
139	*
140	* => nothing
141	*
142	* <= nothing
143	*/
144
145	void ensure_dialog_space(void)
146	{
147	if (dialog_icons == dialog_block_icons)
148	{
149	dialog_block_icons += DIALOG_ICON_CHUNK;
150	dialog_block = realloc(dialog_block, wimp_SIZEOF_WINDOW(dialog_block_icons));
151	dialog_icon = realloc(dialog_icon, dialog_block_icons * sizeof(struct gui_dialog_icon));
152	if (!dialog_block \|\| !dialog_icon)
153	{
154	/* free(dialog_block);*/
155	dialog_id = DIALOG_NONE;
156	gui_raise_error("memory");
157	}
158	}
159	}
160
161
162	/*
163	* gui_create_label -- create a text label
164	*
165	* => text -- label text
166	*
167	* <= nothing
168	*/
169
170	void gui_create_label(char text, const char help)
171	{
172	assert(dialog_id != DIALOG_NONE);
173
174	#ifdef DEBUG
175	printf("gui_create_label: text = '%s'\n", text);
176	fflush(stdout);
177	#endif
178
179	ensure_dialog_space();
180
181	dialog_block->icons[dialog_icons].extent.x0 = 0;
182	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 52);
183	dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1;
184	dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
185	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_HCENTRED \|
186	wimp_ICON_VCENTRED \| wimp_ICON_INDIRECTED \|
187	wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT \|
188	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
189	wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
190	dialog_block->icons[dialog_icons].data.indirected_text.text = text;
191	dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;
192
193	dialog_icon[dialog_icons].type = ICON_NONE;
194	dialog_icon[dialog_icons].help = help;
195
196	dialog_icons++;
197	dialog_y += 52;
198	}
199
200
201	/*
202	* gui_create_text_box -- create a labelled writeable text box
203	*
204	* => text -- label text
205	* mask -- entry mask (eg. '0-9' etc)
206	*
207	* <= gadget id
208	* 0 if an error occurred
209	*/
210
211	gui_gadget_id gui_create_text_box(char text, const char mask, const char *help)
212	{
213	assert(dialog_id != DIALOG_NONE);
214
215	#ifdef DEBUG
216	printf("gui_create_text_box: text = '%s', mask = '%s'\n", text, mask);
217	fflush(stdout);
218	#endif
219
220	ensure_dialog_space();
221
222	dialog_block->icons[dialog_icons].extent.x0 = 0;
223	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 60);
224	dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 * 0.25;
225	dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
226	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_RJUSTIFIED \|
227	wimp_ICON_VCENTRED \| wimp_ICON_INDIRECTED \|
228	wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT \|
229	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
230	wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
231	dialog_block->icons[dialog_icons].data.indirected_text.text = text;
232	dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;
233
234	dialog_icon[dialog_icons].type = ICON_NONE;
235	dialog_icon[dialog_icons].help = help;
236
237	dialog_icons++;
238
239	ensure_dialog_space();
240
241	dialog_block->icons[dialog_icons].extent.x0 = dialog_block->extent.x1 * 0.25;
242	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 56);
243	dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 - 8;
244	dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y + 4);
245	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_VCENTRED \|
246	wimp_ICON_INDIRECTED \| wimp_ICON_BORDER \| wimp_ICON_FILLED \|
247	wimp_BUTTON_WRITABLE << wimp_ICON_BUTTON_TYPE_SHIFT \|
248	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
249	wimp_COLOUR_WHITE << wimp_ICON_BG_COLOUR_SHIFT;
250	if (!(dialog_block->icons[dialog_icons].data.indirected_text.text = calloc(20, 1)))
251	{
252	free(dialog_block);
253	dialog_id = DIALOG_NONE;
254	gui_raise_error("memory");
255	}
256	dialog_block->icons[dialog_icons].data.indirected_text.validation = (char *) "kta;pptr_write,4,4";
257	dialog_block->icons[dialog_icons].data.indirected_text.size = 20;
258
259	dialog_icon[dialog_icons].type = ICON_NONE;
260	dialog_icon[dialog_icons].help = help;
261
262	dialog_icons++;
263	dialog_y += 60;
264
265	return (gui_gadget_id) dialog_icons - 1;
266	}
267
268
269	/*
270	* gui_create_text_box -- create a labelled display text box
271	*
272	* => text -- label text
273	* value -- display text
274	*
275	* <= gadget id
276	* 0 if an error occurred
277	*/
278
279	gui_gadget_id gui_create_display_box(char text, char value, const char *help)
280	{
281	assert(dialog_id != DIALOG_NONE);
282
283	#ifdef DEBUG
284	printf("gui_create_display_box: text = '%s'\n", text);
285	fflush(stdout);
286	#endif
287
288	ensure_dialog_space();
289
290	dialog_block->icons[dialog_icons].extent.x0 = 0;
291	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 60);
292	dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 * 0.25;
293	dialog_block->icons[dialog_icons].extent.y1 = -dialog_y;
294	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_RJUSTIFIED \|
295	wimp_ICON_VCENTRED \| wimp_ICON_INDIRECTED \|
296	wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT \|
297	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
298	wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
299	dialog_block->icons[dialog_icons].data.indirected_text.text = text;
300	dialog_block->icons[dialog_icons].data.indirected_text.validation = 0;
301
302	dialog_icon[dialog_icons].type = ICON_NONE;
303	dialog_icon[dialog_icons].help = help;
304
305	dialog_icons++;
306
307	ensure_dialog_space();
308
309	dialog_block->icons[dialog_icons].extent.x0 = dialog_block->extent.x1 * 0.25;
310	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y + 56);
311	dialog_block->icons[dialog_icons].extent.x1 = dialog_block->extent.x1 - 8;
312	dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y + 4);
313	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_VCENTRED \|
314	wimp_ICON_INDIRECTED \| wimp_ICON_BORDER \| wimp_ICON_FILLED \|
315	wimp_BUTTON_NEVER << wimp_ICON_BUTTON_TYPE_SHIFT \|
316	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
317	wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
318	dialog_block->icons[dialog_icons].data.indirected_text.text = value;
319	dialog_block->icons[dialog_icons].data.indirected_text.validation = (char *) "r2";
320	dialog_block->icons[dialog_icons].data.indirected_text.size = 20;
321
322	dialog_icon[dialog_icons].type = ICON_NONE;
323	dialog_icon[dialog_icons].help = help;
324
325	dialog_icons++;
326	dialog_y += 60;
327
328	return (gui_gadget_id) dialog_icons - 1;
329	}
330
331
332	/*
333	* gui_create_button -- create an action button
334	*
335	* => text -- button text
336	* click_fn -- function called when button is clicked
337	*
338	* <= nothing
339	*/
340
341	void gui_create_button(char text, void (click_fn)(gui_window_id window_id, gui_gadget_id gadget_id), const char *help)
342	{
343	unsigned const int border = (dialog_x == dialog_block->extent.x1 ? 8 : 0);
344
345	assert(dialog_id != DIALOG_NONE);
346
347	#ifdef DEBUG
348	printf("gui_create_button: text = '%s'\n", text);
349	fflush(stdout);
350	#endif
351
352	ensure_dialog_space();
353
354	if (dialog_x == dialog_block->extent.x1) dialog_y += 84;
355
356	dialog_block->icons[dialog_icons].extent.x0 = dialog_x - 140 - border * 2;
357	dialog_block->icons[dialog_icons].extent.y0 = -(dialog_y - 16 + border);
358	dialog_block->icons[dialog_icons].extent.x1 = dialog_x - 8;
359	dialog_block->icons[dialog_icons].extent.y1 = -(dialog_y - 68 - border);
360	dialog_block->icons[dialog_icons].flags = wimp_ICON_TEXT \| wimp_ICON_HCENTRED \|
361	wimp_ICON_VCENTRED \| wimp_ICON_INDIRECTED \| wimp_ICON_BORDER \| wimp_ICON_FILLED \|
362	wimp_BUTTON_CLICK << wimp_ICON_BUTTON_TYPE_SHIFT \|
363	wimp_COLOUR_BLACK << wimp_ICON_FG_COLOUR_SHIFT \|
364	wimp_COLOUR_VERY_LIGHT_GREY << wimp_ICON_BG_COLOUR_SHIFT;
365	dialog_block->icons[dialog_icons].data.indirected_text.text = text;
366	dialog_block->icons[dialog_icons].data.indirected_text.validation =
367	(dialog_x == dialog_block->extent.x1 ? (char ) "r6,3" : (char ) "r5,3");
368
369	dialog_icon[dialog_icons].type = ICON_ACTION;
370	dialog_icon[dialog_icons].click_fn = click_fn;
371	dialog_icon[dialog_icons].help = help;
372
373	dialog_icons++;
374	dialog_x -= 140 + border * 2;
375	}