5 #include <libchimara/glk.h>
17 mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 0);
21 statuswin = glk_window_open(mainwin, winmethod_Above | winmethod_Fixed, 3, wintype_TextGrid, 1);
23 glk_set_window(mainwin);
25 char *buffer = calloc(256, sizeof(char));
28 glk_put_string("Welcome to the style test\n");
30 glk_request_line_event(mainwin, buffer, 255, 0);
31 while(strncmp(buffer, "quit", 4))
34 if(ev.type == evtype_LineInput)
36 if( !strncmp(buffer, "help", 4) ) {
39 else if( !strncmp(buffer, "style", 4) ) {
42 else if( !strncmp(buffer, "link", 4) ) {
46 glk_put_string("Huh?\n");
48 glk_request_line_event(mainwin, buffer, 255, 0);
50 else if(ev.type == evtype_Hyperlink)
52 glk_cancel_line_event(mainwin, NULL);
54 glk_put_string("Link 1 was clicked\n");
56 glk_put_string("Link 2 was clicked\n");
58 glk_put_string("Link 3 was clicked\n");
60 glk_put_string("Link 4 was clicked\n");
62 glk_request_line_event(mainwin, buffer, 255, 0);
66 glk_cancel_line_event(mainwin, NULL);
67 glk_window_clear(mainwin);
73 glk_set_style(style_Normal);
74 glk_put_string("Normal\n");
76 glk_set_style(style_Emphasized);
77 glk_put_string("Emphasized\n");
79 glk_set_style(style_Preformatted);
80 glk_put_string("Preformatted\n");
82 glk_set_style(style_Header);
83 glk_put_string("Header\n");
85 glk_set_style(style_Subheader);
86 glk_put_string("Subheader\n");
88 glk_set_style(style_Alert);
89 glk_put_string("Alert\n");
91 glk_set_style(style_Note);
92 glk_put_string("Note\n");
94 glk_set_style(style_BlockQuote);
95 glk_put_string("BlockQuote\n");
97 glk_set_style(style_Input);
98 glk_put_string("Input\n");
100 glk_set_style(style_User1);
101 glk_put_string("User1\n");
103 glk_set_style(style_User2);
104 glk_put_string("User2\n");
106 glk_set_style(style_Normal);
111 glk_set_window(mainwin);
112 glk_set_hyperlink(1);
113 glk_put_string("This is link 1\n");
114 glk_set_hyperlink(2);
115 glk_put_string("This is link 2\n");
116 glk_set_hyperlink(0);
118 glk_set_window(statuswin);
119 glk_set_hyperlink(3);
120 glk_window_move_cursor(statuswin, 0, 0);
121 glk_put_string("This is link 3\n");
122 glk_set_hyperlink(4);
123 glk_window_move_cursor(statuswin, 0, 1);
124 glk_put_string("This is link 4\n");
125 glk_set_hyperlink(0);
127 glk_request_hyperlink_event(mainwin);
128 glk_request_hyperlink_event(statuswin);
130 glk_set_window(mainwin);
135 glk_put_string("The following commands are supported:\n - help (this help text)\n - style (perform style test)\n - link (perform hyperlink test)\n - quit (quit the program)\n");