home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / swat / c / widget-c-mit.c < prev    next >
C/C++ Source or Header  |  1995-08-02  |  5KB  |  172 lines
  1. /* Cover routines to make MIT Scheme primitives out of the procedures */
  2. /* in button-c.c. */
  3.  
  4. #include "scheme.h"
  5. #include "prims.h"
  6. #include "ansidecl.h"
  7. #include "X11/Xlib.h"
  8.  
  9. DEFINE_PRIMITIVE ("%tkDeleteDisplay", Prim_tk_delete_display, 1, 1, 0)
  10. { /* (%tkDeleteDisplay XDisplayNumber) */
  11.   extern void tk_delete_display (Display *disp);
  12.   PRIMITIVE_HEADER(1);
  13.   tk_delete_display((Display *) arg_integer(1));
  14.   PRIMITIVE_RETURN(UNSPECIFIC);
  15. }
  16.  
  17. DEFINE_PRIMITIVE ("%tkDestroyWidget", Prim_tk_destroy_widget, 1, 1, 0)
  18. { /* (%tkDestroyWidget tk-handle ) */
  19.   extern void tk_destroy_widget(long /*Button **/ button);
  20.   PRIMITIVE_HEADER(1);
  21.   tk_destroy_widget((long /*Button **/) arg_integer(1));
  22.   PRIMITIVE_RETURN(UNSPECIFIC);
  23. }
  24.  
  25. DEFINE_PRIMITIVE ("%tkMakeButton", Prim_tk_make_button, 2, 2, 0)
  26. { /* (%tkMakeButton ParentTKWindow name-string)
  27.   */
  28.   extern int *MakeButton(long /*Tk_Window*/ parent_window, char *name);
  29.   PRIMITIVE_HEADER(2);
  30.   PRIMITIVE_RETURN
  31.     (long_to_integer
  32.      ((long) MakeButton((long /*Tk_Window*/) arg_integer(1),
  33.             STRING_ARG(2))));
  34. }
  35.  
  36. DEFINE_PRIMITIVE ("%tkMakeCanvas", Prim_tk_make_canvas, 2, 2, 0)
  37. { /* (%tkMakeCanvas ParentTKWindow name-string)
  38.   */
  39.   extern int *MakeCanvas(long /*Tk_Window*/ parent_window, char *name);
  40.   PRIMITIVE_HEADER(2);
  41.   PRIMITIVE_RETURN
  42.     (long_to_integer
  43.      ((long) MakeCanvas((long /*Tk_Window*/) arg_integer(1),
  44.             STRING_ARG(2))));
  45. }
  46.  
  47. DEFINE_PRIMITIVE ("%tkMakeCheckButton", Prim_tk_make_check_button, 2, 2, 0)
  48. { /* (%tkMakeCheckButton ParentTKWindow name-string)
  49.   */
  50.   extern int *MakeCheckButton(long /*Tk_Window*/ parent_window, char *name);
  51.   PRIMITIVE_HEADER(2);
  52.   PRIMITIVE_RETURN
  53.     (long_to_integer
  54.      ((long) MakeCheckButton((long /*Tk_Window*/) arg_integer(1),
  55.                  STRING_ARG(2))));
  56.   
  57. }
  58.  
  59. DEFINE_PRIMITIVE ("%tkMakeEntry", Prim_tk_make_entry, 2, 2, 0)
  60. { /* (%tkMakeEntry ParentTKWindow name-string)
  61.   */
  62.   extern int *MakeEntry(long /*Tk_Window*/ parent_window, char *name);
  63.   PRIMITIVE_HEADER(2);
  64.   PRIMITIVE_RETURN
  65.     (long_to_integer
  66.      ((long) MakeEntry((long /*Tk_Window*/) arg_integer(1),
  67.                STRING_ARG(2))));
  68. }
  69.  
  70. DEFINE_PRIMITIVE ("%tkMakeLabel", Prim_tk_make_label, 2, 2, 0)
  71. { /* (%tkMakeLabel ParentTKWindow name-string)
  72.   */
  73.   extern int *MakeLabel(long /*Tk_Window*/ parent_window, char *name);
  74.   PRIMITIVE_HEADER(2);
  75.   PRIMITIVE_RETURN
  76.     (long_to_integer
  77.      ((long) MakeLabel((long /*Tk_Window*/) arg_integer(1),
  78.                STRING_ARG(2))));
  79. }
  80.  
  81. DEFINE_PRIMITIVE ("%tkMakeListbox", Prim_tk_make_listbox, 2, 2, 0)
  82. { /* (%tkMakeListbox ParentTKWindow name-string)
  83.   */
  84.   extern int *MakeListbox(long /*Tk_Window*/ parent_window, char *name);
  85.   PRIMITIVE_HEADER(2);
  86.   PRIMITIVE_RETURN
  87.     (long_to_integer
  88.      ((long) MakeListbox((long /*Tk_Window*/) arg_integer(1),
  89.              STRING_ARG(2))));
  90. }
  91.  
  92. DEFINE_PRIMITIVE ("%tkMakeMenu", Prim_tk_make_menu, 2, 2, 0)
  93. { /* (%tkMakeMenu ParentTKWindow name-string)
  94.   */
  95.   extern int *MakeMenu(long /*Tk_Window*/ parent_window, char *name);
  96.   PRIMITIVE_HEADER(2);
  97.   PRIMITIVE_RETURN
  98.     (long_to_integer
  99.      ((long) MakeMenu((long /*Tk_Window*/) arg_integer(1),
  100.                STRING_ARG(2))));
  101.  
  102. }
  103.  
  104. DEFINE_PRIMITIVE ("%tkMakeMenuButton", Prim_tk_make_menu_button, 2, 2, 0)
  105. { /* (%tkMakeMenuButton ParentTKWindow name-string)
  106.   */
  107.   extern int *MakeMenuButton(long /*Tk_Window*/ parent_window, char *name);
  108.   PRIMITIVE_HEADER(2);
  109.   PRIMITIVE_RETURN
  110.     (long_to_integer
  111.      ((long) MakeMenuButton((long /*Tk_Window*/) arg_integer(1),
  112.                 STRING_ARG(2))));
  113.  
  114. }
  115.  
  116. DEFINE_PRIMITIVE ("%tkMakeMessage", Prim_tk_make_message, 2, 2, 0)
  117. { /* (%tkMakeMessage ParentTKWindow name-string)
  118.   */
  119.   extern int *MakeMessage(long /*Tk_Window*/ parent_window, char *name);
  120.   PRIMITIVE_HEADER(2);
  121.   PRIMITIVE_RETURN
  122.     (long_to_integer
  123.      ((long) MakeMessage((long /*Tk_Window*/) arg_integer(1),
  124.              STRING_ARG(2))));
  125. }
  126.  
  127. DEFINE_PRIMITIVE ("%tkMakeRadioButton", Prim_tk_make_radio_button, 2, 2, 0)
  128. { /* (%tkMakeRadioButton ParentTKWindow name-string)
  129.   */
  130.   extern int *MakeRadioButton(long /*Tk_Window*/ parent_window, char *name);
  131.   PRIMITIVE_HEADER(2);
  132.   PRIMITIVE_RETURN
  133.     (long_to_integer
  134.      ((long) MakeRadioButton((long /*Tk_Window*/) arg_integer(1),
  135.                  STRING_ARG(2))));
  136.   
  137. }
  138.  
  139. DEFINE_PRIMITIVE ("%tkMakeScale", Prim_tk_make_scale, 2, 2, 0)
  140. { /* (%tkMakeScale ParentTKWindow name-string)
  141.   */
  142.   extern int *MakeScale(long /*Tk_Window*/ parent_window, char *name);
  143.   PRIMITIVE_HEADER(2);
  144.   PRIMITIVE_RETURN
  145.     (long_to_integer
  146.      ((long) MakeScale((long /*Tk_Window*/) arg_integer(1),
  147.                STRING_ARG(2))));
  148. }
  149.  
  150. DEFINE_PRIMITIVE ("%tkMakeScrollBar", Prim_tk_make_scrollbar, 2, 2, 0)
  151. { /* (%tkMakeScrollBar ParentTKWindow name-string)
  152.   */
  153.   extern int *MakeScrollBar(long /*Tk_Window*/ parent_window, char *name);
  154.   PRIMITIVE_HEADER(2);
  155.   PRIMITIVE_RETURN
  156.     (long_to_integer
  157.      ((long) MakeScrollBar((long /*Tk_Window*/) arg_integer(1),
  158.                STRING_ARG(2))));
  159. }
  160.  
  161. DEFINE_PRIMITIVE ("%tkMakeText", Prim_tk_make_text, 2, 2, 0)
  162. { /* (%tkMakeText ParentTKWindow name-string)
  163.   */
  164.   extern int *MakeText(long /*Tk_Window*/ parent_window, char *name);
  165.   PRIMITIVE_HEADER(2);
  166.   PRIMITIVE_RETURN
  167.     (long_to_integer
  168.      ((long) MakeText((long /*Tk_Window*/) arg_integer(1),
  169.               STRING_ARG(2))));
  170.  
  171. }
  172.