home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0040 - 0049 / ibm0040-0049 / ibm0040.tar / ibm0040 / DBRIEF.ZIP / SOURCE / DB_HIDE.M < prev    next >
Encoding:
Text File  |  1991-03-21  |  1.7 KB  |  107 lines
  1. (string _object_default_mouse_handler)
  2. (macro db_hide
  3.     (
  4.         (int mode)
  5.         (string menu_action_proc)
  6.         (get_parm 0 mode)
  7.         (get_parm 1 menu_action_proc)
  8.         (int check_mode)
  9.         (get_parm 0 mode)
  10.         (get_parm 1 menu_action_proc)
  11.         (switch mode
  12.             0
  13.             (
  14.                 (set_ctrl_state 1 2)
  15.                 (set_ctrl_state 3 2)
  16.             )
  17.             1
  18.             (
  19.                 (set_ctrl_state 1 2)
  20.                 (set_ctrl_state 3 2)
  21.                 (set_ctrl_state 0 2)
  22.                 (set_ctrl_state 2 2)
  23.             )
  24.             3
  25.             (
  26.                 (set_ctrl_state 1 2)
  27.                 (set_ctrl_state 3 2)
  28.                 (set_ctrl_state 0 2)
  29.             )
  30.             4
  31.             (
  32.                 (set_ctrl_state 1 2)
  33.                 (set_ctrl_state 3 2)
  34.                 (= _object_default_mouse_handler (inq_mouse_action))
  35.             )
  36.         )
  37.         (if (strlen menu_action_proc)
  38.             (set_mouse_action menu_action_proc)
  39.         )
  40.     )
  41. )
  42. (macro _object_action
  43.     (
  44.         (int parm0
  45.               parm1
  46.               parm2
  47.               parm3
  48.         )
  49.         (get_parm 0 parm0)
  50.         (get_parm 1 parm1)
  51.         (get_parm 2 parm2)
  52.         (get_parm 3 parm3)
  53.         (string default_mouse)
  54.         (switch parm0
  55.             19
  56.             (
  57.                 (execute_macro (inq_assignment "<Ctrl-O>"))
  58.             )
  59.             4
  60.             NULL 7
  61.             NULL 10
  62.             NULL 13
  63.             NULL 17
  64.             (
  65.                 (sprintf default_mouse "%s %d %d %d %d" _object_default_mouse_handler parm0 parm1 parm2 parm3)
  66.                 (execute_macro default_mouse)
  67.             )
  68.             NULL
  69.             (
  70.                 (return)
  71.             )
  72.         )
  73.     )
  74. )
  75. (macro db_show
  76.     (
  77.         (int mode)
  78.         (get_parm 0 mode)
  79.         (switch mode
  80.             0
  81.             (
  82.                 (set_ctrl_state 1 3)
  83.                 (set_ctrl_state 3 3)
  84.             )
  85.             1
  86.             (
  87.                 (set_ctrl_state 1 3)
  88.                 (set_ctrl_state 3 3)
  89.                 (set_ctrl_state 0 3)
  90.                 (set_ctrl_state 2 3)
  91.             )
  92.             3
  93.             (
  94.                 (set_ctrl_state 1 3)
  95.                 (set_ctrl_state 3 3)
  96.                 (set_ctrl_state 0 3)
  97.             )
  98.             4
  99.             (
  100.                 (set_ctrl_state 1 3)
  101.                 (set_ctrl_state 3 3)
  102.                 (set_mouse_action _object_default_mouse_handler)
  103.             )
  104.         )
  105.     )
  106. )
  107.