gtkedit/editmenu.c

   1 /* editor menu definitions and initialisation
   2
   3    Copyright (C) 1996 the Free Software Foundation
   4
   5    Authors: 1996, 1997 Paul Sheer
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  20    02111-1307, USA.
  21 */
  22
  23 #include <config.h>
  24 #include "edit.h"
  25
  26 #include "editcmddef.h"
  27
  28 #if defined (HAVE_MAD) && ! defined (MIDNIGHT) && ! defined (GTK)
  29 #include "mad.h"
  30 #endif
  31
  32 #ifdef MIDNIGHT
  33
  34 #include "../src/mad.h"
  35
  36 extern int edit_key_emulation;
  37 extern WEdit *wedit;
  38 extern WButtonBar *edit_bar;
  39 extern Dlg_head *edit_dlg;
  40 extern WMenu *edit_menubar;
  41
  42 #undef edit_message_dialog
  43 #define edit_message_dialog(w,x,y,h,s) query_dialog (h, s, 0, 1, _("&Ok"))
  44 #define CFocus(x)
  45
  46 static void menu_cmd (int i)
  47 {
  48     send_message (wedit->widget.parent, (Widget *) wedit, WIDGET_COMMAND, i);
  49 }
  50
  51 static void menu_key (int i)
  52 {
  53     send_message (wedit->widget.parent, (Widget *) wedit, WIDGET_KEY, i);
  54 }
  55
  56 void edit_wrap_cmd ()
  57 {
  58     char *f;
  59     char s[12];
  60     sprintf (s, "%d", option_word_wrap_line_length);
  61     f = input_dialog (_(" Word wrap "),
  62 /* Not essential to translate */
  63     _(" Enter line length, 0 for off: "), s);
  64     if (f) {
  65         if (*f) {
  66             option_word_wrap_line_length = atoi (f);
  67             free (f);
  68         }
  69     }
  70 }
  71
  72 void edit_about_cmd ()
  73 {
  74     edit_message_dialog (wedit->mainid, 20, 20, _(" About "),
  75                       _("\n"
  76                       "                Cooledit  v3.11.5\n"
  77                       "\n"
  78                       " Copyright (C) 1996 the Free Software Foundation\n"
  79                       "\n"
  80                       "       A user friendly text editor written\n"
  81                       "           for the Midnight Commander.\n")
  82         );
  83 }
  84
  85 void menu_mail_cmd (void)               { menu_cmd (CK_Mail); }
  86 void menu_load_cmd (void)               { menu_cmd (CK_Load); }
  87 void menu_new_cmd (void)                { menu_cmd (CK_New); }
  88 void menu_save_cmd (void)               { menu_cmd (CK_Save); }
  89 void menu_save_as_cmd (void)            { menu_cmd (CK_Save_As); }
  90 void menu_insert_file_cmd (void)        { menu_cmd (CK_Insert_File); }
  91 void menu_quit_cmd (void)               { menu_cmd (CK_Exit); }
  92 void menu_mark_cmd (void)               { menu_cmd (CK_Mark); }
  93 void menu_markcol_cmd (void)            { menu_cmd (CK_Column_Mark); }
  94 void menu_ins_cmd (void)                { menu_cmd (CK_Toggle_Insert); }
  95 void menu_copy_cmd (void)               { menu_cmd (CK_Copy); }
  96 void menu_move_cmd (void)               { menu_cmd (CK_Move); }
  97 void menu_delete_cmd (void)             { menu_cmd (CK_Remove); }
  98 void menu_cut_cmd (void)                { menu_cmd (CK_Save_Block); }
  99 void menu_search_cmd (void)             { menu_cmd (CK_Find); }
 100 void menu_search_again_cmd (void)       { menu_cmd (CK_Find_Again); }
 101 void menu_replace_cmd (void)            { menu_cmd (CK_Replace); }
 102 void menu_begin_record_cmd (void)       { menu_cmd (CK_Begin_Record_Macro); }
 103 void menu_end_record_cmd (void)         { menu_cmd (CK_End_Record_Macro); }
 104 void menu_wrap_cmd (void)               { edit_wrap_cmd (); }
 105 void menu_exec_macro_cmd (void)         { menu_key (XCTRL ('a')); }
 106 void menu_exec_macro_delete_cmd (void)  { menu_cmd (CK_Delete_Macro); }
 107 void menu_c_form_cmd (void)             { menu_key (KEY_F (19)); }
 108 void menu_ispell_cmd (void)             { menu_cmd (CK_Pipe_Block (1)); }
 109 void menu_sort_cmd (void)               { menu_cmd (CK_Sort); }
 110 void menu_date_cmd (void)               { menu_cmd (CK_Date); }
 111 void menu_undo_cmd (void)               { menu_cmd (CK_Undo); }
 112 void menu_beginning_cmd (void)          { menu_cmd (CK_Beginning_Of_Text); }
 113 void menu_end_cmd (void)                { menu_cmd (CK_End_Of_Text); }
 114 void menu_refresh_cmd (void)            { menu_cmd (CK_Refresh); }
 115 void menu_goto_line (void)              { menu_cmd (CK_Goto); }
 116 void menu_lit_cmd (void)                { menu_key (XCTRL ('q')); }
 117 void menu_format_paragraph (void)       { menu_cmd (CK_Paragraph_Format); }
 118 void edit_options_dialog (void);
 119 void menu_options (void)                { edit_options_dialog (); }
 120
 121 static menu_entry FileMenu[] =
 122 {
 123     {' ', N_("&Open/load...     C-o"), 'O', menu_load_cmd},
 124     {' ', N_("&New              C-n"), 'N', menu_new_cmd},
 125     {' ', "", ' ', 0},
 126     {' ', N_("&Save              F2"), 'S', menu_save_cmd},
 127     {' ', N_("save &As...       F12"), 'A', menu_save_as_cmd},
 128     {' ', "", ' ', 0},
 129     {' ', N_("&Insert file...   F15"), 'I', menu_insert_file_cmd},
 130     {' ', N_("copy to &File...  C-f"), 'F', menu_cut_cmd},
 131     {' ', "", ' ', 0},
 132     {' ', N_("a&Bout...            "), 'B', edit_about_cmd},
 133     {' ', "", ' ', 0},
 134     {' ', N_("&Quit             F10"), 'Q', menu_quit_cmd}
 135  };
 136
 137 static menu_entry FileMenuEmacs[] =
 138 {
 139     {' ', N_("&Open/load...     C-o"), 'O', menu_load_cmd},
 140     {' ', N_("&New            C-x k"), 'N', menu_new_cmd},
 141     {' ', "", ' ', 0},
 142     {' ', N_("&Save              F2"), 'S', menu_save_cmd},
 143     {' ', N_("save &As...       F12"), 'A', menu_save_as_cmd},
 144     {' ', "", ' ', 0},
 145     {' ', N_("&Insert file...   F15"), 'I', menu_insert_file_cmd},
 146     {' ', N_("copy to &File...     "), 'F', menu_cut_cmd},
 147     {' ', "", ' ', 0},
 148     {' ', N_("a&Bout...            "), 'B', edit_about_cmd},
 149     {' ', "", ' ', 0},
 150     {' ', N_("&Quit             F10"), 'Q', menu_quit_cmd}
 151 };
 152
 153 static menu_entry EditMenu[] =
 154 {
 155     {' ', N_("&Toggle Mark       F3"), 'T', menu_mark_cmd},
 156     {' ', N_("&Mark Columns    S-F3"), 'T', menu_markcol_cmd},
 157     {' ', "", ' ', 0},
 158     {' ', N_("toggle &Ins/overw Ins"), 'I', menu_ins_cmd},
 159     {' ', "", ' ', 0},
 160     {' ', N_("&Copy              F5"), 'C', menu_copy_cmd},
 161     {' ', N_("&Move              F6"), 'M', menu_move_cmd},
 162     {' ', N_("&Delete            F8"), 'D', menu_delete_cmd},
 163     {' ', "", ' ', 0},
 164     {' ', N_("&Undo             C-u"), 'U', menu_undo_cmd},
 165     {' ', "", ' ', 0},
 166     {' ', N_("&Beginning     C-PgUp"), 'B', menu_beginning_cmd},
 167     {' ', N_("&End           C-PgDn"), 'E', menu_end_cmd}
 168 };
 169
 170 static menu_entry EditMenuEmacs[] =
 171 {
 172     {' ', N_("&Toggle Mark       F3"), 'T', menu_mark_cmd},
 173     {' ', N_("&Mark Columns    S-F3"), 'T', menu_markcol_cmd},
 174     {' ', "", ' ', 0},
 175     {' ', N_("toggle &Ins/overw Ins"), 'I', menu_ins_cmd},
 176     {' ', "", ' ', 0},
 177     {' ', N_("&Copy              F5"), 'C', menu_copy_cmd},
 178     {' ', N_("&Move              F6"), 'M', menu_move_cmd},
 179     {' ', N_("&Delete            F8"), 'D', menu_delete_cmd},
 180     {' ', "", ' ', 0},
 181     {' ', N_("&Undo             C-u"), 'U', menu_undo_cmd},
 182     {' ', "", ' ', 0},
 183     {' ', N_("&Beginning     C-PgUp"), 'B', menu_beginning_cmd},
 184     {' ', N_("&End           C-PgDn"), 'E', menu_end_cmd}
 185 };
 186
 187 static menu_entry SearReplMenu[] =
 188 {
 189     {' ', N_("&Search...         F7"), 'S', menu_search_cmd},
 190     {' ', N_("search &Again     F17"), 'A', menu_search_again_cmd},
 191     {' ', N_("&Replace...        F4"), 'R', menu_replace_cmd}
 192 };
 193
 194 static menu_entry SearReplMenuEmacs[] =
 195 {
 196     {' ', N_("&Search...         F7"), 'S', menu_search_cmd},
 197     {' ', N_("search &Again     F17"), 'A', menu_search_again_cmd},
 198     {' ', N_("&Replace...        F4"), 'R', menu_replace_cmd}
 199 };
 200
 201 static menu_entry CmdMenu[] =
 202 {
 203     {' ', N_("&Goto line...            M-l"), 'G', menu_goto_line},
 204     {' ', "", ' ', 0},
 205     {' ', N_("insert &Literal...       C-q"), 'L', menu_lit_cmd},
 206     {' ', "", ' ', 0},
 207     {' ', N_("&Refresh screen          C-l"), 'R', menu_refresh_cmd},
 208     {' ', "", ' ', 0},
 209     {' ', N_("&Start record macro      C-r"), 'S', menu_begin_record_cmd},
 210     {' ', N_("&Finish record macro...  C-r"), 'F', menu_end_record_cmd},
 211     {' ', N_("&Execute macro...   C-a, KEY"), 'E', menu_exec_macro_cmd},
 212     {' ', N_("delete macr&O...            "), 'O', menu_exec_macro_delete_cmd},
 213     {' ', "", ' ', 0},
 214     {' ', N_("insert &Date/time           "), 'D', menu_date_cmd},
 215     {' ', "", ' ', 0},
 216     {' ', N_("format p&Aragraph        M-p"), 'A', menu_format_paragraph},
 217     {' ', N_("'ispell' s&Pell check    C-p"), 'P', menu_ispell_cmd},
 218     {' ', N_("sor&T...                 M-t"), 'T', menu_sort_cmd},
 219     {' ', N_("'indent' &C Formatter    F19"), 'C', menu_c_form_cmd},
 220     {' ', N_("&Mail...                    "), 'M', menu_mail_cmd}
 221 };
 222
 223 static menu_entry CmdMenuEmacs[] =
 224 {
 225     {' ', N_("&Goto line...            M-l"), 'G', menu_goto_line},
 226     {' ', "", ' ', 0},
 227     {' ', N_("insert &Literal...       C-q"), 'L', menu_lit_cmd},
 228     {' ', "", ' ', 0},
 229     {' ', N_("&Refresh screen          C-l"), 'R', menu_refresh_cmd},
 230     {' ', "", ' ', 0},
 231     {' ', N_("&Start record macro      C-r"), 'S', menu_begin_record_cmd},
 232     {' ', N_("&Finish record macro...  C-r"), 'F', menu_end_record_cmd},
 233     {' ', N_("&Execute macro... C-x e, KEY"), 'E', menu_exec_macro_cmd},
 234     {' ', N_("delete macr&O...            "), 'o', menu_exec_macro_delete_cmd},
 235     {' ', "", ' ', 0},
 236     {' ', N_("insert &Date/time           "), 'D', menu_date_cmd},
 237     {' ', "", ' ', 0},
 238     {' ', N_("format p&Aragraph        M-p"), 'a', menu_format_paragraph},
 239     {' ', N_("'ispell' s&Pell check    M-$"), 'P', menu_ispell_cmd},
 240     {' ', N_("sor&T...                 M-t"), 'T', menu_sort_cmd},
 241     {' ', N_("'indent' &C Formatter    F19"), 'C', menu_c_form_cmd}
 242 };
 243
 244 extern void menu_save_mode_cmd (void);
 245
 246 static menu_entry OptMenu[] =
 247 {
 248     {' ', N_("&General...  "), 'G', menu_options},
 249     {' ', N_("&Save mode..."), 'S', menu_save_mode_cmd}
 250 #if 0
 251     {' ', N_("&Layout..."),    'L', menu_layout_cmd}
 252 #endif
 253 };
 254
 255 static menu_entry OptMenuEmacs[] =
 256 {
 257     {' ', N_("&General...  "), 'G', menu_options},
 258     {' ', N_("&Save mode..."), 'S', menu_save_mode_cmd}
 259 #if 0
 260     {' ', N_("&Layout..."),    'L', menu_layout_cmd}
 261 #endif
 262 };
 263
 264 #define menu_entries(x) sizeof(x)/sizeof(menu_entry)
 265
 266 Menu EditMenuBar[N_menus];
 267
 268 void edit_init_menu_normal (void)
 269 {
 270     EditMenuBar[0] = create_menu (_(" File "), FileMenu, menu_entries (FileMenu));
 271     EditMenuBar[1] = create_menu (_(" Edit "), EditMenu, menu_entries (EditMenu));
 272     EditMenuBar[2] = create_menu (_(" Sear/Repl "), SearReplMenu, menu_entries (SearReplMenu));
 273     EditMenuBar[3] = create_menu (_(" Command "), CmdMenu, menu_entries (CmdMenu));
 274     EditMenuBar[4] = create_menu (_(" Options "), OptMenu, menu_entries (OptMenu));
 275 }
 276
 277 void edit_init_menu_emacs (void)
 278 {
 279     EditMenuBar[0] = create_menu (_(" File "), FileMenuEmacs, menu_entries (FileMenuEmacs));
 280     EditMenuBar[1] = create_menu (_(" Edit "), EditMenuEmacs, menu_entries (EditMenuEmacs));
 281     EditMenuBar[2] = create_menu (_(" Sear/Repl "), SearReplMenuEmacs, menu_entries (SearReplMenuEmacs));
 282     EditMenuBar[3] = create_menu (_(" Command "), CmdMenuEmacs, menu_entries (CmdMenuEmacs));
 283     EditMenuBar[4] = create_menu (_(" Options "), OptMenuEmacs, menu_entries (OptMenuEmacs));
 284 }
 285
 286 void edit_done_menu (void)
 287 {
 288     int i;
 289     for (i = 0; i < N_menus; i++)
 290         destroy_menu (EditMenuBar[i]);
 291 }
 292
 293
 294 void edit_drop_menu_cmd (WEdit * e, int which)
 295 {
 296     if (edit_menubar->active)
 297         return;
 298     edit_menubar->active = 1;
 299     edit_menubar->dropped = drop_menus;
 300     edit_menubar->previous_selection = which >= 0 ? which : dlg_item_number (edit_dlg);
 301     if (which >= 0)
 302         edit_menubar->selected = which;
 303     dlg_select_widget (edit_dlg, edit_menubar);
 304 }
 305
 306
 307 void edit_menu_cmd (WEdit * e)
 308 {
 309     edit_drop_menu_cmd (e, -1);
 310 }
 311
 312
 313 int edit_drop_hotkey_menu (WEdit * e, int key)
 314 {
 315     int m = 0;
 316     switch (key) {
 317     case ALT ('f'):
 318         if (edit_key_emulation == EDIT_KEY_EMULATION_EMACS)
 319             return 0;
 320         m = 0;
 321         break;
 322     case ALT ('e'):
 323         m = 1;
 324         break;
 325     case ALT ('s'):
 326         m = 2;
 327         break;
 328     case ALT ('c'):
 329         m = 3;
 330         break;
 331     case ALT ('o'):
 332         m = 4;
 333         break;
 334     default:
 335         return 0;
 336     }
 337
 338     edit_drop_menu_cmd (e, m);
 339     return 1;
 340 }
 341
 342
 343 #else                           /* !MIDNIGHT */
 344
 345
 346 extern CWidget *wedit;
 347
 348 void CSetEditMenu (const char *ident)
 349 {
 350     wedit = CIdent (ident);
 351 }
 352
 353 CWidget *CGetEditMenu (void)
 354 {
 355     return wedit;
 356 }
 357
 358 static void menu_cmd (unsigned long i)
 359 {
 360     XEvent e;
 361     if (wedit) {
 362         memset (&e, 0, sizeof (XEvent));
 363         e.type = EditorCommand;
 364         e.xkey.keycode = i;
 365         e.xkey.window = wedit->winid;
 366         CFocus (wedit);
 367         CSendEvent (&e);
 368     }
 369 }
 370
 371 void CEditMenuCommand (int i)
 372 {
 373     menu_cmd ((unsigned long) i);
 374 }
 375
 376 static void menu_key (KeySym i, int state)
 377 {
 378     int cmd, ch;
 379     if (edit_translate_key (0, i, state, &cmd, &ch)) {
 380         if (cmd > 0)
 381             menu_cmd (cmd);
 382     }
 383 }
 384
 385 static void menu_ctrl_key (unsigned long i)
 386 {
 387     menu_key ((KeySym) i, ControlMask);
 388 }
 389
 390 void CDrawEditMenuButtons (const char *ident, Window parent, Window focus_return, int x, int y)
 391 {
 392     int d;
 393
 394     CDrawMenuButton (catstrs (ident, ".filemenu", 0), parent, focus_return, x, y, AUTO_WIDTH, AUTO_HEIGHT, 8,
 395 /* The following are menu options. Do not change the key bindings (eg. C-o) and preserve '\t' */
 396                      _(" File "),
 397                      _("Open...\tC-o"), '~', menu_cmd, (unsigned long) CK_Load,
 398                      _("New\tC-n"), '~', menu_cmd, (unsigned long) CK_New,
 399                      "", ' ', (void *) 0, 0L,
 400                      _("Save\tF2"), '~', menu_cmd, (unsigned long) CK_Save,
 401                      _("Save as...\tF12"), '~', menu_cmd, (unsigned long) CK_Save_As,
 402                      "", ' ', (void *) 0, 0L,
 403                      _("Insert file...\tF15"), '~', menu_cmd, (unsigned long) CK_Insert_File,
 404                      _("Copy to file...\tC-f"), '~', menu_cmd, (unsigned long) CK_Save_Block
 405         );
 406 /* Tool hint */
 407     CSetToolHint (catstrs (ident, ".filemenu", 0), _("Disk operations and file indexing/searching"));
 408
 409     CGetHintPos (&x, &d);
 410
 411     CDrawMenuButton (catstrs (ident, ".editmenu", 0), parent, focus_return, x, y, AUTO_WIDTH, AUTO_HEIGHT, 20,
 412                      _(" Edit "),
 413                      _("Toggle mark\tF3"), '~', menu_cmd, (unsigned long) CK_Mark,
 414                      _("Toggle mark columns\tC-b"), '~', menu_cmd, (unsigned long) CK_Column_Mark,
 415                      "", ' ', (void *) 0, 0L,
 416                      _("Toggle book mark\tC-M-Ins"), '~', menu_cmd, (unsigned long) CK_Toggle_Bookmark,
 417                      _("Previous book mark\tC-M-Up"), '~', menu_cmd, (unsigned long) CK_Prev_Bookmark,
 418                      _("Next book mark\tC-M-Down"), '~', menu_cmd, (unsigned long) CK_Next_Bookmark,
 419                      _("Flush book marks"), '~', menu_cmd, (unsigned long) CK_Flush_Bookmarks,
 420                      "", ' ', (void *) 0, 0L,
 421                      _("Toggle insert/overwrite\tIns"), '~', menu_cmd, (unsigned long) CK_Toggle_Insert,
 422                      "", ' ', (void *) 0, 0L,
 423                      _("Copy block to cursor\tF5"), '~', menu_cmd, (unsigned long) CK_Copy,
 424                      _("Move block to cursor\tF6"), '~', menu_cmd, (unsigned long) CK_Move,
 425                      _("Delete block\tF8/C-Del"), '~', menu_cmd, (unsigned long) CK_Remove,
 426                      "", ' ', (void *) 0, 0L,
 427                      _("Copy block to clipbrd\tC-Ins"), '~', menu_cmd, (unsigned long) CK_XStore,
 428                      _("Cut block to clipbrd\tS-Del"), '~', menu_cmd, (unsigned long) CK_XCut,
 429                      _("Paste block from clipbrd\tS-Ins"), '~', menu_cmd, (unsigned long) CK_XPaste,
 430                      _("Selection history\tM-Ins"), '~', menu_cmd, (unsigned long) CK_Selection_History,
 431                      "", ' ', (void *) 0, 0L,
 432                      _("Undo\tC-BackSpace"), '~', menu_cmd, (unsigned long) CK_Undo
 433         );
 434 /* Tool hint */
 435     CSetToolHint (catstrs (ident, ".editmenu", 0), _("Manipulating blocks of text"));
 436
 437     CGetHintPos (&x, &d);
 438
 439     CDrawMenuButton (catstrs (ident, ".searchmenu", 0), parent, focus_return, x, y, AUTO_WIDTH, AUTO_HEIGHT, 4,
 440                      _(" Srch/Replce "),
 441                      _("Search...\tF7"), '~', menu_cmd, (unsigned long) CK_Find,
 442                      _("Search again\tF17"), '~', menu_cmd, (unsigned long) CK_Find_Again,
 443                      _("Replace...\tF4"), '~', menu_cmd, (unsigned long) CK_Replace,
 444                      _("Replace again\tF14"), '~', menu_cmd, (unsigned long) CK_Replace_Again
 445         );
 446 /* Tool hint */
 447     CSetToolHint (catstrs (ident, ".searchmenu", 0), _("Search for and replace text"));
 448
 449     CGetHintPos (&x, &d);
 450
 451     CDrawMenuButton (catstrs (ident, ".commandmenu", 0), parent, focus_return, x, y, AUTO_WIDTH, AUTO_HEIGHT, 11,
 452                      _(" Command "),
 453                      _("Goto line...\tM-l"), '~', menu_cmd, (unsigned long) CK_Goto,
 454                      "", ' ', (void *) 0, 0L,
 455                      _("Start record macro\tC-r"), '~', menu_cmd, (unsigned long) CK_Begin_Record_Macro,
 456                      _("Finish record macro...\tC-r"), '~', menu_cmd, (unsigned long) CK_End_Record_Macro,
 457                      _("Execute macro...\tC-a, KEY"), '~', menu_ctrl_key, (unsigned long) XK_a,
 458                      _("Delete macro...\t"), '~', menu_cmd, (unsigned long) CK_Delete_Macro,
 459                      "", ' ', (void *) 0, 0L,
 460                      _("Insert date/time\tC-d"), '~', menu_cmd, (unsigned long) CK_Date,
 461                      _("Format paragraph\tM-p"), '~', menu_cmd, (unsigned long) CK_Paragraph_Format,
 462                      "", ' ', (void *) 0, 0L,
 463                      _("Refresh display\tC-l"), '~', menu_cmd, (unsigned long) CK_Refresh
 464         );
 465 /* Tool hint */
 466     CSetToolHint (catstrs (ident, ".commandmenu", 0), _("Macros and internal commands"));
 467 }
 468
 469
 470 #endif                          /* !MIDNIGHT */
 471