Machile level exception
- Posted by doncole2009 Jan 19, 2009
- 1174 views
constant FIRST_INDEX=1050, LAST_INDEX=1052 procedure check(integer self, integer event, sequence params) ?event ?params[1] ?params[2] if params[1]=120 then--f9 showWindow(Window1,SW_MINIMIZE) elsif params[1]=121 then--f10 showWindow(Window1,SW_NORMAL) end if -- clear the buffer -- poke( FIRST_INDEX, peek( LAST_INDEX ) ) this dosen't work I qet a machine level execption end procedure setHandler(Screen,w32HKeyDown,routine_id("check"))
This only works once on all further keyDowns nothing happens.
Don Cole