Mercurial > hg > xemacs-beta

annotate lwlib/xlwtabsP.h @ 5136:0f66906b6e37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Undo Assert-equal, Assert=, etc.; make `Assert' handle this automatically -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-03-12 Ben Wing <ben@xemacs.org> * test-harness.el (test-harness-from-buffer): Undo change of e.g. (Assert (equalp ...)) to (Assert-equalp ...). Get rid of `Assert-equalp' and friends, `Assert-test', and `Assert-test-not'. Instead, make `Assert' smart enough to do the equivalent functionality when an expression like (Assert (equalp ...)) is seen. tests/ChangeLog addition: 2010-03-12 Ben Wing <ben@xemacs.org> * automated/base64-tests.el (bt-base64-encode-string): * automated/base64-tests.el (bt-base64-decode-string): * automated/base64-tests.el (for): * automated/byte-compiler-tests.el: * automated/byte-compiler-tests.el (before-and-after-compile-equal): * automated/case-tests.el (downcase-string): * automated/case-tests.el (uni-mappings): * automated/ccl-tests.el (ccl-test-normal-expr): * automated/ccl-tests.el (ccl-test-map-instructions): * automated/ccl-tests.el (ccl-test-suites): * automated/database-tests.el (delete-database-files): * automated/extent-tests.el (let): * automated/extent-tests.el (insert): * automated/extent-tests.el (props): * automated/file-tests.el: * automated/file-tests.el (for): * automated/hash-table-tests.el (test): * automated/hash-table-tests.el (for): * automated/hash-table-tests.el (ht): * automated/hash-table-tests.el (iterations): * automated/hash-table-tests.el (h1): * automated/hash-table-tests.el (equal): * automated/hash-table-tests.el (=): * automated/lisp-tests.el: * automated/lisp-tests.el (eq): * automated/lisp-tests.el (test-setq): * automated/lisp-tests.el (my-vector): * automated/lisp-tests.el (x): * automated/lisp-tests.el (equal): * automated/lisp-tests.el (y): * automated/lisp-tests.el (featurep): * automated/lisp-tests.el (=): * automated/lisp-tests.el (six): * automated/lisp-tests.el (three): * automated/lisp-tests.el (one): * automated/lisp-tests.el (two): * automated/lisp-tests.el (five): * automated/lisp-tests.el (test1): * automated/lisp-tests.el (division-test): * automated/lisp-tests.el (for): * automated/lisp-tests.el (check-function-argcounts): * automated/lisp-tests.el (z): * automated/lisp-tests.el (eql): * automated/lisp-tests.el (test-harness-risk-infloops): * automated/lisp-tests.el (erase-buffer): * automated/lisp-tests.el (sym): * automated/lisp-tests.el (new-char): * automated/lisp-tests.el (new-load-file-name): * automated/lisp-tests.el (cl-floor): * automated/lisp-tests.el (foo): * automated/md5-tests.el (lambda): * automated/md5-tests.el (large-string): * automated/md5-tests.el (mapcar): * automated/md5-tests.el (insert): * automated/mule-tests.el: * automated/mule-tests.el (test-chars): * automated/mule-tests.el (existing-file-name): * automated/mule-tests.el (featurep): * automated/query-coding-tests.el (featurep): * automated/regexp-tests.el: * automated/regexp-tests.el (insert): * automated/regexp-tests.el (Assert): * automated/regexp-tests.el (=): * automated/regexp-tests.el (featurep): * automated/regexp-tests.el (text): * automated/regexp-tests.el (text1): * automated/regexp-tests.el ("aáa"): * automated/regexp-tests.el (eql): * automated/search-tests.el (insert): * automated/search-tests.el (featurep): * automated/search-tests.el (let): * automated/search-tests.el (boundp): * automated/symbol-tests.el: * automated/symbol-tests.el (name): * automated/symbol-tests.el (check-weak-list-unique): * automated/symbol-tests.el (string): * automated/symbol-tests.el (list): * automated/symbol-tests.el (foo): * automated/symbol-tests.el (eq): * automated/symbol-tests.el (fresh-keyword-name): * automated/symbol-tests.el (print-gensym): * automated/symbol-tests.el (mysym): * automated/syntax-tests.el (test-forward-word): * automated/syntax-tests.el (test-backward-word): * automated/syntax-tests.el (test-syntax-table): * automated/syntax-tests.el (with-syntax-table): * automated/syntax-tests.el (Skip-Test-Unless): * automated/syntax-tests.el (with): * automated/tag-tests.el (testfile): * automated/weak-tests.el (w): * automated/weak-tests.el (p): * automated/weak-tests.el (a): Undo change of e.g. (Assert (equalp ...)) to (Assert-equalp ...). Get rid of `Assert-equalp' and friends, `Assert-test', and `Assert-test-not'. Instead, make `Assert' smart enough to do the equivalent functionality when an expression like (Assert (equalp ...)) is seen.
author Ben Wing <ben@xemacs.org>
date Fri, 12 Mar 2010 18:27:51 -0600
parents a6c778975d7d
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
1 /* Tabs Widget for XEmacs.
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
2 Copyright (C) 1999 Edward A. Falk
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
3
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
4 This file is part of XEmacs.
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
5
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
9 later version.
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
10
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
14 for more details.
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
15
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
20
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 424
diff changeset
21 /* Synched up with: TabsP.h 1.8 */
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
22
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
23 /*
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
24 * TabsP.h - Private definitions for Index Tabs widget
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
25 */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
26
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
27 #ifndef _TabsP_h
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
28 #define _TabsP_h
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
29
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
30 /***********************************************************************
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
31 *
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
32 * Tabs Widget Private Data
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
33 *
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
34 ***********************************************************************/
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
35
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
36 #include <X11/IntrinsicP.h>
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
37
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
38 #ifdef NEED_MOTIF
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
39 #include <Xm/XmP.h>
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
40 #include <Xm/ManagerP.h>
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
41 #endif
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
42
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
43 #include "xlwtabs.h"
4916
a6c778975d7d split USE_XFT into HAVE_XFT/USE_XFT
Ben Wing <ben@xemacs.org>
parents: 3685
diff changeset
44 #ifdef HAVE_XFT_TABS
3094
ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent]
stephent
parents: 446
diff changeset
45 #include <X11/Xft/Xft.h>
ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent]
stephent
parents: 446
diff changeset
46 #endif
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
47
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
48 /* New fields for the Tabs widget class record */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
49 typedef struct {XtPointer extension;} TabsClassPart;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
50
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
51 /* Full class record declaration */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
52 typedef struct _TabsClassRec {
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
53 CoreClassPart core_class;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
54 CompositeClassPart composite_class;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
55 ConstraintClassPart constraint_class;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
56 #ifdef NEED_MOTIF
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
57 XmManagerClassPart manager_class;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
58 #endif
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
59 TabsClassPart tabs_class;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
60 } TabsClassRec;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
61
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
62 extern TabsClassRec tabsClassRec;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
63
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
64
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
65
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
66 /****************************************************************
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
67 *
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
68 * instance record declaration
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
69 *
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
70 ****************************************************************/
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
71
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
72 /* New fields for the Tabs widget record */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
73 typedef struct {
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
74 /* resources */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
75 XFontStruct *font ;
4916
a6c778975d7d split USE_XFT into HAVE_XFT/USE_XFT
Ben Wing <ben@xemacs.org>
parents: 3685
diff changeset
76 #ifdef HAVE_XFT_TABS
3397
6aa26bef0527 [xemacs-hg @ 2006-05-12 19:25:28 by stephent]
stephent
parents: 3094
diff changeset
77 XftFont *renderFont;
6aa26bef0527 [xemacs-hg @ 2006-05-12 19:25:28 by stephent]
stephent
parents: 3094
diff changeset
78 String fcFontName;
3685
382b11fa8866 [xemacs-hg @ 2006-11-17 02:50:22 by stephent]
stephent
parents: 3397
diff changeset
79 String xftFontName;
3094
ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent]
stephent
parents: 446
diff changeset
80 #endif
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
81 Dimension internalHeight, internalWidth ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
82 Widget topWidget ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
83 XtCallbackList callbacks ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
84 XtCallbackList popdownCallbacks ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
85 Boolean selectInsensitive ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
86 Boolean be_nice_to_cmap ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
87 int top_shadow_contrast ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
88 int bot_shadow_contrast ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
89 int insensitive_contrast ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
90
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
91 /* private state */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
92 Widget hilight ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
93 GC foregroundGC ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
94 GC backgroundGC ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
95 GC greyGC ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
96 GC topGC ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
97 GC botGC ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
98 Dimension tab_height ; /* height of tabs (all the same) */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
99 /* Note: includes top shadow only */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
100 Dimension tab_total ; /* total height of all tabs */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
101 Dimension child_width, child_height; /* child size, including borders */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
102 Dimension max_cw, max_ch ; /* max child preferred size */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
103 Cardinal numRows ;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 434
diff changeset
104 Cardinal realRows; /* XEmacs addition */
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
105 XtGeometryMask last_query_mode;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
106 Boolean needs_layout ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
107 Pixmap grey50 ; /* TODO: cache this elsewhere */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
108 } TabsPart;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
109
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
110
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
111 typedef struct _TabsRec {
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
112 CorePart core;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
113 CompositePart composite;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
114 ConstraintPart constraint;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
115 #ifdef NEED_MOTIF
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
116 XmManagerPart manager;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
117 #endif
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
118 TabsPart tabs;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
119 } TabsRec;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
120
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
121
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
122
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
123
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
124 /****************************************************************
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
125 *
3397
6aa26bef0527 [xemacs-hg @ 2006-05-12 19:25:28 by stephent]
stephent
parents: 3094
diff changeset
126 * Constraint record declaration
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
127 *
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
128 ****************************************************************/
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
129
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
130 typedef struct _TabsConstraintsPart {
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
131 /* resources */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
132 String label ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
133 Pixmap left_bitmap ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
134 Pixel foreground ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
135 Boolean resizable ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
136
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
137 /* private state */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
138 Pixel grey ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
139 Boolean greyAlloc ;
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 434
diff changeset
140 Boolean visible; /* XEmacs change */
424
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
141 Dimension width ; /* tab width */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
142 Position x,y ; /* tab base position */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
143 short row ; /* tab row */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
144 Position l_x, l_y ; /* label position */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
145 Position lbm_x, lbm_y ; /* bitmap position */
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
146 unsigned int lbm_width, lbm_height, lbm_depth ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
147 } TabsConstraintsPart ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
148
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
149 typedef struct _TabsConstraintsRec {
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
150 #ifdef NEED_MOTIF
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
151 XmManagerConstraintPart manager;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
152 #endif
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
153 TabsConstraintsPart tabs ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
154 } TabsConstraintsRec, *TabsConstraints ;
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
155
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
156
11054d720c21 Import from CVS: tag r21-2-20
cvs
parents:
diff changeset
157 #endif /* _TabsP_h */