home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / desklib / Libraries / Icon / c / Slider < prev    next >
Encoding:
Text File  |  1992-03-23  |  7.3 KB  |  198 lines
  1. #include "Wimp.h"
  2. #include "WimpSWIs.h"
  3. #include "Coord.h"
  4. #include "Icon.h"
  5.  
  6. #include <stdlib.h>
  7. #include <stdio.h>
  8. #include "string.h"
  9.  
  10.  
  11. /* ==========================================================================
  12.    Icon_Slider:
  13.    This is a draggable "volume bar" as in the task window memory displays.
  14.    It consists of two icons, a "base" icon, which provides
  15.      a) a pretty border for the slider (indented plinth) if you want it.
  16.      b) a simple, tidy, and effective means of setting the bounds within
  17.         which the slider can be dragged. Note that this also means that the
  18.         slider can easily be resized just by changing the template
  19.         definition of the icons.
  20.  
  21.    ...and a "slider" icon, which defines:
  22.      a) The type of icon used. Currently slider only provides a
  23.         "left-end-fixed, right-end draggable" style slider, in which cse you
  24.         specify the size, y-position, and colours of the icon. Later I might
  25.         get around to writing code to handle a fixed-size moving icon (so
  26.         you can have a "volume knob" that moves rather than a "bar graph")
  27.      b) The y-position of the icon (X positions are read from the base icon)
  28.         and the left hand end position of the icon.
  29.  
  30.      As the slider is dragged (or indeed at any time) a value is read from
  31.      the slider in the form of an integer. When the slider is at a
  32.      minimum size, 0 is returned; at maximum, 1000 is returned.
  33.  
  34.      The base icon should have a LOWER icon handle than the slider (so the
  35.      slider appears on top)
  36.      When either icon is clicked, initiate the drag with DragSlider, then
  37.      continuously update by repeatedly calling UpdateSlider on NULL (or
  38.      perhaps button if buttontype == always) events.
  39.      At any time, the current slider value can be read using ReadSlider.
  40.  
  41.      All these calls return the current slider position, so that you may
  42.      update other displays (for example, alter a colour display as an rgb
  43.      slider is dragged, etc.)
  44. */
  45.  
  46.  
  47.         /* Gap at each end of slider in OS coordinates */
  48. #define SLIDE_GAP 9
  49.         /* Minimum size slider can shrink to in OS coordinates
  50.            (should be equal to slider height) */
  51. #define SLIDE_MIN 12
  52.  
  53.  
  54.  
  55. extern int Icon_SetSlider(window_handle window,
  56.                           icon_handle baseicon, icon_handle slidericon,
  57.                           int sliderpos)
  58. /* Sets a slider icon-pair to the specified position (specify as a
  59.  * percentage). Values < 0 and > 1000 are clipped, and the value to which the
  60.  * slider has been set is returned.
  61.  */
  62. {
  63.   icon_handle      icon;
  64.   icon_createblock icreate;
  65.   register int     sliderwidth;
  66.  
  67.   if (sliderpos < 0)    sliderpos = 0;
  68.   if (sliderpos > 1000) sliderpos = 1000;
  69.  
  70.   Wimp_GetIconState(window, baseicon, &icreate.icondata);
  71.  
  72.   sliderwidth = (icreate.icondata.workarearect.max.x -
  73.                  icreate.icondata.workarearect.min.x) -
  74.                  (SLIDE_GAP * 2 + SLIDE_MIN);
  75.  
  76.   Wimp_GetIconState(window, slidericon, &icreate.icondata);
  77.   icreate.icondata.workarearect.max.x = icreate.icondata.workarearect.min.x +
  78.                                    (sliderpos * sliderwidth)/1001 + SLIDE_MIN;
  79.   icreate.window = window;
  80.   Wimp_DeleteIcon(window, slidericon);                 /* And resize icon... */
  81.   Wimp_CreateIcon(&icreate, &icon);
  82.   
  83.   {
  84.     window_redrawblock r;  /* Force window redraw to remove: getting smaller */
  85.  
  86.     r.window = window;
  87.     r.rect.min.x = icreate.icondata.workarearect.max.x + 4;
  88.     r.rect.max.x = icreate.icondata.workarearect.min.x + sliderwidth+SLIDE_MIN;
  89.     r.rect.min.y = icreate.icondata.workarearect.min.y;
  90.     r.rect.max.y = icreate.icondata.workarearect.max.y;
  91.     Wimp_ForceRedraw(&r);
  92.   }
  93.   Wimp_SetIconState(window, slidericon, 0, 0);         /* forceredraw slider */
  94.   return(sliderpos);
  95. }
  96.  
  97.  
  98.  
  99. extern int Icon_UpdateSlider(window_handle window,
  100.                              icon_handle baseicon, icon_handle slidericon,
  101.                              int lastpos)
  102. /* (call on null events while slider being dragged)
  103.  * Calculates a new slider percentage from the mouse pointer position.
  104.  * If this differs from lastpos, the slider is updated (by recreating the
  105.  * slidericon to the new length.
  106.  * returns the new slider position percentage value.
  107.  * NOTE: Slider update is achieved by DELETING and re-creating the slider
  108.  * icon. This relies upon no icons of a lower icon handle having been deleted!
  109.  */
  110. {
  111.   window_state     wstate;
  112.   icon_createblock icreate;
  113.   register int     sliderwidth, sliderpos;
  114.   mouse_block      ptr;
  115.   convert_block    convert;
  116.  
  117.   Wimp_GetPointerInfo(&ptr);
  118.   Wimp_GetWindowState(window, &wstate);
  119.  
  120.   convert.screenrect = wstate.openblock.screenrect;
  121.   convert.scroll = wstate.openblock.scroll;
  122.  
  123.   Wimp_GetIconState(window, baseicon, &icreate.icondata);
  124.  
  125.   sliderwidth = (icreate.icondata.workarearect.max.x -
  126.                  icreate.icondata.workarearect.min.x) -
  127.                  (SLIDE_GAP * 2 + SLIDE_MIN);
  128.   sliderpos = Coord_XToWorkArea(ptr.pos.x, &convert) -
  129.               (icreate.icondata.workarearect.min.x + SLIDE_GAP + SLIDE_MIN);
  130.  
  131.   sliderpos = ((sliderpos * 1001) / sliderwidth);          /* get as 1..1000 */
  132.   return(Icon_SetSlider(window, baseicon, slidericon, sliderpos));
  133. }
  134.  
  135.  
  136.  
  137. extern int Icon_DragSlider(window_handle window,
  138.                            icon_handle baseicon, icon_handle slidericon)
  139. /* Initiates the drag operation on a slider. Call this when you get a click
  140.  * in either baseicon or slidericon.
  141.  * Returns the new percentage represented by the slider (remember this so
  142.  * you can pass it in to Icon_UpdateSlider to save unnecessary (flickery)
  143.  * update.)
  144.  * NOTE: It is up to you to turn on NULL events and remember that
  145.  * Icon_UpdateSlider must be called on each poll...
  146.  * An alternative is to make the 2 slider icons use button type ALWAYS, and
  147.  * check the mouse button state yourself to see whether a drag needs to be
  148.  * started/continued...
  149.  */
  150. {
  151.   convert_block convert;
  152.   window_state  state;
  153.   drag_block    dragdata;
  154.   icon_block    bicon, sicon;
  155.  
  156.   Wimp_GetIconState(window, baseicon, &bicon);
  157.   Wimp_GetIconState(window, slidericon, &sicon);
  158.  
  159.   Wimp_GetWindowState(window, &state);
  160.   convert.screenrect = state.openblock.screenrect;
  161.   convert.scroll     = state.openblock.scroll;
  162.  
  163.   dragdata.window    = window;
  164.   dragdata.type      = drag_INVISIBLE;
  165.   dragdata.screenrect= state.openblock.screenrect;   /* dragged box not used */
  166.   dragdata.parent.min.x = bicon.workarearect.min.x + SLIDE_GAP;
  167.   dragdata.parent.max.x = bicon.workarearect.max.x - SLIDE_GAP;
  168.   dragdata.parent.min.y = sicon.workarearect.min.y;
  169.   dragdata.parent.max.y = sicon.workarearect.max.y;
  170.  
  171.   Coord_RectToScreen(&dragdata.parent, &convert);
  172.  
  173.   Wimp_DragBox(&dragdata);
  174.   return(Icon_UpdateSlider(window, baseicon, slidericon, -1));
  175. }
  176.  
  177.  
  178.  
  179. extern int Icon_ReadSlider(window_handle window,
  180.                            icon_handle baseicon, icon_handle slidericon)
  181. /* Given a slider icon-pair, returns a percentage representing the state */
  182. {
  183.   icon_block   istate;
  184.   register int sliderwidth, sliderpos;
  185.  
  186.   Wimp_GetIconState(window, baseicon, &istate);
  187.   sliderwidth = (istate.workarearect.max.x - istate.workarearect.min.x) -
  188.                 (SLIDE_GAP * 2 + SLIDE_MIN);
  189.   Wimp_GetIconState(window, slidericon, &istate);
  190.   sliderpos = ((istate.workarearect.max.x - istate.workarearect.min.x)* 1001)
  191.                 / sliderwidth;
  192.  
  193.   if (sliderpos < 0)  sliderpos = 0;
  194.   if (sliderpos > 1000) sliderpos = 1000;
  195.  
  196.   return(sliderpos);
  197. }
  198.