home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / scroll-bar.d < prev    next >
Encoding:
Text File  |  1989-10-12  |  1.6 KB  |  43 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'scrollbar "ScrollBar.h")
  4.  
  5. (define-widget-class 'scroll-bar 'xmScrollBarWidgetClass)
  6.  
  7. (prolog
  8.  
  9. "static Object Get_Scrollbar_CB (p) XmScrollBarCallbackStruct *p; {
  10.     Object ret, s;
  11.     GC_Node2;
  12.  
  13.     ret = s = Cons (Make_Integer (p->pixel), Null);
  14.     GC_Link2 (ret, s);
  15.     ret = Cons (Make_Integer (p->value), ret);
  16.     s = Get_Any_CB ((XmAnyCallbackStruct *)p);
  17.     ret = Cons (Cdr (s), ret);
  18.     ret = Cons (Car (s), ret);
  19.     GC_Unlink;
  20.     return ret;
  21. }")
  22.  
  23. (define-callback 'scroll-bar 'decrementCallback     #t)
  24. (define-callback 'scroll-bar 'incrementCallback     #t)
  25. (define-callback 'scroll-bar 'pageDecrementCallback #t)
  26. (define-callback 'scroll-bar 'pageIncrementCallback #t)
  27. (define-callback 'scroll-bar 'dragCallback          #t)
  28. (define-callback 'scroll-bar 'toTopCallback         #t)
  29. (define-callback 'scroll-bar 'toBottomCallback      #t)
  30. (define-callback 'scroll-bar 'valueChangedCallback  #t)
  31.  
  32. (define scrollbar-callback->scheme
  33. "   return Get_Scrollbar_CB ((XmScrollBarCallbackStruct *)x);")
  34.  
  35. (c->scheme 'scroll-bar-decrementCallback     scrollbar-callback->scheme)
  36. (c->scheme 'scroll-bar-incrementCallback     scrollbar-callback->scheme)
  37. (c->scheme 'scroll-bar-pageDecrementCallback scrollbar-callback->scheme)
  38. (c->scheme 'scroll-bar-pageIncrementCallback scrollbar-callback->scheme)
  39. (c->scheme 'scroll-bar-dragCallback          scrollbar-callback->scheme)
  40. (c->scheme 'scroll-bar-toTopCallback         scrollbar-callback->scheme)
  41. (c->scheme 'scroll-bar-toBottomCallback      scrollbar-callback->scheme)
  42. (c->scheme 'scroll-bar-valueChangedCallback  scrollbar-callback->scheme)
  43.