5 #include <libchimara/glk.h>
17 char stringbuffer[128];
19 mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
23 statuswin = glk_window_open(mainwin, winmethod_Above | winmethod_Fixed, 3, wintype_TextGrid, 1);
25 glk_set_window(mainwin);
27 char *buffer = calloc(256, sizeof(char));
30 glk_put_string("Welcome to the style test\n");
32 glk_request_line_event(mainwin, buffer, 255, 0);
33 while(strncmp(buffer, "quit", 4))
36 if(ev.type == evtype_LineInput)
38 if( !strncmp(buffer, "help", 4) ) {
41 else if( !strncmp(buffer, "style", 4) ) {
44 else if( !strncmp(buffer, "link", 4) ) {
47 else if( !strncmp(buffer, "mouse", 4) ) {
51 glk_put_string("Huh?\n");
53 glk_request_line_event(mainwin, buffer, 255, 0);
55 else if(ev.type == evtype_Hyperlink)
57 glk_cancel_line_event(mainwin, NULL);
58 snprintf(stringbuffer, 128, "Link %d was clicked\n", ev.val1);
59 glk_put_string(stringbuffer);
60 glk_request_line_event(mainwin, buffer, 255, 0);
62 else if(ev.type == evtype_MouseInput)
64 glk_cancel_line_event(mainwin, NULL);
65 snprintf(stringbuffer, 128, "Mouse click: x=%d, y=%d\n", ev.val1, ev.val2);
66 glk_put_string(stringbuffer);
67 glk_request_line_event(mainwin, buffer, 255, 0);
71 glk_cancel_line_event(mainwin, NULL);
72 glk_window_clear(mainwin);
78 glk_set_style(style_Normal);
79 glk_put_string("Normal\n");
81 glk_set_style(style_Emphasized);
82 glk_put_string("Emphasized\n");
84 glk_set_style(style_Preformatted);
85 glk_put_string("Preformatted\n");
87 glk_set_style(style_Header);
88 glk_put_string("Header\n");
90 glk_set_style(style_Subheader);
91 glk_put_string("Subheader\n");
93 glk_set_style(style_Alert);
94 glk_put_string("Alert\n");
96 glk_set_style(style_Note);
97 glk_put_string("Note\n");
99 glk_set_style(style_BlockQuote);
100 glk_put_string("BlockQuote\n");
102 glk_set_style(style_Input);
103 glk_put_string("Input\n");
105 glk_set_style(style_User1);
106 glk_put_string("User1\n");
108 glk_set_style(style_User2);
109 glk_put_string("User2\n");
111 glk_set_style(style_Normal);
116 glk_set_window(mainwin);
117 glk_set_hyperlink(1);
118 glk_put_string("This is link 1\n");
119 glk_set_hyperlink(2);
120 glk_put_string("This is link 2\n");
121 glk_set_hyperlink(0);
123 glk_set_window(statuswin);
124 glk_set_hyperlink(3);
125 glk_window_move_cursor(statuswin, 0, 0);
126 glk_put_string("This is link 3\n");
127 glk_set_hyperlink(4);
128 glk_window_move_cursor(statuswin, 0, 1);
129 glk_put_string("This is link 4\n");
130 glk_set_hyperlink(0);
132 glk_request_hyperlink_event(mainwin);
133 glk_request_hyperlink_event(statuswin);
135 glk_set_window(mainwin);
140 glk_request_mouse_event(mainwin);
141 glk_request_mouse_event(statuswin);
146 glk_put_string("The following commands are supported:\n - help (this help text)\n - style (perform style test)\n - link (perform hyperlink test)\n - mouse (perform mouse test)\n - quit (quit the program)\n");