Mercurial > hg > xemacs-beta
view lwlib/xlwgaugeP.h @ 1298:1b4bc72f433e
[xemacs-hg @ 2003-02-14 12:05:06 by ben]
speedups to build process
autoload.el: Factor out common code in generate-{c-,}file-autoloads-1 into new
function generate-autoload-ish-1. \(I was originally going to use
this for custom as well but ended up thinking better of it.)
cus-dep.el: Cache the old computed values in custom-load.el and reuse them as
necessary, to speed up running cus-dep (which would take 25-30
seconds to do all files in lisp/*, lisp/*/* on my Pentium III
700). Use `message' not `princ' to get correct newline behavior.
Output messages showing each file we do actually process.
update-elc-2.el: Rewrite algorithm to be much faster -- cache calls to
directory-files and don't make needless calls to file-exists-p,
file-directory-p because they're way way slow.
Autoload early and only when update-elc has told us to.
update-elc.el: If no files need byte compilation, signal to update-elc-2 to do
any necessary autoload updating (using the file REBUILD_AUTOLOADS)
rather than doing it ourselves, which would be way slow. Ignore
updates to custom-load.el and auto-autoloads.el when checking to
see whether autoloads need updating. Optimize out many
unnecessary calls to file-exists-p to speed it up somewhat. (####
The remaining time is 50% or more in locate-file; this is
presumably because, even though it has a cache, it's still
statting each file to determine it's actually there. By calling
directory-files ourselves, building a tree, and then looking in
that tree, we could drastically shorten the time needed to do the
locate operation.)
| author | ben |
|---|---|
| date | Fri, 14 Feb 2003 12:05:07 +0000 |
| parents | abe6d1db359e |
| children | 308d34e9f07d |
line wrap: on
line source
/* Gauge Widget for XEmacs. Copyright (C) 1999 Edward A. Falk This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* * GaugeP.h - Gauge widget * * Author: Edward A. Falk * falk@falconer.vip.best.com * * Date: July 9, 1997 */ #ifndef _XawGaugeP_h #define _XawGaugeP_h /*********************************************************************** * * Gauge Widget Private Data * * Gauge has little in common with the label widget, but can make use * of some label resources, so is subclassed from label. * ***********************************************************************/ #include "xlwgauge.h" #include ATHENA_LabelP_h_ /* New fields for the Gauge widget class record */ typedef struct {XtPointer extension;} GaugeClassPart; /* Full class record declaration */ typedef struct _GaugeClassRec { CoreClassPart core_class; SimpleClassPart simple_class; #ifdef _ThreeDP_h ThreeDClassPart threeD_class; #endif LabelClassPart label_class; GaugeClassPart gauge_class; } GaugeClassRec; extern GaugeClassRec gaugeClassRec; /* New fields for the Gauge widget record */ typedef struct { /* resources */ int value, v0,v1 ; int ntics, nlabels ; String *labels ; XtOrientation orientation ; Boolean autoScaleUp ; /* scales automatically */ Boolean autoScaleDown ; /* scales automatically */ int update ; /* update interval */ XtCallbackList getValue ; /* proc to call to fetch a point */ /* private state */ Dimension gmargin ; /* edges <-> gauge */ Dimension tmargin ; /* top (left) edge <-> tic marks */ Dimension lmargin ; /* tic marks <-> labels */ Dimension margin0 ; /* left/bottom margin */ Dimension margin1 ; /* right/top margin */ XtIntervalId intervalId ; Atom selected ; String selstr ; /* selection string, if any */ GC inverse_GC ; } GaugePart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _GaugeRec { CorePart core; SimplePart simple; #ifdef _ThreeDP_h ThreeDPart threeD; #endif LabelPart label; GaugePart gauge; } GaugeRec; #endif /* _XawGaugeP_h */