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 / uitk-prims.c < prev    next >
C/C++ Source or Header  |  1995-08-02  |  5KB  |  107 lines
  1. #include "scheme.h"
  2. #include "prims.h"
  3.  
  4. #define External_Primitive(fn_name)        \
  5.    extern SCHEME_OBJECT EXFUN (fn_name, (void))
  6.  
  7. External_Primitive(Prim_tcl_eval);
  8. External_Primitive(Prim_tk_completely_handles_event);
  9. External_Primitive(Prim_tk_create_tl_window);
  10. External_Primitive(Prim_tk_do_events);
  11. External_Primitive(Prim_tk_drain);
  12. External_Primitive(Prim_tk_generate_scheme_event);
  13. External_Primitive(Prim_tk_init);
  14. External_Primitive(Prim_tk_invoke);
  15. External_Primitive(Prim_tk_kill_app);
  16. External_Primitive(Prim_tk_manage_geom);
  17. External_Primitive(Prim_tk_map_widget);
  18. External_Primitive(Prim_tk_map_window);
  19. External_Primitive(Prim_tk_move);
  20. External_Primitive(Prim_tk_move_resize);
  21. External_Primitive(Prim_tk_next_wakeup);
  22. External_Primitive(Prim_tk_resize);
  23. External_Primitive(Prim_tk_unmap_window);
  24. External_Primitive(Prim_tk_win_req_height);
  25. External_Primitive(Prim_tk_win_req_width);
  26. External_Primitive(Prim_tk_widget_get_tkwin);
  27. External_Primitive(Prim_tk_win_display);
  28. External_Primitive(Prim_tk_win_is_mapped);
  29. External_Primitive(Prim_tk_win_height);
  30. External_Primitive(Prim_tk_win_width);
  31. External_Primitive(Prim_tk_win_window);
  32. External_Primitive(Prim_tk_win_x);
  33. External_Primitive(Prim_tk_win_y);
  34. External_Primitive(Prim_tk_win_name);
  35. External_Primitive(Prim_tk_win_pathname);
  36. External_Primitive(Prim_tk_delete_display);
  37. External_Primitive(Prim_tk_destroy_widget);
  38. External_Primitive(Prim_tk_make_button);
  39. External_Primitive(Prim_tk_make_canvas);
  40. External_Primitive(Prim_tk_make_check_button);
  41. External_Primitive(Prim_tk_make_entry);
  42. External_Primitive(Prim_tk_make_label);
  43. External_Primitive(Prim_tk_make_listbox);
  44. External_Primitive(Prim_tk_make_menu);
  45. External_Primitive(Prim_tk_make_menu_button);
  46. External_Primitive(Prim_tk_make_message);
  47. External_Primitive(Prim_tk_make_radio_button);
  48. External_Primitive(Prim_tk_make_scale);
  49. External_Primitive(Prim_tk_make_scrollbar);
  50. External_Primitive(Prim_tk_make_text);
  51.  
  52. extern char *EXFUN (dload_initialize_file, (void));
  53.  
  54. char *
  55.   DEFUN_VOID (dload_initialize_file)
  56. { /* Primitives in tk-c-mit.c */
  57.   declare_primitive ("%tclGlobalEval", Prim_tcl_eval, 2, 2, 0);
  58.   declare_primitive ("%tkCompletelyHandlesEvent?",
  59.              Prim_tk_completely_handles_event, 1, 1, 0);
  60.   declare_primitive ("%tkCreateTopLevelWindow",
  61.              Prim_tk_create_tl_window, 3, 3, 0);
  62.   declare_primitive ("%tkDoEvents", Prim_tk_do_events, 0, 0, 0);
  63.   declare_primitive ("%tkDrainCallBacks", Prim_tk_drain, 2, 2, 0);
  64.   declare_primitive ("%tkGenerateSchemeEvent",
  65.              Prim_tk_generate_scheme_event, 2, 2, 0);
  66.   declare_primitive ("%tkInit", Prim_tk_init, 2, 2, 0);
  67.   declare_primitive ("%tkInvokeCommand", Prim_tk_invoke, 2, LEXPR, 0);
  68.   declare_primitive ("%tkKillApplication", Prim_tk_kill_app, 1, 1, 0);
  69.   declare_primitive ("%tkManageGeometry", Prim_tk_manage_geom, 2, 2, 0);
  70.   declare_primitive ("%tkMapWidget", Prim_tk_map_widget, 6, 6, 0);
  71.   declare_primitive ("%tkMapWindow", Prim_tk_map_window, 1, 1, 0);
  72.   declare_primitive ("%tkMoveWindow", Prim_tk_move, 3, 3, 0);
  73.   declare_primitive ("%tkMoveResizeWindow", Prim_tk_move_resize, 5, 5, 0);
  74.   declare_primitive ("%tkNextWakeup", Prim_tk_next_wakeup, 0, 0, 0);
  75.   declare_primitive ("%tkResizeWindow", Prim_tk_resize, 3, 3, 0);
  76.   declare_primitive ("%tkUnmapWindow", Prim_tk_unmap_window, 1, 1, 0);
  77.   declare_primitive ("%tkWinReqHeight", Prim_tk_win_req_height, 1, 1, 0);
  78.   declare_primitive ("%tkWinReqWidth", Prim_tk_win_req_width, 1, 1, 0);
  79.   declare_primitive ("%tkWidget.tkwin", Prim_tk_widget_get_tkwin, 1, 1, 0);
  80.   declare_primitive ("%tkWinDisplay", Prim_tk_win_display, 1, 1, 0);
  81.   declare_primitive ("%tkWinIsMapped?", Prim_tk_win_is_mapped, 1, 1, 0);
  82.   declare_primitive ("%tkWinHeight", Prim_tk_win_height, 1, 1, 0);
  83.   declare_primitive ("%tkWinWidth", Prim_tk_win_width, 1, 1, 0);
  84.   declare_primitive ("%tkWinWindow", Prim_tk_win_window, 1, 1, 0);
  85.   declare_primitive ("%tkWinX", Prim_tk_win_x, 1, 1, 0);
  86.   declare_primitive ("%tkWinY", Prim_tk_win_y, 1, 1, 0);
  87.   declare_primitive ("%tkWinName", Prim_tk_win_name, 1, 1, 0);
  88.   declare_primitive ("%tkWinPathName", Prim_tk_win_pathname, 1, 1, 0);
  89.   /* Primitive in widget-c-mit.c */
  90.   declare_primitive ("%tkDeleteDisplay", Prim_tk_delete_display, 1, 1, 0);
  91.   declare_primitive ("%tkDestroyWidget", Prim_tk_destroy_widget, 1, 1, 0);
  92.   declare_primitive ("%tkMakeButton", Prim_tk_make_button, 2, 2, 0);
  93.   declare_primitive ("%tkMakeCanvas", Prim_tk_make_canvas, 2, 2, 0);
  94.   declare_primitive ("%tkMakeCheckButton", Prim_tk_make_check_button, 2, 2, 0);
  95.   declare_primitive ("%tkMakeEntry", Prim_tk_make_entry, 2, 2, 0);
  96.   declare_primitive ("%tkMakeLabel", Prim_tk_make_label, 2, 2, 0);
  97.   declare_primitive ("%tkMakeListbox", Prim_tk_make_listbox, 2, 2, 0);
  98.   declare_primitive ("%tkMakeMenu", Prim_tk_make_menu, 2, 2, 0);
  99.   declare_primitive ("%tkMakeMenuButton", Prim_tk_make_menu_button, 2, 2, 0);
  100.   declare_primitive ("%tkMakeMessage", Prim_tk_make_message, 2, 2, 0);
  101.   declare_primitive ("%tkMakeRadioButton", Prim_tk_make_radio_button, 2, 2, 0);
  102.   declare_primitive ("%tkMakeScale", Prim_tk_make_scale, 2, 2, 0);
  103.   declare_primitive ("%tkMakeScrollBar", Prim_tk_make_scrollbar, 2, 2, 0);
  104.   declare_primitive ("%tkMakeText", Prim_tk_make_text, 2, 2, 0);
  105.   return "#UITK";
  106. }
  107.