Box__Routine (lines 5816-5851)
Back to List
Browsing parserm.h
5816 [ Box__Routine maxwid arr ix lines lastnl parwin;
5817 maxwid = 0; ! squash compiler warning
5818 lines = arr-->0;
5819
5820 if (gg_quotewin == 0) {
5821 gg_arguments-->0 = lines;
5822 ix = InitGlkWindow(GG_QUOTEWIN_ROCK);
5823 if (ix == 0)
5824 gg_quotewin = glk($0023, gg_mainwin, $12, lines, 3,
5825 GG_QUOTEWIN_ROCK); ! window_open
5826 }
5827 else {
5828 parwin = glk($0029, gg_quotewin); ! window_get_parent
5829 glk($0026, parwin, $12, lines, 0); ! window_set_arrangement
5830 }
5831
5832 lastnl = true;
5833 if (gg_quotewin) {
5834 glk($002A, gg_quotewin); ! window_clear
5835 glk($002F, gg_quotewin); ! set_window
5836 lastnl = false;
5837 }
5838
5839 ! If gg_quotewin is zero here, the quote just appears in the story window.
5840
5841 glk($0086, 7); ! set blockquote style
5842 for (ix=0 : ix<lines : ix++) {
5843 print (string) arr-->(ix+1);
5844 if (ix < lines-1 || lastnl) new_line;
5845 }
5846 glk($0086, 0); ! set normal style
5847
5848 if (gg_quotewin) {
5849 glk($002F, gg_mainwin); ! set_window
5850 }
5851 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson assisted by C Knight.