Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- FUNCky - <b>name:</b> <b>m_trapset() - activate the mousetrap()</b> http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
  Name:     m_trapset() - activate the mousetrap()
  Usage:    m_trapset()
  Params:   none
  Returns:  nothing

 ---------------------------------- Example ---------------------------------

                 set key 28 to HELPME

                 * bait the mousetrap()
                 mousetrap(0,28)
                 mousetrap(1,27)
                 mousetrap(2,19,4,5,24)

                 m_trapset()    && set the mousetrap()

                 memvar = space(20)
                 @ 10,0 say "Enter Data:" get memvar
                 read

                 m_trapfree()   && release the trap when done

            PROC HELPME
            para d1,d2,d3

                 m_trapfree()   && release the trap

                 print(0,0,"You rang......")
                 print(1,0,"Click left mouse button to continue....")
                 m_inbutton(0)

                 m_trapset()    && reset the trap to continue
                 return

  Warning:  If you have set a mousetrap(), you MUST use m_trapfree()
            before you RUN any external programs. If the mousetrap
            remains in effect outside of your Clipper program your
            computer will hang if you cause a mouse event that you
            are trapping.

See Also: mousetrap() m_trapfree() m_trapsave() m_traprest()

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson