home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tkstep0.3b3 / tkstep0 / tkstep / tkMenu.c.diff < prev    next >
Encoding:
Text File  |  1996-07-08  |  9.8 KB  |  298 lines
  1. --- ../tk4.1/generic/tkMenu.c    Wed Mar 27 14:53:39 1996
  2. +++ tkMenu.c    Mon Jul  8 19:24:12 1996
  3. @@ -14,7 +14,11 @@
  4.   *
  5.   * SCCS: @(#) tkMenu.c 1.102 96/03/26 16:07:08
  6.   */
  7. -
  8. +/*
  9. + * TkSTEP modifications Copyright
  10. + * by Alfredo K. Kojima 
  11. + */ 
  12. + 
  13.  #include "tkPort.h"
  14.  #include "default.h"
  15.  #include "tkInt.h"
  16. @@ -403,8 +407,8 @@
  17.   * Various geometry definitions:
  18.   */
  19.  
  20. -#define CASCADE_ARROW_HEIGHT 10
  21. -#define CASCADE_ARROW_WIDTH 8
  22. +#define CASCADE_ARROW_HEIGHT 8
  23. +#define CASCADE_ARROW_WIDTH 7
  24.  #define DECORATION_BORDER_WIDTH 2
  25.  #define MARGIN_WIDTH 2
  26.  
  27. @@ -1636,7 +1640,7 @@
  28.          maxAccelWidth = width;
  29.      }
  30.      if (mePtr->type == SEPARATOR_ENTRY) {
  31. -        mePtr->height = 8;
  32. +        mePtr->height = 0; /*8;*/
  33.      }
  34.      if (mePtr->type == TEAROFF_ENTRY) {
  35.          mePtr->height = 12;
  36. @@ -1679,6 +1683,7 @@
  37.      if (height <= 0) {
  38.      height = 1;
  39.      }
  40. +    width+=2;
  41.      if ((width != Tk_ReqWidth(menuPtr->tkwin)) ||
  42.          (height != Tk_ReqHeight(menuPtr->tkwin))) {
  43.      Tk_GeometryRequest(menuPtr->tkwin, width, height);
  44. @@ -1724,13 +1729,33 @@
  45.      XFontStruct *fontPtr;
  46.      int index, baseline, strictMotif, leftEdge, y,  height;
  47.      GC gc;
  48. -    XPoint points[3];
  49.  
  50.      menuPtr->flags &= ~REDRAW_PENDING;
  51.      if ((menuPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
  52.      return;
  53.      }
  54.  
  55. +    /* 
  56. +     * Draw Window border before
  57. +     */
  58. +    if (menuPtr->transient) {    
  59. +    Tk_Draw3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  60. +        menuPtr->border, 0, 0, Tk_Width(tkwin), Tk_Height(tkwin),
  61. +        menuPtr->borderWidth, menuPtr->relief);
  62. +    } else {
  63. +    XDrawLine(menuPtr->display, Tk_WindowId(tkwin), 
  64. +            Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_LIGHT_GC),
  65. +            0,0, Tk_Width(tkwin)-1, 0);
  66. +    XDrawLine(menuPtr->display, Tk_WindowId(tkwin), 
  67. +            Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_LIGHT_GC),
  68. +            0, 0, 0, Tk_Height(tkwin));
  69. +    XDrawLine(menuPtr->display, Tk_WindowId(tkwin), 
  70. +            Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_DARK_GC),
  71. +            Tk_Width(tkwin)-1, 0, Tk_Width(tkwin)-1, Tk_Height(tkwin));
  72. +    XDrawLine(menuPtr->display, Tk_WindowId(tkwin),
  73. +              Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_DARK_GC),
  74. +          0, Tk_Height(tkwin), Tk_Width(tkwin)-1, Tk_Height(tkwin));
  75. +    }    
  76.      /*
  77.       * Loop through all of the entries, drawing them one at a time.
  78.       */
  79. @@ -1740,11 +1765,32 @@
  80.          + menuPtr->activeBorderWidth;
  81.      for (index = 0; index < menuPtr->numEntries; index++) {
  82.      mePtr = menuPtr->entries[index];
  83. -    if (!(mePtr->flags & ENTRY_NEEDS_REDISPLAY)) {
  84. +    if (mePtr->type==SEPARATOR_ENTRY) {
  85. +        continue;
  86. +    }    
  87. +    /* 
  88. +     * Draw top and bottom part of entry bevel 
  89. +     */
  90. +    if (index!=0) {
  91. +        XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  92. +        Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border,
  93. +        TK_3D_LIGHT_GC), 0, mePtr->y, Tk_Width(tkwin)-2, mePtr->y);
  94. +    }
  95. +    if (index<menuPtr->numEntries-1) {        
  96. +        XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  97. +              Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border,
  98. +        TK_3D_DARK_GC), 0, mePtr->y+mePtr->height-2, Tk_Width(tkwin)-1,
  99. +        mePtr->y+mePtr->height-2);
  100. +        XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  101. +        Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border,
  102. +        TK_3D_DARK2_GC), 0, mePtr->y+mePtr->height-1,Tk_Width(tkwin),
  103. +        mePtr->y+mePtr->height-1);
  104. +    }
  105. +    
  106. +    if (!(mePtr->flags & ENTRY_NEEDS_REDISPLAY)) {        
  107.          continue;
  108.      }
  109.      mePtr->flags &= ~ENTRY_NEEDS_REDISPLAY;
  110. -
  111.      /*
  112.       * Background.
  113.       */
  114. @@ -1753,25 +1799,22 @@
  115.      if (bgBorder == NULL) {
  116.          bgBorder = menuPtr->border;
  117.      }
  118. -    if (strictMotif) {
  119. -        activeBorder = bgBorder;
  120. -    } else {
  121. -        activeBorder = mePtr->activeBorder;
  122. -        if (activeBorder == NULL) {
  123. -        activeBorder = menuPtr->activeBorder;
  124. -        }
  125. +    activeBorder = mePtr->activeBorder;
  126. +    if (activeBorder == NULL) {
  127. +        activeBorder = menuPtr->activeBorder;
  128.      }
  129. +    
  130.      if (mePtr->state == tkActiveUid) {
  131. -        bgBorder = activeBorder;
  132. -        Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  133. -            bgBorder, menuPtr->borderWidth, mePtr->y,
  134. -            Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  135. -            menuPtr->activeBorderWidth, TK_RELIEF_RAISED);
  136. +        XFillRectangle(menuPtr->display, Tk_WindowId(tkwin),
  137. +            Tk_3DBorderGC(tkwin,activeBorder,TK_3D_FLAT_GC), 
  138. +            menuPtr->borderWidth-1, mePtr->y+1,
  139. +            Tk_Width(tkwin)-2*menuPtr->borderWidth+1, mePtr->height-3);
  140. +            
  141.      } else {
  142. -        Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  143. -            bgBorder, menuPtr->borderWidth, mePtr->y,
  144. -            Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  145. -            0, TK_RELIEF_FLAT);
  146. +        XFillRectangle(menuPtr->display, Tk_WindowId(tkwin),
  147. +            Tk_3DBorderGC(tkwin,bgBorder,TK_3D_FLAT_GC), 
  148. +            menuPtr->borderWidth-1, mePtr->y+1,
  149. +            Tk_Width(tkwin)-2*menuPtr->borderWidth+1, mePtr->height-3);
  150.      }
  151.  
  152.      /*
  153. @@ -1798,6 +1841,7 @@
  154.          }
  155.      }
  156.  
  157. +    
  158.      /*
  159.       * Draw label or bitmap or image for entry.
  160.       */
  161. @@ -1851,18 +1895,23 @@
  162.       */
  163.  
  164.      if (mePtr->type == CASCADE_ENTRY) {
  165. -        points[0].x = Tk_Width(tkwin) - menuPtr->borderWidth
  166. +        int x,u;
  167. +
  168. +        x = Tk_Width(tkwin) - menuPtr->borderWidth 
  169.              - menuPtr->activeBorderWidth - MARGIN_WIDTH
  170.              - CASCADE_ARROW_WIDTH;
  171. -        points[0].y = mePtr->y + (mePtr->height - CASCADE_ARROW_HEIGHT)/2;
  172. -        points[1].x = points[0].x;
  173. -        points[1].y = points[0].y + CASCADE_ARROW_HEIGHT;
  174. -        points[2].x = points[0].x + CASCADE_ARROW_WIDTH;
  175. -        points[2].y = points[0].y + CASCADE_ARROW_HEIGHT/2;
  176. -        Tk_Fill3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin), activeBorder,
  177. -            points, 3, DECORATION_BORDER_WIDTH,
  178. -            (menuPtr->postedCascade == mePtr) ? TK_RELIEF_SUNKEN
  179. -            : TK_RELIEF_RAISED);
  180. +        y = mePtr->y + (mePtr->height - CASCADE_ARROW_HEIGHT)/2;
  181. +          XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  182. +            Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border, 
  183. +            TK_3D_DARK2_GC), x, y, x, y+CASCADE_ARROW_HEIGHT);
  184. +        XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  185. +            Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border, 
  186. +            TK_3D_DARK_GC), x, y, x+CASCADE_ARROW_WIDTH, 
  187. +            y+CASCADE_ARROW_HEIGHT/2);
  188. +        XDrawLine(menuPtr->display, Tk_WindowId(menuPtr->tkwin),
  189. +            Tk_3DBorderGC(menuPtr->tkwin, menuPtr->border, 
  190. +            TK_3D_LIGHT_GC), x, y+CASCADE_ARROW_HEIGHT, 
  191. +            x+CASCADE_ARROW_WIDTH, y+CASCADE_ARROW_HEIGHT/2);
  192.      } else if (mePtr->accel != NULL) {
  193.          TkDisplayChars(menuPtr->display, Tk_WindowId(tkwin), gc,
  194.              fontPtr, mePtr->accel, mePtr->accelLength,
  195. @@ -1887,13 +1936,13 @@
  196.          y = mePtr->y + (mePtr->height - dim)/2;
  197.          Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  198.              menuPtr->border, x, y, dim, dim,
  199. -            DECORATION_BORDER_WIDTH, TK_RELIEF_SUNKEN);
  200. +            DECORATION_BORDER_WIDTH, TK_RELIEF_RAISED);
  201.          x += DECORATION_BORDER_WIDTH;
  202.          y += DECORATION_BORDER_WIDTH;
  203.          dim -= 2*DECORATION_BORDER_WIDTH;
  204.          if ((dim > 0) && (mePtr->flags & ENTRY_SELECTED)) {
  205. -        XFillRectangle(menuPtr->display, Tk_WindowId(tkwin), gc,
  206. -            x, y, (unsigned int) dim, (unsigned int) dim);
  207. +        Tk_DrawCheckMark(menuPtr->display, tkwin, Tk_WindowId(tkwin),
  208. +            x, y-3, menuPtr->border);
  209.          }
  210.      }
  211.  
  212. @@ -1902,47 +1951,29 @@
  213.       */
  214.  
  215.      if ((mePtr->type == RADIO_BUTTON_ENTRY) && mePtr->indicatorOn) {
  216. -        XPoint points[4];
  217.          int radius;
  218. +        int x, y;
  219.  
  220. -        radius = mePtr->indicatorDiameter/2;
  221. -        points[0].x = menuPtr->borderWidth + menuPtr->activeBorderWidth
  222. +        radius = mePtr->indicatorDiameter/2-1;
  223. +        x = menuPtr->borderWidth + menuPtr->activeBorderWidth
  224.              + (menuPtr->indicatorSpace - mePtr->indicatorDiameter)/2;
  225. -        points[0].y = mePtr->y + (mePtr->height)/2;
  226. -        points[1].x = points[0].x + radius;
  227. -        points[1].y = points[0].y + radius;
  228. -        points[2].x = points[1].x + radius;
  229. -        points[2].y = points[0].y;
  230. -        points[3].x = points[1].x;
  231. -        points[3].y = points[0].y - radius;
  232. +        y = mePtr->y + (mePtr->height-mePtr->indicatorDiameter)/2;
  233. +        Tk_Draw3DCircle(menuPtr->display, tkwin, Tk_WindowId(tkwin),
  234. +        x, y, menuPtr->borderWidth, radius, TK_RELIEF_SUNKEN,
  235. +        menuPtr->border);
  236.          if (mePtr->flags & ENTRY_SELECTED) {
  237. -        XFillPolygon(menuPtr->display, Tk_WindowId(tkwin), gc,
  238. -            points, 4, Convex, CoordModeOrigin);
  239. +        gc = Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_LIGHT_GC);
  240. +        XFillArc(menuPtr->display, Tk_WindowId(tkwin), gc, 
  241. +             x+menuPtr->borderWidth, y+menuPtr->borderWidth, 
  242. +             radius*2-menuPtr->borderWidth-1,
  243. +             radius*2-menuPtr->borderWidth-1,0,360*64);
  244.          } else {
  245. -        Tk_Fill3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
  246. -            menuPtr->border, points, 4, DECORATION_BORDER_WIDTH,
  247. -            TK_RELIEF_FLAT);
  248. -        }
  249. -        Tk_Draw3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
  250. -            menuPtr->border, points, 4, DECORATION_BORDER_WIDTH,
  251. -            TK_RELIEF_SUNKEN);
  252. -    }
  253. -
  254. -    /*
  255. -     * Draw separator.
  256. -     */
  257. -
  258. -    if (mePtr->type == SEPARATOR_ENTRY) {
  259. -        XPoint points[2];
  260. -        int margin;
  261. -
  262. -        margin = (fontPtr->ascent + fontPtr->descent)/2;
  263. -        points[0].x = 0;
  264. -        points[0].y = mePtr->y + mePtr->height/2;
  265. -        points[1].x = Tk_Width(tkwin) - 1;
  266. -        points[1].y = points[0].y;
  267. -        Tk_Draw3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
  268. -            menuPtr->border, points, 2, 1, TK_RELIEF_RAISED);
  269. +        gc = Tk_3DBorderGC(tkwin, menuPtr->border, TK_3D_FLAT_GC);
  270. +        XFillArc(menuPtr->display, Tk_WindowId(tkwin), gc, 
  271. +             x+menuPtr->borderWidth, y+menuPtr->borderWidth, 
  272. +             radius*2-menuPtr->borderWidth-1,
  273. +             radius*2-menuPtr->borderWidth-1,0,360*64);
  274. +        }        
  275.      }
  276.  
  277.      /*
  278. @@ -1955,7 +1986,7 @@
  279.  
  280.          margin = (fontPtr->ascent + fontPtr->descent)/2;
  281.          points[0].x = 0;
  282. -        points[0].y = mePtr->y + mePtr->height/2;
  283. +        points[0].y = mePtr->y + mePtr->height/2-1;
  284.          points[1].y = points[0].y;
  285.          width = 6;
  286.          maxX  = Tk_Width(tkwin) - 1;
  287. @@ -2004,9 +2035,7 @@
  288.          height, 0, TK_RELIEF_FLAT);
  289.      }
  290.  
  291. -    Tk_Draw3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  292. -        menuPtr->border, 0, 0, Tk_Width(tkwin), Tk_Height(tkwin),
  293. -        menuPtr->borderWidth, menuPtr->relief);
  294. +
  295.  }
  296.  
  297.  /*
  298.