home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / paned.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1.5 KB  |  46 lines
  1. #include "../xt/xt.h"
  2. #include <X11/Xaw/Paned.h>
  3.  
  4. static Object P_Paned_Allow_Resize (w, enable) Object w, enable; {
  5.    Check_Widget (w);
  6.     Check_Type (enable, T_Boolean);
  7.     XawPanedAllowResize (WIDGET(w)->widget, EQ (enable, True));
  8.     return Void;
  9. }
  10.  
  11. static Object P_Paned_Set_Min_Max (w, min, max) Object w, min, max; {
  12.    Check_Widget (w);
  13.     XawPanedSetMinMax (WIDGET(w)->widget, Get_Integer (min),
  14.     Get_Integer (max));
  15.     return Void;
  16. }
  17.  
  18. static Object P_Paned_Get_Min_Max (w) Object w; {
  19.    int min, max;
  20.     Check_Widget (w);
  21.     XawPanedGetMinMax (WIDGET(w)->widget, &min, &max);
  22.     return Cons (Make_Fixnum (min), Make_Fixnum (max));
  23. }
  24.  
  25. static Object P_Paned_Set_Refigure_Mode (w, enable) Object w, enable; {
  26.    Check_Widget_Class (w, panedWidgetClass);
  27.     Check_Type (enable, T_Boolean);
  28.     XawPanedSetRefigureMode (WIDGET(w)->widget, EQ (enable, True));
  29.     return Void;
  30. }
  31.  
  32. static Object P_Paned_Get_Num_Sub (w) Object w; {
  33.    Check_Widget_Class (w, panedWidgetClass);
  34.     return Make_Fixnum (XawPanedGetNumSub (WIDGET(w)->widget));
  35. }
  36.  
  37. init_paned () {
  38.     XtResourceList r = 0;
  39.     Define_Class ("paned", panedWidgetClass, r, 0);
  40.     Define_Primitive (P_Paned_Get_Num_Sub, "paned-get-num-sub", 1, 1, EVAL);
  41.     Define_Primitive (P_Paned_Set_Refigure_Mode, "paned-set-refigure-mode!", 2, 2, EVAL);
  42.     Define_Primitive (P_Paned_Get_Min_Max, "paned-get-min-max", 1, 1, EVAL);
  43.     Define_Primitive (P_Paned_Set_Min_Max, "paned-set-min-max!", 3, 3, EVAL);
  44.     Define_Primitive (P_Paned_Allow_Resize, "paned-allow-resize", 2, 2, EVAL);
  45. }
  46.