dist/nvi/motif_l/m_ruler.c

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