motif_l/m_ruler.c

   1 /*-
   2  * Copyright (c) 1996
   3  *      Rob Zimmermann.  All rights reserved.
   4  * Copyright (c) 1996
   5  *      Keith Bostic.  All rights reserved.
   6  *
   7  * See the LICENSE file for redistribution information.
   8  */
   9
  10 #include "config.h"
  11
  12 #ifndef lint
  13 static const char sccsid[] = "$Id: m_ruler.c,v 8.5 2001/06/25 15:19:27 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:27 $";
  14 #endif /* not lint */
  15
  16 /* This module implements a dialog for the text ruler
  17  *
  18  * Interface:
  19  * void __vi_show_text_ruler_dialog( Widget parent, String title )
  20  *      Pops up a text ruler dialog.
  21  *      We allow one per session.  It is not modal.
  22  *
  23  * void __vi_clear_text_ruler_dialog( Widget parent, String title )
  24  *      Pops down the text ruler dialog.
  25  *
  26  * void __vi_set_text_ruler( int row, int col )
  27  *      Changes the displayed position
  28  */
  29
  30 #include <sys/types.h>
  31 #include <sys/queue.h>
  32
  33 #include <X11/X.h>
  34 #include <X11/Intrinsic.h>
  35 #include <X11/Shell.h>
  36 #include <Xm/DrawingA.h>
  37 #include <Xm/RowColumn.h>
  38 #include <Xm/PushBG.h>
  39
  40 #include <bitstring.h>
  41 #include <stdio.h>
  42
  43 #include "../common/common.h"
  44 #include "../ipc/ip.h"
  45 #include "m_motif.h"
  46 #include "vi_mextern.h"
  47
  48 \f
  49 /* globals */
  50
  51 static  Widget          db_ruler = NULL;
  52
  53 static  Boolean         active = False;
  54
  55 static  int             ruler_border = 5,
  56                         ruler_asc;
  57
  58 static  GC              gc_ruler;
  59
  60 static  XFontStruct     *ruler_font;
  61
  62 static  char            text[256];
  63
  64 #if ! defined(SelfTest)
  65 static  XutResource resource[] = {
  66     {   "rulerFont",    XutRKfont,      &ruler_font     },
  67     {   "rulerBorder",  XutRKinteger,   &ruler_border   },
  68 };
  69 #endif
  70
  71 \f
  72 /* change the displayed position */
  73
  74 static void
  75 set_ruler_text(int row, int col, int *h, int *w, int *asc)
  76 {
  77     int         dir, des;
  78     XCharStruct over;
  79
  80     /* format the data */
  81     sprintf( text, "%9.d,%-9.d", row+1, col+1 );
  82
  83     /* how big will it be? */
  84     XTextExtents( ruler_font, text, strlen(text), &dir, asc, &des, &over );
  85
  86     /* how big a window will we need? */
  87     *h = 2*ruler_border + over.ascent + over.descent;
  88     *w = 2*ruler_border + over.width;
  89 }
  90
  91
  92 static void
  93 redraw_text(void)
  94 {
  95     XClearArea( XtDisplay(db_ruler), XtWindow(db_ruler), 0, 0, 0, 0, False );
  96     XDrawString( XtDisplay(db_ruler),
  97                  XtWindow(db_ruler),
  98                  gc_ruler,
  99                  ruler_border, ruler_border + ruler_asc,
 100                  text,
 101                  strlen(text)
 102                  );
 103 }
 104
 105
 106 /*
 107  * PUBLIC: void __vi_set_text_ruler __P((int, int));
 108  */
 109 void
 110 __vi_set_text_ruler(int row, int col)
 111 {
 112     int h, w;
 113
 114     if ( ! active ) return;
 115
 116     set_ruler_text( row, col, &h, &w, &ruler_asc );
 117
 118     redraw_text();
 119 }
 120
 121 \f
 122 /* callbacks */
 123
 124 static void
 125 cancel_cb(void)
 126 {
 127 #if defined(SelfTest)
 128     puts( "cancelled" );
 129 #endif
 130     active = False;
 131 }
 132
 133
 134 static  void destroyed(void)
 135 {
 136 #if defined(SelfTest)
 137     puts( "destroyed" );
 138 #endif
 139
 140     /* some window managers destroy us upon popdown */
 141     db_ruler = NULL;
 142     active   = False;
 143 }
 144
 145
 146 \f
 147 /* Draw and display a dialog the describes nvi options */
 148
 149 #if defined(__STDC__)
 150 static  Widget  create_text_ruler_dialog( Widget parent, String title )
 151 #else
 152 static  Widget  create_text_ruler_dialog( parent, title )
 153         Widget  parent;
 154         String  title;
 155 #endif
 156 {
 157     Widget      box;
 158     int         h, w, asc;
 159     Pixel       fg, bg;
 160
 161     /* already built? */
 162     if ( db_ruler != NULL ) return db_ruler;
 163
 164 #if defined(SelfTest)
 165     ruler_font = XLoadQueryFont( XtDisplay(parent), "9x15" );
 166 #else
 167     /* check the resource database for interesting resources */
 168     __XutConvertResources( parent,
 169                          vi_progname,
 170                          resource,
 171                          XtNumber(resource)
 172                          );
 173 #endif
 174
 175     gc_ruler = XCreateGC( XtDisplay(parent), XtWindow(parent), 0, NULL );
 176     XSetFont( XtDisplay(parent), gc_ruler, ruler_font->fid );
 177
 178     box = XtVaCreatePopupShell( title,
 179                                 transientShellWidgetClass,
 180                                 parent,
 181                                 XmNallowShellResize,    False,
 182                                 0
 183                                 );
 184     XtAddCallback( box, XmNpopdownCallback, cancel_cb, 0 );
 185     XtAddCallback( box, XmNdestroyCallback, destroyed, 0 );
 186
 187     /* should be ok to use the font now */
 188     active = True;
 189
 190     /* how big a window? */
 191     set_ruler_text( 0, 0, &h, &w, &asc );
 192
 193     /* keep this global, we might destroy it later */
 194     db_ruler = XtVaCreateManagedWidget( "Ruler",
 195                                         xmDrawingAreaWidgetClass,
 196                                         box,
 197                                         XmNheight,      h,
 198                                         XmNwidth,       w,
 199                                         0
 200                                         );
 201     /* this callback is for when the drawing area is exposed */
 202     XtAddCallback( db_ruler,
 203                    XmNexposeCallback,
 204                    redraw_text,
 205                    0
 206                    );
 207
 208     /* what colors are selected for the drawing area? */
 209     XtVaGetValues( db_ruler,
 210                    XmNbackground,               &bg,
 211                    XmNforeground,               &fg,
 212                    0
 213                    );
 214     XSetForeground( XtDisplay(db_ruler), gc_ruler, fg );
 215     XSetBackground( XtDisplay(db_ruler), gc_ruler, bg );
 216
 217     /* done */
 218     return db_ruler;
 219 }
 220
 221
 222 \f
 223 /* module entry point
 224  *      __vi_show_text_ruler_dialog( parent, title )
 225  *      __vi_clear_text_ruler_dialog( parent, title )
 226  */
 227
 228 #if defined(__STDC__)
 229 void    __vi_show_text_ruler_dialog( Widget parent, String title )
 230 #else
 231 void    __vi_show_text_ruler_dialog( parent, title )
 232 Widget  parent;
 233 String  title;
 234 #endif
 235 {
 236     Widget      db = create_text_ruler_dialog( parent, title ),
 237                 shell = XtParent(db);
 238     Dimension   height, width;
 239
 240     /* this guy does not resize */
 241     XtVaGetValues( db,
 242                    XmNheight,   &height,
 243                    XmNwidth,    &width,
 244                    0
 245                    );
 246     XtVaSetValues( shell,
 247                    XmNmaxWidth,         width,
 248                    XmNminWidth,         width,
 249                    XmNmaxHeight,        height,
 250                    XmNminHeight,        height,
 251                    0
 252                    );
 253
 254     XtManageChild( db );
 255
 256     /* leave this guy up */
 257     XtPopup( shell, XtGrabNone );
 258
 259     active = True;
 260
 261     /* ask vi core for the current r,c now */
 262 #if ! defined(SelfTest)
 263     __vi_set_text_ruler( __vi_screen->cury, __vi_screen->curx );
 264 #else
 265     __vi_set_text_ruler( rand(), rand() );
 266 #endif
 267 }
 268
 269
 270 #if defined(__STDC__)
 271 void    __vi_clear_text_ruler_dialog()
 272 #else
 273 void    __vi_clear_text_ruler_dialog(void)
 274 #endif
 275 {
 276     if ( active )
 277         XtPopdown( XtParent(db_ruler) );
 278 }
 279
 280 \f
 281 #if defined(SelfTest)
 282
 283 #if XtSpecificationRelease == 4
 284 #define ArgcType        Cardinal *
 285 #else
 286 #define ArgcType        int *
 287 #endif
 288
 289 static  void    change_pos( Widget w )
 290 {
 291     __vi_set_text_ruler( rand(), rand() );
 292 }
 293
 294 #if defined(__STDC__)
 295 static void show_text_ruler( Widget w, XtPointer data, XtPointer cbs )
 296 #else
 297 static void show_text_ruler( w, data, cbs )
 298 Widget w;
 299 XtPointer       data;
 300 XtPointer       cbs;
 301 #endif
 302 {
 303     __vi_show_text_ruler_dialog( data, "Ruler" );
 304 }
 305
 306 main( int argc, char *argv[] )
 307 {
 308     XtAppContext        ctx;
 309     Widget              top_level, rc, button;
 310     extern              exit();
 311
 312     /* create a top-level shell for the window manager */
 313     top_level = XtVaAppInitialize( &ctx,
 314                                    argv[0],
 315                                    NULL, 0,     /* options */
 316                                    (ArgcType) &argc,
 317                                    argv,        /* might get modified */
 318                                    NULL,
 319                                    NULL
 320                                    );
 321
 322     rc = XtVaCreateManagedWidget( "rc",
 323                                   xmRowColumnWidgetClass,
 324                                   top_level,
 325                                   0
 326                                   );
 327
 328     button = XtVaCreateManagedWidget( "Pop up text ruler dialog",
 329                                       xmPushButtonGadgetClass,
 330                                       rc,
 331                                       0
 332                                       );
 333     XtAddCallback( button, XmNactivateCallback, show_text_ruler, rc );
 334
 335     button = XtVaCreateManagedWidget( "Change Position",
 336                                       xmPushButtonGadgetClass,
 337                                       rc,
 338                                       0
 339                                       );
 340     XtAddCallback( button, XmNactivateCallback, change_pos, rc );
 341
 342     button = XtVaCreateManagedWidget( "Quit",
 343                                       xmPushButtonGadgetClass,
 344                                       rc,
 345                                       0
 346                                       );
 347     XtAddCallback( button, XmNactivateCallback, exit, 0 );
 348
 349     XtRealizeWidget(top_level);
 350     XtAppMainLoop(ctx);
 351 }
 352 #endif