comparison xaim/switch_control.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

+/*
+    Copyright (c) Applied Psychology Unit, Medical Research Council. 1993
+    ===========================================================================
+
+    Permission to use, copy, modify, and distribute this software without fee 
+    is hereby granted for research purposes, provided that this copyright 
+    notice appears in all copies and in all supporting documentation, and that 
+    the software is not redistributed for any fee (except for a nominal 
+    shipping charge). Anyone wanting to incorporate all or part of this 
+    software in a commercial product must obtain a license from the Medical 
+    Research Council.
+
+    The MRC makes no representations about the suitability of this 
+    software for any purpose.  It is provided "as is" without express or 
+    implied warranty.
+ 
+    THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
+    ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL 
+    THE A.P.U. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
+    OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
+    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, 
+    ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
+    SOFTWARE.
+*/
+
+/* 
+*   switch_control.c
+*   ----------------
+*  the 'switch' for the Controls Window.
+*
+*  M. Akeroyd.  July 1993. version 1.10
+*  Revisions: MAA: Christmas 1993.
+*
+*/
+
+
+
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#include <X11/Xos.h>
+#include <X11/Xatom.h>
+#include <stdio.h>
+
+#include "xreview.h"
+
+
+/* General ..................*/
+
+char progname[MAX_STRING_LENGTH];
+
+
+/* X ........................*/
+
+extern Display *display;
+extern int screen_num;
+extern Screen *screen_ptr;
+
+extern toplevelWindow control;
+extern toplevelWindow axes;
+
+extern buttonWindow button_quit, button_close;
+extern buttonWindow button_animate;
+extern buttonWindow button_startf, button_startb, button_stopf, button_stopb;
+extern buttonWindow button_skipf, button_skipb, button_faster, button_slower;
+extern buttonWindow button_firstframe, button_lastframe, button_middle;
+extern buttonWindow button_stepf, button_stepff, button_stepb, button_stepbb;
+
+extern buttonWindow info_speed, info_start, info_stop, info_skip;
+extern buttonWindow info_title, info_frame;
+extern buttonWindow info_time, info_freq, info_frstep;
+
+extern XFontStruct *font_info;
+extern GC button_gc;
+extern XEvent report;
+
+extern int button_borderwidth;
+
+
+/* .ctn .......................*/
+
+extern int frame;
+extern int no_frames;
+extern double frstep_aid;
+extern double pwidth; 
+extern double nwidth; 
+extern int mincf;
+extern int maxcf;     
+
+extern int waittime_millisecs;
+extern int animate_start;
+extern int animate_stop;
+extern int animate_skip;
+
+
+/* Command line ...............*/
+extern double scale;
+
+
+
+
+
+/*-----------------------------------------------------------------------*/
+/*-----------------------------------------------------------------------*/
+
+
+
+
+void switch_control()
+{
+  char tempstring[MAX_STRING_LENGTH];
+  int whitepixel = WhitePixel(display, screen_num);
+  int blackpixel = BlackPixel(display, screen_num);
+
+  
+  switch(report.type) {
+    
+/*----------------------------------*/
+    
+  case Expose:
+    if (report.xexpose.count != 0)
+      break;
+
+    if ((control.window_size == TOO_SMALL_X) ||
+	(control.window_size == TOO_BIG_X))
+      break;
+
+    XDrawLine(display, control.win, control.gc, \
+	      0, 80*scale, control.width, 80*scale);
+    XDrawLine(display, control.win, control.gc, \
+	      0, 162*scale, control.width, 162*scale);
+    
+    XMapWindow(display, button_quit.win);
+    XMapWindow(display, button_close.win);
+    XMapWindow(display, button_animate.win);
+    XMapWindow(display, button_startf.win);
+    XMapWindow(display, button_startb.win);
+    XMapWindow(display, button_stopf.win);
+    XMapWindow(display, button_stopb.win);
+    XMapWindow(display, button_skipf.win);
+    XMapWindow(display, button_skipb.win);
+    XMapWindow(display, button_faster.win);
+    XMapWindow(display, button_slower.win);
+    XMapWindow(display, button_lastframe.win);
+    XMapWindow(display, button_firstframe.win);
+    XMapWindow(display, button_middle.win);
+    XMapWindow(display, button_stepf.win);
+    XMapWindow(display, button_stepff.win);
+    XMapWindow(display, button_stepb.win);
+    XMapWindow(display, button_stepbb.win);
+
+    drawbutton(control, button_quit, &button_gc, "Quit",\
+	       whitepixel, blackpixel);
+    drawbutton(control, button_close, &button_gc, "Close", \
+	       whitepixel, blackpixel);
+
+    drawbutton(control, button_animate, &button_gc, "Animate", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_startf, &button_gc, "+1", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_startb, &button_gc, "-1", \
+	       whitepixel,  blackpixel);
+    drawbutton(control, button_stopf, &button_gc, "+1", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_stopb, &button_gc, "-1", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_skipf, &button_gc, "+1", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_skipb, &button_gc, "-1", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_faster, &button_gc, "Fast", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_slower, &button_gc, "Slow", \
+	       whitepixel, blackpixel);
+
+    drawbutton(control, button_lastframe, &button_gc, "Last", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_firstframe, &button_gc, "First", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_middle, &button_gc, "Middle", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_stepf, &button_gc, ">", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_stepff, &button_gc, ">>", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_stepb, &button_gc, "<", \
+	       whitepixel, blackpixel);
+    drawbutton(control, button_stepbb, &button_gc, "<<", \
+	       whitepixel, blackpixel);
+    
+
+
+    XMapWindow(display, info_speed.win);
+    sprintf(tempstring, "Speed: %i", waittime_millisecs);
+    drawtext(info_speed, button_gc, font_info, tempstring);
+
+    XMapWindow(display, info_start.win);
+    sprintf(tempstring, "Start: %i", animate_start);
+    drawtext(info_start, button_gc, font_info, tempstring);
+
+    XMapWindow(display, info_stop.win);
+    sprintf(tempstring, "Stop: %i", animate_stop);
+    drawtext(info_stop, button_gc, font_info, tempstring);
+
+    XMapWindow(display, info_skip.win);
+    sprintf(tempstring, "Skip: %i", animate_skip);
+    drawtext(info_skip, button_gc, font_info, tempstring);
+    
+    XMapWindow(display, info_frame.win);
+    sprintf(tempstring, "%i of %i", frame, no_frames);
+    drawtext(info_frame, button_gc, font_info, tempstring);
+    
+    XMapWindow(display, info_title.win);
+    sprintf(tempstring, "%s", axes.window_name);
+    drawtext(info_title, button_gc, font_info, tempstring);
+    
+    XMapWindow(display, info_freq.win);
+    sprintf(tempstring, "Freq %i-%iHz", mincf, maxcf);
+    drawtext(info_freq, button_gc, font_info, tempstring);
+    
+    XMapWindow(display, info_time.win);
+    sprintf(tempstring, "Interval %.1f...%.1fms", pwidth, nwidth);
+    drawtext(info_time, button_gc, font_info, tempstring);
+    
+    XMapWindow(display, info_frstep.win);
+    sprintf(tempstring, "frstep: %.1fms", frstep_aid);
+    drawtext(info_frstep, button_gc, font_info, tempstring);
+    
+    
+    break;
+	
+
+/*--------------------------------------*/	
+
+
+  case ConfigureNotify:
+    if (report.xconfigure.window != control.win)
+      break;
+    
+    control.width = report.xconfigure.width;
+    control.height = report.xconfigure.height;
+    
+    control.window_size = BIG_ENOUGH_X;
+    if ((control.width < control.size_hints.min_width) || \
+	(control.height < control.size_hints.min_height))
+      control.window_size = TOO_SMALL_X;
+    if ((control.width > control.size_hints.max_width) || \
+	(control.height > control.size_hints.max_height))
+      control.window_size = TOO_BIG_X;
+    break;
+
+/*--------------------------------------*/
+
+  default:
+    break;
+
+  } /* switch */
+    
+}
+
+
+
+
+
+
+/* The End */
+/*-------------------------------------------------------------------------*/
+/*-------------------------------------------------------------------------*/