5 #include <libchimara/glk.h>
17 char stringbuffer[128];
20 /* Define some custom styles */
21 glk_stylehint_set(wintype_AllTypes, style_User1, stylehint_TextColor, 0x00FF0000);
23 mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
27 statuswin = glk_window_open(mainwin, winmethod_Above | winmethod_Fixed, 3, wintype_TextGrid, 1);
29 glk_set_window(mainwin);
31 char *buffer = calloc(256, sizeof(char));
34 glk_put_string("Welcome to the style test\n");
35 glk_request_line_event(mainwin, buffer, 255, 0);
36 while(strncmp(buffer, "quit", 4))
39 if(ev.type == evtype_LineInput)
41 if( !strncmp(buffer, "help", 4) ) {
44 else if( !strncmp(buffer, "style", 4) ) {
47 else if( !strncmp(buffer, "link", 4) ) {
50 else if( !strncmp(buffer, "mouse", 4) ) {
54 glk_put_string("Huh?\n");
56 glk_request_line_event(mainwin, buffer, 255, 0);
58 else if(ev.type == evtype_Hyperlink)
60 glk_cancel_line_event(mainwin, NULL);
61 snprintf(stringbuffer, 128, "Link %d was clicked\n", ev.val1);
62 glk_put_string(stringbuffer);
63 glk_request_line_event(mainwin, buffer, 255, 0);
65 else if(ev.type == evtype_MouseInput)
67 glk_cancel_line_event(mainwin, NULL);
68 snprintf(stringbuffer, 128, "Mouse click: x=%d, y=%d\n", ev.val1, ev.val2);
69 glk_put_string(stringbuffer);
70 glk_request_line_event(mainwin, buffer, 255, 0);
74 glk_cancel_line_event(mainwin, NULL);
75 glk_window_clear(mainwin);
81 glk_set_style(style_Normal);
82 glk_put_string("Normal\n");
84 glk_set_style(style_Emphasized);
85 glk_put_string("Emphasized\n");
87 glk_set_style(style_Preformatted);
88 glk_put_string("Preformatted\n");
90 glk_set_style(style_Header);
91 glk_put_string("Header\n");
93 glk_set_style(style_Subheader);
94 glk_put_string("Subheader\n");
96 glk_set_style(style_Alert);
97 glk_put_string("Alert\n");
99 glk_set_style(style_Note);
100 glk_put_string("Note\n");
102 glk_set_style(style_BlockQuote);
103 glk_put_string("BlockQuote\n");
105 glk_set_style(style_Input);
106 glk_put_string("Input\n");
108 glk_set_style(style_User1);
109 glk_put_string("User1\n");
111 glk_set_style(style_User2);
112 glk_put_string("User2\n");
114 glk_set_style(style_Normal);
119 glk_set_window(mainwin);
120 glk_set_hyperlink(1);
121 glk_put_string("This is link 1\n");
122 glk_set_hyperlink(2);
123 glk_put_string("This is link 2\n");
124 glk_set_hyperlink(0);
126 glk_set_window(statuswin);
127 glk_set_hyperlink(3);
128 glk_window_move_cursor(statuswin, 0, 0);
129 glk_put_string("This is link 3\n");
130 glk_set_hyperlink(4);
131 glk_window_move_cursor(statuswin, 0, 1);
132 glk_put_string("This is link 4\n");
133 glk_set_hyperlink(0);
135 glk_request_hyperlink_event(mainwin);
136 glk_request_hyperlink_event(statuswin);
138 glk_set_window(mainwin);
143 glk_set_window(statuswin);
144 glk_window_move_cursor(statuswin, 0, 0);
145 glk_put_string("Click me......\n");
146 glk_request_mouse_event(statuswin);
147 glk_set_window(mainwin);
152 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");