=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v retrieving revision 1.19 retrieving revision 1.29 diff -u -p -r1.19 -r1.29 --- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2002/07/29 03:08:16 1.19 +++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2007/01/30 03:25:52 1.29 @@ -45,7 +45,7 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.18 2002/07/20 02:28:08 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.28 2007/01/30 00:28:26 noro Exp $ */ #include "ca.h" #include "parse.h" @@ -55,6 +55,26 @@ #include #include +static void Quit(); +static void print_canvas(Widget w, struct canvas *can, XtPointer calldata); +static void output_to_printer(Widget w, struct canvas *can, XtPointer calldata); +static void print_canvas_to_file(Widget w, struct canvas *can, XtPointer calldata); +static void printing_method(Widget w, struct canvas *can, XtPointer calldata); + +static Atom wm_delete_window; + +void SetWM_Proto(Widget w) +{ + XtOverrideTranslations(w, + XtParseTranslationTable("WM_PROTOCOLS: quit()")); + XSetWMProtocols(display,XtWindow(w),&wm_delete_window,1); +} + +static void quit(Widget w, XEvent *ev, String *params,Cardinal *nparams) +{ + XBell(display,0); +} + /* XXX : these lines are in plotg.c, but ld says they are not defined */ #if __DARWIN__ int stream; @@ -82,7 +102,6 @@ struct canvas *current_can; #endif static char *dname; -static int remotes; static int depth,scrn; extern JMP_BUF ox_env; @@ -107,6 +126,8 @@ static struct PlotResources { #define reverse PlotResources.Reverse #define upsidedown PlotResources.UpsideDown +Pixel BackPixel; + Cursor create_cursor(); #define blackPixel BlackPixel(display,scrn) @@ -172,7 +193,9 @@ XButtonEvent *ev; case Button1: e.x = ev->x; e.y = ev->y; draw_frame0(can->window,spos,e); - if ( !busy && can->mode != MODE_INTERACTIVE ) { + if ( !busy + && can->mode != MODE_INTERACTIVE + && can->mode != MODE_POLARPLOT) { if ( can->mode == MODE_PLOT ) plot_resize(can,spos,e); else @@ -362,7 +385,9 @@ search_active_canvas() void popup_canvas(index) { + clear_pixmap(canvas[index]); XtPopup(canvas[index]->shell,XtGrabNone); + copy_to_canvas(canvas[index]); } void destroy_canvas(w,can,calldata) @@ -487,6 +512,7 @@ char *s; create_popup(can->shell,"warning",s,&warnshell,&warndialog); XawDialogAddButton(warndialog,"dismiss",popdown_warning,warnshell); XtPopup(warnshell,XtGrabNone); + SetWM_Proto(warnshell); } void popdown_warning(w,client,call) @@ -509,6 +535,7 @@ XtPointer calldata; create_popup(can->shell,"formula",buf,&fshell,&fdialog); XawDialogAddButton(fdialog,"dismiss",popdown_formula,w); XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } void popdown_formula(w,fbutton,call) @@ -533,12 +560,12 @@ struct canvas *can; int i,width,height; Arg arg[6]; char buf[BUFSIZ]; - static void print_canvas(); + XImage *image; + width = can->width; height = can->height; - sprintf(buf,"%s : %d/%d", can->wname?can->wname:"Plot", - remotes,can->index); + sprintf(buf,"%s : %d", can->wname?can->wname:"Plot",can->index); XtSetArg(arg[0],XtNiconName,buf); can->shell = XtCreatePopupShell("shell",topLevelShellWidgetClass,toplevel,arg,1); @@ -630,10 +657,13 @@ struct canvas *can; if ( can->mode != MODE_IFPLOT || !qpcheck((Obj)can->formula) ) XtSetSensitive(precise,False); XtPopup(can->shell,XtGrabNone); - + SetWM_Proto(can->shell); window = can->window = XtWindow(canvas); pix = can->pix = XCreatePixmap(display,window,width,height,depth); XFillRectangle(display,pix,clearGC,0,0,width,height); + image = XGetImage(display, can->pix, 0, 0, can->width, can->height, + -1, ZPixmap); + BackPixel = XGetPixel(image,0,0); XDefineCursor(display,window,normalcur); XFlush(display); current_can = can; @@ -675,6 +705,15 @@ static XtResource resources[] = { offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, }; +static XtActionsRec actions_table[] = { + {"quit",Quit}, +}; + +static void Quit(Widget w, XEvent *ev, String *params,Cardinal *nparams) +{ + XBell(XtDisplay(w),0); +} + int init_plot_display(argc,argv) int argc; char **argv; @@ -690,6 +729,7 @@ char **argv; dname = *av; XtToolkitInitialize(); app_con = XtCreateApplicationContext(); + XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); display = XtOpenDisplay(app_con,dname,"plot","Plot", options,XtNumber(options),&argc,argv); if ( !display ) { @@ -708,6 +748,11 @@ char **argv; depth = DefaultDepth(display,scrn); rootwin = RootWindow(display,scrn); + /* for handling DELETE message */ + wm_delete_window = XInternAtom(display,"WM_DELETE_WINDOW",False); + XtOverrideTranslations(toplevel, + XtParseTranslationTable("WM_PROTOCOLS: quit()")); + if ( reverse ) { tmp = forePixel; forePixel = backPixel; backPixel = tmp; } @@ -805,8 +850,13 @@ copy_to_canvas(can) struct canvas *can; { if ( display ) { - XCopyArea(display,can->pix,can->window, - drawGC,0,0,can->width,can->height,0,0); + if ( can->color ) { + set_drawcolor(can->color); + XCopyArea(display,can->pix,can->window, + cdrawGC,0,0,can->width,can->height,0,0); + } else + XCopyArea(display,can->pix,can->window, + drawGC,0,0,can->width,can->height,0,0); pline(display,can,can->window); XFlush(display); } @@ -915,255 +965,256 @@ static void print_canvas(w,can,calldata) struct canvas *can; XtPointer calldata; { - Widget fshell,fdialog; - extern struct canvas *Can; - extern Widget W; - Widget entry; - int i; - Arg arg[1]; - static void output_to_printer(); - static void print_canvas_to_file(); - static void printing_method(); + Widget fshell,fdialog; + extern struct canvas *Can; + extern Widget W; + Widget entry; + int i; + Arg arg[1]; - W = w; - Can = can; - create_popup(can->shell,"Print/Output PS file","",&fshell,&fdialog); - XawDialogAddButton(fdialog,"print",output_to_printer,w); - XawDialogAddButton(fdialog,"output PS file",print_canvas_to_file,w); - XawDialogAddButton(fdialog,"method",printing_method,w); - XawDialogAddButton(fdialog,"dismiss",cancel_output_to_file,w); - XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + W = w; + Can = can; + create_popup(can->shell,"Print/Output PS file","",&fshell,&fdialog); + XawDialogAddButton(fdialog,"print",output_to_printer,w); + XawDialogAddButton(fdialog,"output PS file",print_canvas_to_file,w); + XawDialogAddButton(fdialog,"method",printing_method,w); + XawDialogAddButton(fdialog,"dismiss",cancel_output_to_file,w); + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } -static void set_printing_method(Widget w,XtPointer number,XtPointer call_data) { - Widget shell; - extern int PrintingMethod; - PrintingMethod = (int) number; - fprintf(stderr,"PrintingMethod=%d\n",number); - shell = XtParent(XtParent(w)); - XtPopdown(shell); XtDestroyWidget(shell); +static void set_printing_method(Widget w,XtPointer number,XtPointer call_data) +{ + Widget shell; + extern int PrintingMethod; + PrintingMethod = (int) number; + fprintf(stderr,"PrintingMethod=%d\n",number); + shell = XtParent(XtParent(w)); + XtPopdown(shell); XtDestroyWidget(shell); } static void printing_method(w,can,calldata) - Widget w; - struct canvas *can; - XtPointer calldata; + Widget w; + struct canvas *can; + XtPointer calldata; { - Arg arg[10]; - int i,n; - Widget fshell,fdialog; - extern struct canvas *Can; - extern int PrintingMethod; + Arg arg[10]; + int i,n; + Widget fshell,fdialog; + extern struct canvas *Can; + extern int PrintingMethod; - w = W; - can = Can; - create_popup(can->shell,"Printing method",Printing_methods[PrintingMethod], - &fshell,&fdialog); - n = 0; - XtSetArg(arg[n], XtNlabel, "Method: "); n++; - XtSetArg(arg[n], XtNvalue, Printing_methods[PrintingMethod]); n++; - XtSetValues(fdialog,arg,n); - for (i=0; ishell,"Printing method",Printing_methods[PrintingMethod], + &fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "Method: "); n++; + XtSetArg(arg[n], XtNvalue, Printing_methods[PrintingMethod]); n++; + XtSetValues(fdialog,arg,n); + for (i=0; ishell,"Output as PS file",psfile,&fshell,&fdialog); - n = 0; - XtSetArg(arg[n], XtNlabel, "File : "); n++; - XtSetArg(arg[n], XtNvalue, psfile); n++; - XtSetValues(fdialog,arg,n); - XawDialogAddButton(fdialog,"output to file",output_to_file,w); - XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); - PrintDialog = fdialog; - XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + w = W; + can = Can; + if (psfile == NULL || Fname == NULL) psfile = "ox_plot.eps"; + else psfile = Fname; + create_popup(can->shell,"Output as PS file",psfile,&fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "File : "); n++; + XtSetArg(arg[n], XtNvalue, psfile); n++; + XtSetValues(fdialog,arg,n); + XawDialogAddButton(fdialog,"output to file",output_to_file,w); + XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); + PrintDialog = fdialog; + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } static void output_to_printer(w,can,calldata) - Widget w; - struct canvas *can; - XtPointer calldata; + Widget w; + struct canvas *can; + XtPointer calldata; { - FILE *fp; - Arg arg[10]; - int n; - static char *psfile = NULL; - Widget fshell,fdialog; - extern struct canvas *Can; - extern Widget PrintDialog_lp; - extern char *PrinterName; + FILE *fp; + Arg arg[10]; + int n; + static char *psfile = NULL; + Widget fshell,fdialog; + extern struct canvas *Can; + extern Widget PrintDialog_lp; + extern char *PrinterName; - w = W; - can = Can; - if (psfile == NULL || PrinterName == NULL) psfile = "lp"; - else psfile = PrinterName; - create_popup(can->shell,"Output PS file to printer",psfile,&fshell,&fdialog); - n = 0; - XtSetArg(arg[n], XtNlabel, "PS Printer Name : "); n++; - XtSetArg(arg[n], XtNvalue, psfile); n++; - XtSetValues(fdialog,arg,n); - XawDialogAddButton(fdialog,"output to PS printer",output_to_ps_printer,w); - XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); - PrintDialog_lp = fdialog; - XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + w = W; + can = Can; + if (psfile == NULL || PrinterName == NULL) psfile = "lp"; + else psfile = PrinterName; + create_popup(can->shell,"Output PS file to printer",psfile,&fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "PS Printer Name : "); n++; + XtSetArg(arg[n], XtNvalue, psfile); n++; + XtSetValues(fdialog,arg,n); + XawDialogAddButton(fdialog,"output to PS printer",output_to_ps_printer,w); + XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); + PrintDialog_lp = fdialog; + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } -static void cancel_output_to_file(w,fbutton,call) - Widget w; - XtPointer fbutton, call; +static void cancel_output_to_file(w,fbutton,call) + Widget w; + XtPointer fbutton, call; { - Widget shell = XtParent(XtParent(w)); - XtPopdown(shell); XtDestroyWidget(shell); - XtSetSensitive(fbutton,True); + Widget shell = XtParent(XtParent(w)); + XtPopdown(shell); XtDestroyWidget(shell); + XtSetSensitive(fbutton,True); } static void output_to_file(w,fbutton,call) - Widget w; - XtPointer fbutton, call; + Widget w; + XtPointer fbutton, call; { - char *fname; - FILE *fp; - int i; - char *m; - extern struct canvas *Can; - extern Widget PrintDialog; - extern int PrintingMethod; - Widget shell = XtParent(XtParent(w)); + char *fname; + FILE *fp; + int i; + char *m; + extern struct canvas *Can; + extern Widget PrintDialog; + extern int PrintingMethod; + Widget shell = XtParent(XtParent(w)); - if (PrintingMethod == PRINTING_METHOD_BITMAP) { - }else{ - method_is_not_available(); - XtPopdown(shell); XtDestroyWidget(shell); - XtSetSensitive(fbutton,True); - return; - } + if (PrintingMethod == PRINTING_METHOD_BITMAP) { + TODO; + }else{ + method_is_not_available(); + XtPopdown(shell); XtDestroyWidget(shell); + XtSetSensitive(fbutton,True); + return; + } - fname = XawDialogGetValueString(PrintDialog); - Fname = (char *)malloc(sizeof(char)*strlen(fname)+1); - strcpy(Fname,fname); - for (i=0; ipix, + int x,y; + XImage *image; + int color[1]; + int colorSize = 1; + char *m; + struct xcolorForPS *tableOfxcolorForPS; + extern int PrintingMethod; + fprintf(stderr,"generate_psfile\n"); + if (PrintingMethod == PRINTING_METHOD_BITMAP) { + if ( display ) { + fprintf(stderr,"generate_psfile: output to a file.\n"); + image = XGetImage(display,can->pix, 0,0,can->width,can->height,-1,ZPixmap); - colorSize = - getColorSizeOfImageForPS(can->width,can->height,image,&tableOfxcolorForPS); - color[0] = 0; /* black line */ - generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can,tableOfxcolorForPS,upsidedown); + color[0] = 0; /* black line */ + PSFromImage(fp,image,can); + }else{ + fprintf(stderr,"Cannot print on this system\n"); + } }else{ - fprintf(stderr,"Cannot print on this system\n"); + method_is_not_available(); } - }else{ - method_is_not_available(); - } - fflush(NULL); + fflush(NULL); } static void method_is_not_available() { @@ -1329,4 +1380,3 @@ static int getColorSizeOfImageForPS(int xsize,int ysiz *tableOfxcolorForPS = table; return size; } -