mim/development/mim/vax/nvs/f.mud

   1 <USE "VS100">
   2 <INCLUDE "VSUDEFS" "VSUTYPES">
   3
   4 <DEFINE F ("OPT" (CHN .CH) "AUX" EV)
   5    <REPEAT ()
   6       <COND (<AND <TYPE? <SET EV <CHANNEL-OP .CHN READ-BYTE-IMMEDIATE>>
   7                          MOUSE-EVENT>
   8                   <==? <ME-KIND .EV> ,ME-LEFT-PRESSED>>
   9              <RETURN <CHANNEL-OP .CHN MOUSE-RESIZE-WINDOW ,MOUSE-LEFT>>)>>>