looptest.frm

CForms, by Lars Berntzon (Stockholm, Sweden), is a tool for building interactive forms-driven applic

/*
 * Test application for CForms.
 * @(#) looptest.frm,v 1.1 1993/07/21 00:03:20 lasse Exp
 */

Viewport view {
    Pos 0,0;
    Size 80, 23;
}

Event Key DOWN  { fld_move(fld_down(NULL));  }
Event Key UP    { fld_move(fld_up(NULL));    }
Event Key LEFT  { fld_move(fld_left(NULL));  }
Event Key RIGHT { fld_move(fld_right(NULL)); }
Event Key ESC   { pic_leave(); }

Picture LoopTest Viewport View
{
    Literal Center, 1, "Test of loops in event routines";
    Literal +0, 2,     "-------------------------------";	
    Literal Center, Max, "(Press ESC to exit)";

    Field Start {
	Pos 10, 8;
	Type Char(1);
	LValue "[";
	RValue "] If you move down from here you will loop for ever";
	Protected;
	Event Exit {
	    /*
	     * This is a dirty thing but it will allow users to 
	     * interrupt this stupd test.
	     */
	    noraw();
	    echo();
	}
    }

    Field Place1 {
	Pos 10, 10;
	Type Char(15);
	Protected;
	Value "[First place]";
	Event Exit {
	    fld_cattr(NULL, FLD_HIGHLIGHT);
	}
	Event Entry {
	    message("First place");
	    fld_sattr(NULL, FLD_HIGHLIGHT);
	    sleep(1);
	    fld_move(field("Place2"));
	}
    }

    Field Place2 {
	Pos +20, +0;
	Type Char(15);
	Protected;
	Value "[Second place]";
	Event Exit {
	    fld_cattr(NULL, FLD_HIGHLIGHT);
	}
	Event Entry {
	    message("Second place");
	    fld_sattr(NULL, FLD_HIGHLIGHT);
	    sleep(1);
	    fld_move(field("Place1"));
	}
    }
}