home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / src / x11_windows.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-19  |  13.3 KB  |  527 lines
  1. /* x11_windows.c -- Window handling for X11
  2.    Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
  3.  
  4. This file is part of Jade.
  5.  
  6. Jade is free software; you can redistribute it and/or modify it
  7. under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. Jade is distributed in the hope that it will be useful, but
  12. WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with Jade; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include "jade.h"
  21. #include "jade_protos.h"
  22. #include "revision.h"
  23.  
  24. #include <string.h>
  25. #include <X11/Xutil.h>
  26.  
  27. _PR int sleepwin(VW *);
  28. _PR int unsleep(VW *);
  29. _PR void os_newvw(VW *);
  30. _PR void os_killvw(VW *);
  31. _PR void updatedimensions(VW *);
  32. _PR void _updatedimensions(VW *, int, int);
  33. _PR Window newwindow(VW *, VW *, bool);
  34. _PR void killwindow(VW *);
  35. _PR void activatewin(VW *);
  36. _PR void setvwtitle(VW *);
  37. _PR void setvwpos(VW *, long, long, long, long);
  38. _PR VW *findwindowvw(Window);
  39. _PR int ezreq(u_char *, u_char *, int, ...);
  40. _PR int setfont(VW *);
  41. _PR void unsetfont(VW *);
  42. _PR void resetslptxtitles(TX *);
  43. _PR bool makemousepos(POS *, VW *);
  44. _PR void sys_windows_init(void);
  45.  
  46. #define INPUT_EVENTS ButtonPressMask | ButtonReleaseMask | KeyPressMask \
  47.              | ExposureMask | StructureNotifyMask | FocusChangeMask
  48.  
  49. static XSizeHints SizeHints;
  50. static XClassHint ClassHints = { "jade", "Editor" };
  51. static XWMHints WMHints;
  52.  
  53. /*
  54.  * Let the window-manager handle all iconifying...
  55.  */
  56. int
  57. sleepwin(VW *vw)
  58. {
  59.     XIconifyWindow(XDisplay, vw->vw_Window, XScreen);
  60.     return(TRUE);
  61. }
  62. int
  63. unsleep(VW *vw)
  64. {
  65.     return(TRUE);
  66. }
  67.  
  68. void
  69. os_newvw(VW *vw)
  70. {
  71.     ;
  72. }
  73. void
  74. os_killvw(VW *vw)
  75. {
  76.     ;
  77. }
  78.  
  79. void
  80. updatedimensions(VW *vw)
  81. {
  82.     XWindowAttributes xwa;
  83.     XGetWindowAttributes(XDisplay, vw->vw_Window, &xwa);
  84.     _updatedimensions(vw, xwa.width, xwa.height);
  85. }
  86.  
  87. void
  88. _updatedimensions(VW *vw, int width, int height)
  89. {
  90.     if(vw->vw_Window && !vw->vw_Sleeping)
  91.     {
  92.     vw->vw_WindowSys.ws_MessageLineY = height - vw->vw_FontY - 2;
  93.     vw->vw_WindowSys.ws_MessageFontY = vw->vw_WindowSys.ws_MessageLineY + 2 + vw->vw_Font->ascent;
  94.     vw->vw_XStartPix = 0;
  95.     vw->vw_YStartPix = 0;
  96.     /*
  97.      * only measure *text* area, not where messages go
  98.      */
  99.     vw->vw_XEndPix = width;
  100.     vw->vw_YEndPix = (vw->vw_WindowSys.ws_MessageLineY - 1) - vw->vw_YStartPix;
  101.     vw->vw_XWidthPix = vw->vw_XEndPix - vw->vw_XStartPix;
  102.     vw->vw_YHeightPix = vw->vw_YEndPix - vw->vw_YStartPix;
  103.  
  104.     vw->vw_FontStart = vw->vw_YStartPix + vw->vw_Font->ascent;
  105.  
  106.     vw->vw_MaxX = (vw->vw_XWidthPix / vw->vw_FontX);
  107.     vw->vw_MaxY = (vw->vw_YHeightPix / vw->vw_FontY);
  108.     if((vw->vw_XStepRatio <= 0)
  109.        || ((vw->vw_XStep = vw->vw_MaxX / vw->vw_XStepRatio) <= 0))
  110.         vw->vw_XStep = 1;
  111.     if((vw->vw_YStepRatio <= 0)
  112.        || ((vw->vw_YStep = vw->vw_MaxY / vw->vw_YStepRatio) <= 0))
  113.         vw->vw_YStep = 1;
  114.     }
  115. }
  116.  
  117. /*
  118.  * The only thing necessary in `vw' is the font stuff (I think)
  119.  */
  120. Window
  121. newwindow(VW *oldVW, VW *vw, bool useDefDims)
  122. {
  123.     unsigned int x, y, width, height;
  124.     Window win;
  125.     SizeHints.flags = 0;
  126.     if(!useDefDims && oldVW)
  127.     {
  128.     x = y = 0;
  129.     width = vw->vw_FontX * oldVW->vw_MaxX;
  130.     height = (vw->vw_FontY * (oldVW->vw_MaxY + 1)) + 3;
  131.     SizeHints.flags |= PPosition | PSize;
  132.     }
  133.     else
  134.     {
  135.     if(DefDims[0] != -1)
  136.     {
  137.         x = DefDims[0];
  138.         SizeHints.flags |= USPosition;
  139.     }
  140.     else
  141.         x = 0;
  142.     if(DefDims[1] != -1)
  143.     {
  144.         y = DefDims[1];
  145.         SizeHints.flags |= USPosition;
  146.     }
  147.     else
  148.         y = 0;
  149.     if(DefDims[2] != -1)
  150.     {
  151.         width = DefDims[2];
  152.         SizeHints.flags |= USSize;
  153.     }
  154.     else
  155.         width = 80;
  156.     if(DefDims[3] != -1)
  157.     {
  158.         height = DefDims[3];
  159.         SizeHints.flags |= USSize;
  160.     }
  161.     else
  162.         height = 24;
  163.     width = vw->vw_FontX * width;
  164.     height = (vw->vw_FontY * (height + 1)) + 3;
  165.     }
  166.     win = XCreateSimpleWindow(XDisplay, DefaultRootWindow(XDisplay),
  167.                   x, y, width, height,
  168.                   WINDOW_BORDER_WIDTH, XForePixel, XBackPixel);
  169.     if(win)
  170.     {
  171.     XGCValues xgcv;
  172.     vw->vw_Window = win;
  173. /*
  174.  *    xgcv.plane_mask = XForePixel | XBackPixel;
  175.  */
  176.     xgcv.foreground = XForePixel;
  177.     xgcv.background = XBackPixel;
  178.     xgcv.line_width = 1;
  179.     xgcv.font = vw->vw_Font->fid;
  180.     vw->vw_WindowSys.ws_TextFontGC = XCreateGC(XDisplay, vw->vw_Window,
  181.                            GCForeground | GCBackground
  182.                            | GCLineWidth | GCFont,
  183.                            &xgcv);
  184.     xgcv.foreground = XBackPixel;
  185.     xgcv.background = XForePixel;
  186.     vw->vw_WindowSys.ws_BlkFontGC = XCreateGC(XDisplay, vw->vw_Window,
  187.                           GCForeground | GCBackground
  188.                           | GCLineWidth | GCFont,
  189.                           &xgcv);
  190.     SizeHints.x = x,
  191.     SizeHints.y = y,
  192.     SizeHints.width = width,
  193.     SizeHints.height = height,
  194.     SizeHints.base_width = 0;
  195.     SizeHints.base_height = vw->vw_FontY + 3;
  196.     SizeHints.width_inc = vw->vw_FontX;
  197.     SizeHints.height_inc = vw->vw_FontY;
  198.     SizeHints.min_width = SizeHints.base_width + SizeHints.width_inc;
  199.     SizeHints.min_height = SizeHints.base_height + SizeHints.height_inc;
  200.     SizeHints.flags |= PMinSize | PResizeInc | PBaseSize;
  201.     WMHints.flags = InputHint;
  202.     WMHints.input = True;
  203.     XSetWMProperties(XDisplay, win, NULL, NULL, Argv, Argc, &SizeHints, &WMHints, &ClassHints);
  204.     XStoreName(XDisplay, win, /* "jade" */ VERSSTRING);
  205.     XSetWMProtocols(XDisplay, win, &Wm_Del_Win, 1);
  206.     XSelectInput(XDisplay, win, INPUT_EVENTS);
  207.     XMapWindow(XDisplay, win);
  208.     return(win);
  209.     }
  210.     return(FALSE);
  211. }
  212. void
  213. killwindow(VW *vw)
  214. {
  215.     XFreeGC(XDisplay, vw->vw_WindowSys.ws_BlkFontGC);
  216.     XFreeGC(XDisplay, vw->vw_WindowSys.ws_TextFontGC);
  217.     XDestroyWindow(XDisplay, vw->vw_Window);
  218. }
  219.  
  220. void
  221. activatewin(VW *vw)
  222. {
  223.     /* Not sure about all this??  */
  224.     XRaiseWindow(XDisplay, vw->vw_Window);
  225.     XWarpPointer(XDisplay, None, vw->vw_Window, 0, 0, 0, 0, 1, 1);
  226. }
  227.  
  228. void
  229. setvwtitle(VW *vw)
  230. {
  231.     if(vw->vw_LastTitle)
  232.     {
  233.     int len = strlen(vw->vw_LastTitle);
  234.     if(len > vw->vw_MaxX)
  235.         drawmsg(vw, vw->vw_LastTitle + (len - vw->vw_MaxX), vw->vw_MaxX);
  236.     else
  237.         drawmsg(vw, vw->vw_LastTitle, strlen(vw->vw_LastTitle));
  238.     }
  239.     else
  240.     drawmsg(vw, "", 0);
  241. }
  242.  
  243. void
  244. setvwpos(VW *vw, long x, long y, long w, long h)
  245. {
  246.     XMoveResizeWindow(XDisplay, vw->vw_Window,
  247.               (unsigned int)x, (unsigned int)y,
  248.               (unsigned int)w, (unsigned int)h);
  249. }
  250.  
  251. VW *
  252. findwindowvw(Window win)
  253. {
  254.     VW *vw = ViewChain;
  255.     while(vw)
  256.     {
  257.     if(vw->vw_Window == win)
  258.         break;
  259.     vw = vw->vw_Next;
  260.     }
  261.     return(vw);
  262. }
  263.  
  264. int
  265. ezreq(u_char *bodyfmt, u_char *gadfmt, int arg1, ...)
  266. {
  267.     return(0);
  268. }
  269.  
  270. int
  271. setfont(VW *vw)
  272. {
  273.     XFontStruct *font;
  274.     if((font = XLoadQueryFont(XDisplay, VSTR(vw->vw_FontName)))
  275.        || (font = XLoadQueryFont(XDisplay, DEFAULT_FONT)))
  276.     {
  277.     if(vw->vw_Font)
  278.         XFreeFont(XDisplay, vw->vw_Font);
  279.     vw->vw_Font = font;
  280.     vw->vw_FontX = XTextWidth(font, "M", 1);
  281.     vw->vw_FontY = vw->vw_Font->ascent + vw->vw_Font->descent;
  282.     if(vw->vw_Window)
  283.     {
  284.         int w, h;
  285.         w = vw->vw_MaxX * vw->vw_FontX;
  286.         h = ((vw->vw_MaxY + 1) * vw->vw_FontY) + 3;
  287.         XSetFont(XDisplay, vw->vw_WindowSys.ws_TextFontGC, font->fid);
  288.         XSetFont(XDisplay, vw->vw_WindowSys.ws_BlkFontGC, font->fid);
  289.         updatedimensions(vw);
  290.         SizeHints.width = w;
  291.         SizeHints.height = h;
  292.         SizeHints.base_width = 0;
  293.         SizeHints.base_height = vw->vw_FontY + 3;
  294.         SizeHints.width_inc = vw->vw_FontX;
  295.         SizeHints.height_inc = vw->vw_FontY;
  296.         SizeHints.min_width = SizeHints.base_width + SizeHints.width_inc;
  297.         SizeHints.min_height = SizeHints.base_height + SizeHints.height_inc;
  298.         SizeHints.flags = PResizeInc | PMinSize | PBaseSize;
  299.         XSetWMNormalHints(XDisplay, vw->vw_Window, &SizeHints);
  300.         XResizeWindow(XDisplay, vw->vw_Window, w, h);
  301. #if 0
  302.         vw->vw_DeferRefresh++;
  303. #endif
  304.     }
  305.     return(TRUE);
  306.     }
  307.     return(FALSE);
  308. }
  309. void
  310. unsetfont(VW *vw)
  311. {
  312.     if(vw->vw_Font)
  313.     {
  314.     XFreeFont(XDisplay, vw->vw_Font);
  315.     vw->vw_Font = NULL;
  316.     }
  317. }
  318.  
  319. _PR VALUE cmd_set_font(VALUE fontname, VALUE vw);
  320. DEFUN("set-font", cmd_set_font, subr_set_font, (VALUE fontname, VALUE vw), V_Subr2, DOC_set_font) /*
  321. ::doc:set_font::
  322. (set-font FONT-NAME [WINDOW])
  323. FONT-NAME specifies the font to use in WINDOW (or the active one).
  324. Under X11 FONT-NAME is a standard font description, under AmigaDOS it is the
  325. name of the font followed by a dash and then the point size to use (for
  326. example "topaz.font-8" to get an 8-point topaz font).
  327. ::end:: */
  328. {
  329.     VALUE oldfont;
  330.     DECLARE1(fontname, STRINGP);
  331.     if(!WINDOWP(vw))
  332.     vw = CurrVW;
  333.     oldfont = VWIN(vw)->vw_FontName;
  334.     VWIN(vw)->vw_FontName = fontname;
  335.     if(setfont(VWIN(vw)))
  336.     {
  337.     VWIN(vw)->vw_Flags |= VWFF_FORCE_REFRESH;
  338. #if 0
  339.     VWIN(vw)->vw_DeferRefresh++;
  340. #endif
  341.     return(sym_t);
  342.     }
  343.     else
  344.     {
  345.     cmd_signal(sym_error, list_2(MKSTR("Can't open font"), fontname));
  346.     VWIN(vw)->vw_FontName = oldfont;
  347.     return(NULL);
  348.     }
  349. }
  350.  
  351. void
  352. resetslptxtitles(TX *tx)
  353. {
  354.     ;
  355. }
  356.  
  357. _PR VALUE cmd_screen_width(void);
  358. DEFUN("screen-width", cmd_screen_width, subr_screen_width, (void), V_Subr0, DOC_screen_width) /*
  359. ::doc:screen_width::
  360. (screen-width)
  361. Returns the width of the root window or screen in pixels.
  362. ::end:: */
  363. {
  364.     Window root;
  365.     int dummy1;
  366.     unsigned int dummy2;
  367.     int val;
  368.     if(XGetGeometry(XDisplay, DefaultRootWindow(XDisplay),
  369.             &root, &dummy1, &dummy1,
  370.             (unsigned int *)&val, &dummy2,
  371.             &dummy2, &dummy2))
  372.     return(newnumber(val));
  373.     return(NULL);
  374. }
  375.  
  376. _PR VALUE cmd_screen_height(void);
  377. DEFUN("screen-height", cmd_screen_height, subr_screen_height, (void), V_Subr0, DOC_screen_height) /*
  378. ::doc:screen_height::
  379. (screen-height)
  380. Returns the height of the root window or screen in pixels.
  381. ::end:: */
  382. {
  383.     Window root;
  384.     int dummy1;
  385.     unsigned int dummy2;
  386.     int val;
  387.     if(XGetGeometry(XDisplay, DefaultRootWindow(XDisplay),
  388.             &root, &dummy1, &dummy1,
  389.             &dummy2, (unsigned int *)&val,
  390.             &dummy2, &dummy2))
  391.     return(newnumber(val));
  392.     return(NULL);
  393. }
  394.  
  395. _PR VALUE cmd_window_left_edge(void);
  396. DEFUN("window-left-edge", cmd_window_left_edge, subr_window_left_edge, (void), V_Subr0, DOC_window_left_edge) /*
  397. ::doc:window_left_edge::
  398. (window-left-edge)
  399. Returns the x position of the current window relative to the origin of the
  400. root window or screen.
  401. ::end:: */
  402. {
  403.     Window root;
  404.     int dummy1;
  405.     unsigned int dummy2;
  406.     int val;
  407.     if(XGetGeometry(XDisplay, CurrVW->vw_Window,
  408.             &root, &val, &dummy1,
  409.             &dummy2, &dummy2,
  410.             &dummy2, &dummy2))
  411.     return(newnumber(val));
  412.     return(NULL);
  413. }
  414.  
  415. _PR VALUE cmd_window_top_edge(void);
  416. DEFUN("window-top-edge", cmd_window_top_edge, subr_window_top_edge, (void), V_Subr0, DOC_window_top_edge) /*
  417. ::doc:window_top_edge::
  418. (window-top-edge)
  419. Returns the y position of the current window relative to the origin of the
  420. root window or screen.
  421. ::end:: */
  422. {
  423.     Window root;
  424.     int dummy1;
  425.     unsigned int dummy2;
  426.     int val;
  427.     if(XGetGeometry(XDisplay, CurrVW->vw_Window,
  428.             &root, &dummy1, &val,
  429.             &dummy2, &dummy2,
  430.             &dummy2, &dummy2))
  431.     return(newnumber(val));
  432.     return(NULL);
  433. }
  434.  
  435. _PR VALUE cmd_window_width(void);
  436. DEFUN("window-width", cmd_window_width, subr_window_width, (void), V_Subr0, DOC_window_width) /*
  437. ::doc:window_width::
  438. (window-width)
  439. Returns the width, in pixels, of the current window.
  440. ::end:: */
  441. {
  442.     Window root;
  443.     int dummy1;
  444.     unsigned int dummy2;
  445.     int val;
  446.     if(XGetGeometry(XDisplay, CurrVW->vw_Window,
  447.             &root, &dummy1, &dummy1,
  448.             (unsigned int *)&val, &dummy2,
  449.             &dummy2, &dummy2))
  450.     return(newnumber(val));
  451.     return(NULL);
  452. }
  453.  
  454. _PR VALUE cmd_window_height(void);
  455. DEFUN("window-height", cmd_window_height, subr_window_height, (void), V_Subr0, DOC_window_height) /*
  456. ::doc:window_height::
  457. (window-height)
  458. Returns the height, in pixels, of the current window.
  459. ::end:: */
  460. {
  461.     Window root;
  462.     int dummy1;
  463.     unsigned int dummy2;
  464.     int val;
  465.     if(XGetGeometry(XDisplay, CurrVW->vw_Window,
  466.             &root, &dummy1, &dummy1,
  467.             &dummy2, (unsigned int *)&val,
  468.             &dummy2, &dummy2))
  469.     return(newnumber(val));
  470.     return(NULL);
  471. }
  472.  
  473. _PR VALUE cmd_window_bar_height(void);
  474. DEFUN("window-bar-height", cmd_window_bar_height, subr_window_bar_height, (void), V_Subr0, DOC_window_bar_height) /*
  475. ::doc:window_bar_height::
  476. (window-bar-height)
  477. On an Amiga returns the number of pixels high the title bar of the window
  478. is. This is 0 in X11.
  479. ::end:: */
  480. {
  481.     return(newnumber(0));
  482. }
  483.  
  484. bool
  485. makemousepos(POS *pos, VW *vw)
  486. {
  487.     Window tmpw;
  488.     int tmp;
  489.     int x, y;
  490.     if(XQueryPointer(XDisplay, vw->vw_Window, &tmpw, &tmpw, &tmp, &tmp, &x, &y, &tmp))
  491.     {
  492.        x = (x - vw->vw_XStartPix) / vw->vw_FontX;
  493.        y = (y - vw->vw_YStartPix) / vw->vw_FontY;
  494.        if((x < 0) || (y < 0) || (x >= vw->vw_MaxX) || (y >= vw->vw_MaxY))
  495.        return(FALSE);
  496.        pos->pos_Col = x + vw->vw_StartCol;
  497.        pos->pos_Line = y + vw->vw_StartLine;
  498.        return(TRUE);
  499.     }
  500.     return(FALSE);
  501. }
  502.  
  503. _PR VALUE cmd_flush_output(void);
  504. DEFUN("flush-output", cmd_flush_output, subr_flush_output, (void), V_Subr0, DOC_flush_output) /*
  505. ::doc:flush_output::
  506. (flush-output)
  507. Forces any cached window output to be drawn. This is usually unnecessary.
  508. ::end:: */
  509. {
  510.     XFlush(XDisplay);
  511.     return(sym_t);
  512. }
  513.  
  514. void
  515. sys_windows_init(void)
  516. {
  517.     ADD_SUBR(subr_set_font);
  518.     ADD_SUBR(subr_screen_width);
  519.     ADD_SUBR(subr_screen_height);
  520.     ADD_SUBR(subr_window_left_edge);
  521.     ADD_SUBR(subr_window_top_edge);
  522.     ADD_SUBR(subr_window_width);
  523.     ADD_SUBR(subr_window_height);
  524.     ADD_SUBR(subr_window_bar_height);
  525.     ADD_SUBR(subr_flush_output);
  526. }
  527.