home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / ashe-1.1 / xfile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-16  |  65.8 KB  |  2,025 lines
  1. /*
  2.  * 
  3.  * 
  4.  * xfile.c - (c) 1994 Copyright by John R. Punin
  5.  *
  6.  * ASHE
  7.  *
  8.  * This file has the routines to create the menus and the 
  9.  *
  10.  * Options of the File  and Edit Menu
  11.  * 
  12.  * John R. Punin      Feb - 26 - 1994
  13.  * 
  14.  */
  15. #include "xhtml.h"
  16. #include "xfile.h"
  17. #include "xheader.h"
  18. #include "xstyles.h"
  19. #include "xviewer.h"
  20. #include "xform.h"
  21.  
  22. extern MenuItem form_menu[];
  23.  
  24. /* 
  25.    NAME : CreateMenuBar
  26.    PARAMETERS : Widget parent
  27.                 Parent of the Widget Menubar in this case main_widget
  28.    RETURN : Widget Menubar
  29.    DESCRIPTION : This function creates the menubar widget at the top
  30.                  of the main window and also creates each item of
  31.          the menus.
  32.          Menus are : File, Edit, HTML, Style, Lists and Forms
  33.          File Items : New, Open, Save, Insert and Quit
  34.          Edit Items : Cut, Copy, Paste, Delete and Undo
  35.          HTML Items : Title, Header, Paragraph, Link, Reference
  36.                       and Image
  37.          Style Items : Code, Cyte, Blockquote, Address, 
  38.                        Bold, Italic and Underline
  39.          Lists Items : Definition, Term,
  40.                        Unordered, Ordered and Item
  41.    
  42. */
  43. Widget 
  44. CreateMenuBar(Widget parent,HTMLED *he)
  45. {
  46.    XmString file,open,open_acc,save,save_acc,quit,quit_acc,save_as,
  47.             insert,insert_acc,new,new_acc,frame,close_frame,prnt,export,
  48.             frame_acc,close_frame_acc,save_as_acc,prnt_acc,
  49.             edit,cut,copy,clears,paste,undos,hor_rule,
  50.             cut_acc,copy_acc,clear_acc,paste_acc,undo_acc,fonts,
  51.             title,title_acc,address,address_acc,
  52.             paragraph,parag_acc,comments,document,line_break,
  53.             header,header_acc,help,html,reload,reload_acc,
  54.             linker,linker_acc,reference,refer_acc,
  55.             figure,figure_acc,pre,pre_acc,
  56.             comments_acc,hor_rule_acc,
  57.             styles,code,cite,block,bold,italic,under,
  58.             ttwriter,emphasis,strong,characters,
  59.             code_acc,cite_acc,block_acc,bold_acc,italic_acc,under_acc,
  60.             emphasis_acc,strong_acc,ttwriter_acc,
  61.             lists,definition,term,unorder,order,item,
  62.             definition_acc,term_acc,unorder_acc,order_acc,item_acc;
  63.    XmString html_one,head_two,body_three;
  64.    XmString html_one_acc,head_two_acc,body_three_acc;
  65.    XmString dummy_acc=XmStringCreateSimple("");
  66.    Widget button_doc,menu_fonts,button_fonts;
  67.  
  68.    Widget menubar,Help,menu_doc,menu_file,menu_html;
  69.    Widget editwidget;
  70.  
  71.    /* Create a simple MenuBar that contains the following items */
  72.    file = XmStringCreateSimple("File");
  73.    edit = XmStringCreateSimple("Edit");
  74.    html = XmStringCreateSimple("HTML");
  75.    styles = XmStringCreateSimple("Styles");
  76.    lists =XmStringCreateSimple("Lists");
  77.    help = XmStringCreateSimple("Help");
  78.    characters= XmStringCreateSimple("Characters");
  79.    menubar = XmVaCreateSimpleMenuBar(parent,"menubar",
  80.                      XmVaCASCADEBUTTON,file,'F',
  81.                      XmVaCASCADEBUTTON,edit,'E',
  82.                      XmVaCASCADEBUTTON,html,'M',
  83.                      XmVaCASCADEBUTTON,styles,'y',
  84.                      XmVaCASCADEBUTTON,lists,'L',
  85.                      XmVaCASCADEBUTTON,characters,'\0',
  86.                      XmVaCASCADEBUTTON,help,'H',
  87.                      NULL);
  88.  
  89.    XmStringFree(file);
  90.    XmStringFree(edit);
  91.    XmStringFree(help);
  92.    XmStringFree(styles);
  93.    XmStringFree(html);
  94.    XmStringFree(lists);
  95.    XmStringFree(characters);
  96.    
  97.  
  98.    /* tell the MenuBar that this is the help widget*/
  99.    Help = XtNameToWidget(menubar,"button_6");
  100.    XtVaSetValues(menubar,XmNmenuHelpWidget,Help,NULL);
  101.    BuildHelpMenu(menubar,he);
  102.  
  103.    /* Create Form menu */
  104.    
  105.    BuildPulldownMenu(menubar,"Forms",'r', False, form_menu,he);
  106.  
  107.    /* First menu is the File menu */
  108.  
  109.    open = XmStringCreateSimple("Open...");
  110.    open_acc = XmStringCreateSimple("Meta-o");
  111.    save = XmStringCreateSimple("Save");
  112.    save_acc = XmStringCreateSimple("Meta-s");
  113.    save_as = XmStringCreateSimple("Save as...");
  114.    save_as_acc = XmStringCreateSimple("Meta-a");
  115.    insert = XmStringCreateSimple("Insert...");
  116.    insert_acc = XmStringCreateSimple("Meta-I");
  117.    new = XmStringCreateSimple("New");
  118.    new_acc = XmStringCreateSimple("Meta-n");
  119.    export = XmStringCreateSimple("Export as...");
  120.    prnt = XmStringCreateSimple("Print...");
  121.    prnt_acc = XmStringCreateSimple("Meta-P");
  122.    reload = XmStringCreateSimple("Reload");
  123.    reload_acc = XmStringCreateSimple("Ctrl-r");
  124.    frame = XmStringCreateSimple("New Frame");
  125.    frame_acc = XmStringCreateSimple("");
  126.    close_frame = XmStringCreateSimple("Close Frame");
  127.    close_frame_acc = XmStringCreateSimple("Alt-f-c");
  128.    quit = XmStringCreateSimple("Quit...");
  129.    quit_acc = XmStringCreateSimple("Meta-q");
  130.    menu_file = XmVaCreateSimplePulldownMenu(menubar,"file_menu",
  131.                         0,(XtCallbackProc)file_cb,
  132.            XmVaPUSHBUTTON, new, 'N',"Meta<Key>n",new_acc,
  133.            XmVaPUSHBUTTON, open, 'O',"Meta<Key>o" ,open_acc,
  134.            XmVaPUSHBUTTON, save, 'S', "Meta<Key>s",save_acc,
  135.            XmVaPUSHBUTTON, save_as, 'a',"Meta<Key>a",save_as_acc,
  136.            XmVaPUSHBUTTON, insert, 'I',"Meta Shift<Key>i",insert_acc,
  137.                    XmVaPUSHBUTTON, export, 'E',"",dummy_acc,
  138.            XmVaPUSHBUTTON, reload, 'R',"Ctrl<Key>r",reload_acc,
  139.            XmVaPUSHBUTTON, prnt, 'P',"Meta Shift <Key>p",prnt_acc,
  140.            /* XmVaSEPARATOR,*/
  141.            XmVaPUSHBUTTON, frame,'F',"",dummy_acc,
  142.            XmVaPUSHBUTTON, close_frame,'C',"",dummy_acc,
  143.            /* XmVaSEPARATOR,*/
  144.            XmVaPUSHBUTTON, quit, 'Q',"Meta<Key>q",quit_acc,
  145.            XmNuserData,he,
  146.        NULL);
  147.    XmStringFree(export);
  148.    XmStringFree(new);XmStringFree(new_acc);
  149.    XmStringFree(open);XmStringFree(open_acc);
  150.    XmStringFree(save);XmStringFree(save_acc);
  151.    XmStringFree(insert);XmStringFree(insert_acc);
  152.    XmStringFree(quit);XmStringFree(quit_acc);
  153.    XmStringFree(save_as);XmStringFree(save_as_acc);
  154.    XmStringFree(frame);XmStringFree(frame_acc);
  155.    XmStringFree(prnt);XmStringFree(prnt_acc);
  156.    XmStringFree(reload);XmStringFree(reload_acc);
  157.    XmStringFree(close_frame);XmStringFree(close_frame_acc);
  158.    
  159.    /* Second menu is the EDIT menu */
  160.    cut = XmStringCreateSimple("Cut");
  161.    cut_acc = XmStringCreateSimple("Ctrl-Meta-x");
  162.    copy = XmStringCreateSimple("Copy");
  163.    copy_acc = XmStringCreateSimple("Ctrl-Meta-c");
  164.    clears = XmStringCreateSimple("Delete");
  165.    clear_acc = XmStringCreateSimple("Ctrl-Meta-d");
  166.    paste = XmStringCreateSimple("Paste");
  167.    paste_acc = XmStringCreateSimple("Ctrl-Meta-p");
  168.    undos = XmStringCreateSimple("Undo");
  169.    undo_acc = XmStringCreateSimple("Ctrl-Meta-u");
  170.    fonts = XmStringCreateSimple("Change Fonts");
  171.  
  172.    editwidget = XmVaCreateSimplePulldownMenu(menubar,"edit_menu",
  173.                          1,(XtCallbackProc)cut_paste,
  174.            XmVaPUSHBUTTON, cut, 'C',"",dummy_acc,
  175.            XmVaPUSHBUTTON, copy, 'o',"",dummy_acc,
  176.            XmVaPUSHBUTTON, paste, 'P',"Ctrl Meta <Key>p",paste_acc,
  177.            /*XmVaSEPARATOR,*/
  178.            XmVaPUSHBUTTON, clears, 'D',"Ctrl Meta <Key>d",clear_acc,
  179.            /*XmVaSEPARATOR,*/
  180.            XmVaPUSHBUTTON, undos, 'U',"Ctrl Meta <Key>u",undo_acc,
  181.            /*XmVaSEPARATOR,*/
  182.            XmVaCASCADEBUTTON,fonts,'F',
  183.            XmNuserData,he,
  184.            NULL);
  185.    
  186.    XtSetSensitive(XtNameToWidget(editwidget,"button_0"),False);
  187.    XtSetSensitive(XtNameToWidget(editwidget,"button_1"),False);
  188.    XtSetSensitive(XtNameToWidget(editwidget,"button_2"),False);
  189.    he->editwidget = editwidget;
  190.    
  191.    XmStringFree(cut);   XmStringFree(cut_acc);
  192.    XmStringFree(copy);   XmStringFree(copy_acc);
  193.    XmStringFree(clears);   XmStringFree(clear_acc);
  194.    XmStringFree(paste);   XmStringFree(paste_acc);
  195.    XmStringFree(undos);   XmStringFree(undo_acc);
  196.  
  197.    button_fonts = NULL;
  198.    button_fonts = XtNameToWidget(editwidget,"button_5");
  199.    {
  200.       XmString tregular = XmStringCreateSimple("Times Regular");
  201.       XmString tsmall = XmStringCreateSimple("Times Small");
  202.       XmString tlarge = XmStringCreateSimple("Times Large");
  203.       XmString hregular = XmStringCreateSimple("Helvetica Regular");
  204.       XmString hsmall = XmStringCreateSimple("HelvelticaTimes Small");
  205.       XmString hlarge = XmStringCreateSimple("Helvetica Large");
  206.       XmString ncregular = XmStringCreateSimple("New Century Regular");
  207.       XmString ncsmall = XmStringCreateSimple("New Century Small");
  208.       XmString nclarge = XmStringCreateSimple("New Century Large");
  209.       XmString lregular = XmStringCreateSimple("Lucida Bright Regular");
  210.       XmString lsmall = XmStringCreateSimple("Lucida Bright Small");
  211.       XmString llarge = XmStringCreateSimple("Lucida Bright Large");
  212.  
  213.       menu_fonts = XmVaCreateSimplePulldownMenu(editwidget,"menu_fonts",
  214.          5,/* button fonts */(XtCallbackProc)routines_fonts,
  215.          XmVaPUSHBUTTON,tregular, 'T',"",dummy_acc,
  216.          XmVaPUSHBUTTON,tsmall , 'S',"",dummy_acc,
  217.          XmVaPUSHBUTTON,tlarge, 'L',"",dummy_acc,        
  218.          /*XmVaSEPARATOR,*/
  219.          XmVaPUSHBUTTON,hregular, 'H',"",dummy_acc,
  220.          XmVaPUSHBUTTON,hsmall , 'e',"",dummy_acc,
  221.          XmVaPUSHBUTTON,hlarge, 'v',"",dummy_acc,
  222.          /*XmVaSEPARATOR,*/
  223.          XmVaPUSHBUTTON,ncregular, 'N',"",dummy_acc,
  224.          XmVaPUSHBUTTON,ncsmall , 'w',"",dummy_acc,
  225.          XmVaPUSHBUTTON,nclarge, 'C',"",dummy_acc,
  226.          /*XmVaSEPARATOR,*/
  227.          XmVaPUSHBUTTON,lregular, 'L',"",dummy_acc,
  228.          XmVaPUSHBUTTON,lsmall , 'u',"",dummy_acc,
  229.          XmVaPUSHBUTTON,llarge, 'i',"",dummy_acc,
  230.                  XmNuserData,he,                       
  231.          NULL);
  232.    if(button_fonts)
  233.       XtVaSetValues(button_fonts,XmNsubMenuId,menu_fonts,NULL);
  234.  
  235.    XmStringFree(tsmall); XmStringFree(tregular);XmStringFree(tlarge);
  236.    XmStringFree(ncsmall); XmStringFree(ncregular);XmStringFree(nclarge);
  237.    XmStringFree(hsmall); XmStringFree(hregular);XmStringFree(hlarge);
  238.    XmStringFree(lsmall); XmStringFree(lregular);XmStringFree(llarge);
  239.  
  240.    XtManageChild(menu_fonts);;
  241.    }
  242.  
  243.    /* Third menu is the HTML menu */
  244.    title = XmStringCreateSimple("Title...");
  245.    title_acc = XmStringCreateSimple("Meta-t");
  246.    header = XmStringCreateSimple("Header...");
  247.    header_acc = XmStringCreateSimple("");
  248.    paragraph = XmStringCreateSimple("Paragraph");
  249.    parag_acc = XmStringCreateSimple("Meta-p");
  250.    line_break = XmStringCreateSimple("Line Break");
  251.    hor_rule= XmStringCreateSimple("Horiz. rule");
  252.    hor_rule_acc= XmStringCreateSimple("Meta-H");
  253.    comments= XmStringCreateSimple("Commentary...");
  254.    comments_acc= XmStringCreateSimple("Meta-C");
  255.    pre = XmStringCreateSimple("Preformat...");
  256.    pre_acc = XmStringCreateSimple("Meta-F");
  257.    linker =XmStringCreateSimple("Hyperlink...");
  258.    linker_acc = XmStringCreateSimple("Meta-L");
  259.    reference =XmStringCreateSimple("Reference...");
  260.    refer_acc = XmStringCreateSimple("Meta-N");
  261.    figure =XmStringCreateSimple("Image...");
  262.    figure_acc = XmStringCreateSimple("Meta-G");
  263.    document =XmStringCreateSimple("Document");
  264.    menu_html=XmVaCreateSimplePulldownMenu(menubar,"title_menu",2,
  265.                       (XtCallbackProc)routines_html,
  266.            XmVaPUSHBUTTON, title, 'T',"Meta<Key>t",title_acc,
  267.            XmVaPUSHBUTTON, header, 'H',"",dummy_acc,
  268.            XmVaPUSHBUTTON, paragraph, 'P',"Meta<Key>p",parag_acc,
  269.            XmVaPUSHBUTTON, line_break, 'b',"",dummy_acc,
  270.          XmVaPUSHBUTTON, hor_rule, 'r',"Meta Shift<Key>h",hor_rule_acc,
  271.            XmVaPUSHBUTTON, pre, 'f',"Meta Shift<Key>f",pre_acc,
  272.         XmVaPUSHBUTTON, comments, 'c',"Meta Shift<Key>c",comments_acc,
  273.            /*XmVaSEPARATOR,*/
  274.                XmVaPUSHBUTTON, linker, 'l',"Meta Shift<Key>l",linker_acc,
  275.            XmVaPUSHBUTTON, reference, 'n',"Meta Shift<Key>n",refer_acc,
  276.                    XmVaPUSHBUTTON, figure, 'I',"Meta Shift<Key>g",figure_acc,
  277.                    XmVaCASCADEBUTTON, document, 'D',
  278.            XmNuserData,he,
  279.        NULL);
  280.  
  281.    button_doc = NULL;
  282.    button_doc = XtNameToWidget(menu_html,"button_10");
  283.  
  284.    XmStringFree(title);XmStringFree(title_acc);
  285.    XmStringFree(header);XmStringFree(header_acc);
  286.    XmStringFree(paragraph); XmStringFree(parag_acc);
  287.    XmStringFree(line_break);
  288.    XmStringFree(pre); XmStringFree(pre_acc);
  289.    XmStringFree(linker);XmStringFree(linker_acc);
  290.    XmStringFree(reference);XmStringFree(refer_acc);
  291.    XmStringFree(figure);XmStringFree(figure_acc);
  292.    XmStringFree(comments);  XmStringFree(comments_acc); XmStringFree(document);
  293.    XmStringFree(hor_rule); XmStringFree(hor_rule_acc);
  294.    XtManageChild(menu_html);
  295.  
  296.    /* create menu for document  button */
  297.  
  298.    html_one = XmStringCreateSimple("HTML...");
  299.    html_one_acc = XmStringCreateSimple("Alt-t-d-h");
  300.    head_two = XmStringCreateSimple("Head...");
  301.    head_two_acc = XmStringCreateSimple("Alt-t-d-e");
  302.    body_three = XmStringCreateSimple("Body...");
  303.    body_three_acc = XmStringCreateSimple("Alt-t-d-b");
  304.  
  305.    menu_doc = XmVaCreateSimplePulldownMenu(menu_html,"menu_doc",
  306.          10,/* button document */(XtCallbackProc)routines_styles,
  307.          XmVaPUSHBUTTON,html_one , 'H',"",dummy_acc,
  308.          XmVaPUSHBUTTON,head_two, 'e',"",dummy_acc,
  309.          XmVaPUSHBUTTON, body_three, 'B',"",dummy_acc,
  310.                  XmNuserData,he,                       
  311.          NULL);
  312.    if(button_doc)
  313.       XtVaSetValues(button_doc,XmNsubMenuId,menu_doc,NULL);
  314.  
  315.    XmStringFree(html_one ); XmStringFree(head_two);XmStringFree(body_three);
  316.    XmStringFree(html_one_acc ); XmStringFree(head_two_acc);
  317.    XmStringFree(body_three_acc);
  318.    XtManageChild(menu_doc);
  319.  
  320.    /* Fourth menu is the Style menu */
  321.    code = XmStringCreateSimple("Code...");
  322.    code_acc = XmStringCreateSimple("Alt-s-c");
  323.    cite = XmStringCreateSimple("Cite...");
  324.    cite_acc = XmStringCreateSimple("Alt-s-t");
  325.    block = XmStringCreateSimple("Blockquote...");
  326.    block_acc = XmStringCreateSimple("Alt-s-q");
  327.    address = XmStringCreateSimple("Address...");
  328.    address_acc = XmStringCreateSimple("Alt-s-a");
  329.    bold =XmStringCreateSimple("Bold...");
  330.    bold_acc = XmStringCreateSimple("Meta-b");
  331.    italic =XmStringCreateSimple("Italic...");
  332.    italic_acc = XmStringCreateSimple("Alt-s-i");
  333.    under =XmStringCreateSimple("Underline...");
  334.    under_acc = XmStringCreateSimple("Alt-s-u");
  335.    emphasis =XmStringCreateSimple("Emphasis...");
  336.    emphasis_acc =XmStringCreateSimple("Alt-s-e");
  337.    strong =XmStringCreateSimple("Strong...");
  338.    strong_acc =XmStringCreateSimple("Alt-s-s");
  339.    ttwriter=XmStringCreateSimple("Typewriter...");
  340.    ttwriter_acc=XmStringCreateSimple("Alt-s-y");
  341.  
  342.    XmVaCreateSimplePulldownMenu(menubar,"style_menu",3,
  343.                 (XtCallbackProc)routines_styles,
  344.            XmVaPUSHBUTTON, emphasis,'E',"",dummy_acc/*emphasis_acc*/,
  345.            XmVaPUSHBUTTON, strong, 'S', "",dummy_acc/*strong_acc*/,
  346.            XmVaPUSHBUTTON, code, 'C',"",dummy_acc/*code_acc*/,
  347.            XmVaPUSHBUTTON, cite, 't',"",dummy_acc/*cite_acc*/,
  348.            XmVaPUSHBUTTON, block, 'q',"",dummy_acc/*block_acc*/,
  349.            XmVaPUSHBUTTON, address, 'A',"",dummy_acc/*address_acc*/,
  350.            /*XmVaSEPARATOR,*/
  351.            XmVaPUSHBUTTON, bold, 'B',"Meta<Key>b",bold_acc,    
  352.            XmVaPUSHBUTTON, italic, 'I',"",dummy_acc/*italic_acc*/,
  353.                    XmVaPUSHBUTTON, under, 'U',"",dummy_acc/*under_acc*/,
  354.                    XmVaPUSHBUTTON, ttwriter, 'y',"",dummy_acc/*ttwriter_acc*/,
  355.            XmNuserData,he,
  356.        NULL);
  357.    XmStringFree(code);XmStringFree(code_acc);
  358.    XmStringFree(cite);XmStringFree(cite_acc);
  359.    XmStringFree(block); XmStringFree(block_acc);
  360.    XmStringFree(address); XmStringFree(address_acc);
  361.    XmStringFree(bold);XmStringFree(bold_acc);
  362.    XmStringFree(italic);XmStringFree(italic_acc);
  363.    XmStringFree(under);XmStringFree(under_acc);
  364.    XmStringFree(emphasis);XmStringFree(strong);
  365.    XmStringFree(emphasis_acc);XmStringFree(strong_acc);
  366.    XmStringFree(ttwriter);   XmStringFree(ttwriter_acc);
  367.    
  368.  
  369.    /* Fifth menu is the Lists menu */
  370.    definition = XmStringCreateSimple("Definition");
  371.    definition_acc = XmStringCreateSimple("Meta-D");
  372.    term = XmStringCreateSimple("Term");
  373.    term_acc = XmStringCreateSimple("Meta-T");
  374.    unorder = XmStringCreateSimple("Unordered...");
  375.    unorder_acc = XmStringCreateSimple("Meta-U");
  376.    order = XmStringCreateSimple("Ordered...");
  377.    order_acc = XmStringCreateSimple("Meta-O");
  378.    item =XmStringCreateSimple("Item");
  379.    item_acc = XmStringCreateSimple("Meta-i");
  380.  
  381.    XmVaCreateSimplePulldownMenu(menubar,"list_menu",4,
  382.                 (XtCallbackProc)routines_lists,
  383.            XmVaPUSHBUTTON, definition, 'D',"Meta Shift<Key>d",definition_acc,
  384.            XmVaPUSHBUTTON, term, 'T', "Meta Shift<Key>t",term_acc,
  385.            /*XmVaSEPARATOR,*/
  386.            XmVaPUSHBUTTON, unorder, 'U',"Meta Shift<Key>u",unorder_acc,
  387.            XmVaPUSHBUTTON, order, 'O',"Meta Shift<Key>o",order_acc,
  388.            XmVaPUSHBUTTON, item, 'I',"Meta <Key>i",item_acc,
  389.            XmNuserData,he,
  390.        NULL);
  391.    XmStringFree(definition);XmStringFree(definition_acc);
  392.    XmStringFree(term);XmStringFree(term_acc);
  393.    XmStringFree(unorder); XmStringFree(unorder_acc);
  394.    XmStringFree(order); XmStringFree(order_acc);
  395.    XmStringFree(item);XmStringFree(item_acc);
  396.    
  397.    /* Sixth menu is the Characters menu */
  398.  
  399.    BuildCharactersMenu(menubar,he);
  400.  
  401.  
  402.    XmStringFree(dummy_acc);
  403.    XtManageChild(menubar);       
  404.  
  405.  
  406.    return(menubar);
  407. }
  408.  
  409. /*
  410.    
  411.    NAME : file_cb
  412.    PARAMETERS : int item_no
  413.                 Number of the item menu where this function was called for. 
  414.                 Other Parameters not used
  415.    RETURN : void
  416.    DESCRIPTION : This routine creates the FileSelectionDialog widget and
  417.                  this is shared for the option open, save and insert.
  418. */
  419. void
  420. file_cb(Widget w, int item_no, XtPointer call_data)
  421. {
  422.    Widget dialog = NULL;
  423.    XmString str=NULL, title=NULL;
  424.    XmString t=NULL;
  425.    HTMLED *he=NULL;
  426.    Widget parent = XtParent(w);
  427.    char *fname=NULL;
  428.  
  429.    XtVaGetValues(parent,XmNuserData,&he,NULL);
  430.    he->user_data = (XtPointer)item_no;
  431.    if(strcmp(he->Name_File,"*scratch*"))
  432.       t = XmStringCreateSimple(he->Name_File);
  433.  
  434.    
  435.    if(item_no == EXIT_BUT)
  436.    {
  437.       Exit_ASHE(he->textarea);
  438.       return;
  439.    }
  440.    if(item_no == CLOSE_FRAME_BUT)
  441.    {
  442.       CloseFrame(w,he);
  443.       return;
  444.    }
  445.    if(item_no == NEW_FRAME_BUT)
  446.    {
  447.       fname=he->Name_File;
  448.       if(fname)
  449.       {
  450.      XtFree(he->href);
  451.      he->href = XtMalloc(strlen(fname)+1);
  452.      strcpy(he->href,fname);
  453.       }
  454.       CreateNewFrame(w,he);
  455.       return;
  456.    }
  457.    if(item_no == EXPORT_BUT)
  458.    {
  459.       Export_HTML(w,(XtPointer)he,NULL);
  460.       return;
  461.    }
  462.    if(item_no == RELOAD_BUT)
  463.    {
  464.       Reload_HTML(w,(XtPointer)he,NULL);
  465.       return;
  466.    }
  467.    if(item_no == PRINT_BUT)
  468.    {
  469.       PrintButtonCallBack(w,(XtPointer)he,NULL);
  470.       return;
  471.    }
  472.    if(item_no == NEW_BUT)
  473.    {
  474.       new_file(he);
  475.       return;
  476.    }
  477.    if(item_no == SAVE_BUT)
  478.    {
  479.       simple_save_file(w,he);
  480.       return;
  481.    }
  482.       
  483.    if(item_no == OPEN_BUT && he->open_dialog)
  484.       dialog = he->open_dialog;
  485.    if(item_no == SAVE_AS_BUT && he->save_dialog)
  486.       dialog = he->save_dialog;
  487.    if(item_no == INSERT_BUT && he->insert_dialog)
  488.       dialog = he->insert_dialog;
  489.    
  490.    
  491.    if(dialog) {
  492.       if(t)
  493.      XtVaSetValues(dialog,
  494.                XmNtextString,t,NULL);
  495.       XtManageChild(dialog);
  496.       /* make sure that dialog is raised to top of window stack*/
  497.       XMapRaised(XtDisplay(dialog),XtWindow(XtParent(dialog)));
  498.       return;
  499.    }
  500.  
  501.    dialog = XmCreateFileSelectionDialog(he->textarea,"Files",NULL,0);
  502.    XtAddCallback(dialog,XmNcancelCallback,(XtCallbackProc)XtUnmanageChild,NULL);
  503.    XtAddCallback(dialog,XmNokCallback,OkFileButtonCallback,(XtPointer)he);
  504.    if(item_no ==OPEN_BUT)
  505.    {
  506.       str = XmStringCreateSimple("Open");
  507.       title = XmStringCreateSimple("Open File");
  508.       he->open_dialog = dialog;
  509.    }
  510.    else if(item_no == SAVE_AS_BUT)
  511.    {
  512.       str = XmStringCreateSimple("Save");
  513.       title = XmStringCreateSimple("Save File");
  514.       he->save_dialog = dialog;
  515.       if(t)
  516.      XtVaSetValues(dialog,
  517.                XmNtextString,t,NULL);
  518.    }
  519.    else if(item_no== INSERT_BUT)
  520.    {
  521.       str = XmStringCreateSimple("Insert");
  522.       title = XmStringCreateSimple("Insert File");
  523.       he->insert_dialog = dialog;
  524.    }
  525.    XtVaSetValues(dialog,
  526.          XmNokLabelString,str,
  527.          XmNdialogTitle, title,
  528.          NULL);
  529.    XmStringFree(t);
  530.    XmStringFree(str);
  531.    XmStringFree(title);
  532.    XtManageChild(dialog);
  533. }
  534.        
  535. /* 
  536.    NAME : PrintButtonCallBack
  537.    PARAMETERS : Not used
  538.    RETURN : void
  539.    DESCRIPTION : This Routine creates the dialog widget to enter
  540.                  the name of the printer
  541. */
  542.                  
  543.  
  544.  void
  545. PrintButtonCallBack(
  546.     Widget  w,
  547.     XtPointer client_data, XtPointer call_data)
  548. {
  549.    Widget dialog;
  550.    XmString title = XmStringCreateSimple("Printer Name :");
  551.    HTMLED *he = (HTMLED *)client_data;
  552.    
  553.    dialog = XmCreatePromptDialog(he->textarea,"notice_printing",NULL,0);
  554.    XtVaSetValues(dialog,XmNselectionLabelString,title,NULL);
  555.    
  556.    /* When the user choose a size of the header, call set_header */
  557.    XtAddCallback(dialog, XmNokCallback,(XtCallbackProc)printing,(XtPointer)he);
  558.    
  559.    /* If the user selects cancel, just destroy the header dialog */
  560.    XtAddCallback(dialog, XmNcancelCallback,(XtCallbackProc)XtDestroyWidget,NULL);
  561.    
  562.    /* Nor help neither text is available.... */
  563.    XtUnmanageChild(XmSelectionBoxGetChild(dialog,XmDIALOG_HELP_BUTTON));
  564.    XtManageChild(dialog);
  565. }
  566.  
  567. /* 
  568.    NAME : printing
  569.    PARAMETERS : XmSelectionBoxCallbackStruct *cbs
  570.                 This parameter has the Name of the printer
  571.    RETURN : void
  572.    DESCRIPTION : Receive the name of the printer, verify if the
  573.                  file exist and print the file in the printer
  574. */
  575.  
  576. void 
  577. printing(Widget w,XtPointer client_data,XmSelectionBoxCallbackStruct *cbs)
  578. {
  579.    HTMLED *he = (HTMLED *)client_data;
  580.    char *value=NULL;
  581.    int len=0;
  582.    char *command=NULL;
  583.  
  584.    if(XmStringGetLtoR(cbs->value,XmSTRING_DEFAULT_CHARSET,&value))
  585.       len = strlen(value);
  586.    command = XtMalloc(len+20);
  587.    strcpy(command,"lpr ");
  588.    if(strlen(value)!=0)
  589.    {
  590.       strcat(command,"-P");
  591.       strcat(command,value);
  592.       strcat(command," ");
  593.    }
  594.    if(he->Name_File[0]!='\0')
  595.    {
  596.       strcat(command,he->Name_File);
  597.       system(command);
  598.    }
  599.    else
  600.       Set_label(he->text_output,"No File to Print");
  601.  
  602.    XmProcessTraversal(he->textarea,XmTRAVERSE_CURRENT);
  603.    XtFree(command);
  604. }
  605.  
  606.  
  607. /*
  608.    
  609.    NAME : new_file
  610.    PARAMETERS : void
  611.    RETURN : void
  612.    DESCRIPTION : Set the status of the Main window for a New File
  613. */
  614. void
  615. new_file(HTMLED *he)
  616. {
  617.   char tstring[2];
  618.   tstring[0]='\0';
  619.   strcpy(he->Name_File,"*scratch*");
  620.   XmTextSetString(he->textarea,"\n");
  621.   HTMLSetText(he->html_text,tstring,NULL,NULL,0,NULL,NULL);
  622.   Set_label(he->title_output,"");
  623.   Set_label(he->text_output,"ASHE (A Simple HTML Editor)");
  624.   Set_label(he->file_output,"*scratch*");
  625. }
  626.  
  627. /*
  628.    
  629.    NAME : read_file
  630.    PARAMETERS : char *text
  631.                 Name of the file
  632.    RETURN : integer error 
  633.             returns 1 if there are some error messages
  634.    DESCRIPTION : Read the file and put it in the Text Widget
  635.                  Generates an error if the file does not exist
  636.          or could not read the entire file.
  637.  
  638. */
  639.  
  640. int
  641. read_file(char *text,HTMLED *he)
  642. {
  643.   int i=0;
  644.   int     fd;  /* File Descriptor of the file */
  645.   struct stat statbuf;        /* information on a file */
  646.   long n,file_length;            /* Length of a file */
  647.   char   *mybuf=NULL;  /* Buffer */
  648.   char buf[BUFSIZ];
  649.   char *title=NULL;
  650.   int ask;
  651.   char oldlen = (he->Name_File ? strlen(he->Name_File) : 0);
  652.   char *old_file = XtMalloc(oldlen+2);
  653.   if(he->Name_File) strcpy(old_file,he->Name_File);
  654.  
  655.   if(he->modified_file)
  656.   {
  657.      char *question=XtMalloc(oldlen+100);
  658.      sprintf(question, 
  659.         "File %s has been modified. \n Do you want to save it?",old_file);
  660.      
  661.      if((ask = AskUser(he->textarea, question))==YES)
  662.      {
  663.     if(save_file_ok(he))
  664.     {
  665.        sprintf(buf,"This file %s can not be saved",he->Name_File);
  666.        Set_label(he->text_output,buf);
  667.        XtFree(question);
  668.        return 1;
  669.     }
  670.      }
  671.      else if(ask == CANCEL)
  672.      {
  673.     XtFree(question);
  674.     return 1;
  675.      }
  676.      XtFree(question);
  677.   }
  678.  
  679.   he->Name_File[0]='\0'; 
  680.   
  681.   strcpy(he->Name_File,text);
  682.  
  683.  
  684.   if(stat(he->Name_File, &statbuf) == 0)
  685.     file_length = statbuf.st_size;
  686.   else 
  687.     file_length = BUFSIZ;
  688.  
  689.   /* The name of the file is a directory ? */
  690.   if(he->Name_File)
  691.   {
  692.      if(S_ISDIR(statbuf.st_mode))
  693.      {
  694.     fprintf(stderr,"%s is a directory\n\n",he->Name_File);
  695.     sprintf(buf,"%s is a directory",he->Name_File);
  696.     Set_label(he->text_output,buf);
  697.     return 1;
  698.      }
  699.   }
  700.  
  701.   /* Create the space for the file */
  702.  
  703.   mybuf = (char *)XtMalloc((unsigned)file_length+1);
  704.  
  705.   if (mybuf == NULL)
  706.     {
  707.       fprintf(stderr," File is too big \n");
  708.       sprintf(buf,"%s: XtMalloc(%ld) failed",text,file_length);
  709.       Set_label(he->text_output,buf);
  710.       return 1;
  711.     }
  712.   fprintf(stdout, "File :'%s'\n", he->Name_File);
  713.  
  714.   /* Opening and Reading the file */
  715.   if((fd = open(he->Name_File,O_RDONLY,0)) == -1)
  716.     {
  717.       fprintf(stderr,"File %s does not exist\n\n",he->Name_File);
  718.       sprintf(buf,"File %s does not exist",he->Name_File);
  719.       Set_label(he->text_output,buf);
  720.       return 1;
  721.     }
  722.  
  723.   while((n = read(fd, mybuf, file_length)) > 0)
  724.     {
  725.        if(n!=file_length)
  726.       sprintf(buf,"Warning: did not read entire file!");
  727.        else
  728.       sprintf(buf,"Loaded %ld bytes from %s",file_length,text);
  729.       i++;
  730.       if (i==2) printf("Reading the buffer again\n");
  731.     }
  732.   mybuf[file_length]=0; /* NULL-terminate */
  733.   XmTextSetString(he->textarea,mybuf);
  734.   HTMLSetText(he->html_text,mybuf,NULL,NULL,0,he->anchor_target,NULL);
  735.   
  736.   if(he->toggle_mark_tag == True)
  737.      parsing_hightlight(mybuf,0,0,he);
  738.  
  739.   title = get_title(he->html_text);
  740.   if(title!=NULL)
  741.      Set_label(he->title_output,title);
  742.   else
  743.      Set_label(he->title_output,"");
  744.      
  745.  
  746.   Set_label(he->text_output,buf);
  747.   Set_label(he->file_output,text);
  748.   he->modified_file = FALSE;
  749.   XtFree(mybuf);
  750.   /*XtFree(text); Bki */
  751.   XtFree(title);
  752.   close(fd);
  753.   return 0;
  754. }
  755.  
  756. void 
  757. simple_save_file(Widget w,HTMLED *he)
  758. {
  759.    if(strcmp(he->Name_File,"*scratch*"))
  760.       save_file_ok(he);
  761.    else
  762.       file_cb(w,SAVE_AS_BUT,NULL);
  763. }
  764.       
  765.       
  766.  
  767. /*
  768.    
  769.    NAME : save_file
  770.    PARAMETERS : char *filename
  771.                 Name of the file
  772.    RETURN : integer error 
  773.             returns 1 if there are some error messages
  774.    DESCRIPTION : Takes the string from the Text Widget and Save it in the
  775.                  given file name
  776.          If the file does not exist, create a new file
  777.  
  778. */
  779. int
  780. save_file(char *filename,HTMLED *he)
  781. {
  782.    int fd;
  783.    int len=0;
  784.  
  785.    if((fd = open(filename,O_RDONLY,0)) == -1)
  786.    {
  787.       strcpy(he->Name_File,filename);
  788.       close(fd);
  789.       return(save_file_ok(he));
  790.    }
  791.    else
  792.    {
  793.       len = strlen(filename);
  794.       close(fd);
  795.       he->warning = XtMalloc(len+50);
  796.       sprintf(he->warning,
  797.           "\"%s\" already exists\nDo you want to overwrite it?",filename);
  798.       warning_message(he->textarea,he);
  799.    }
  800.    return 0;
  801. }
  802.  
  803. void
  804. warning_message(Widget w,HTMLED *he)
  805. {
  806.    static Widget dialog;
  807.    XmString text,ok_str,cancel_str;
  808.    char *msg = he->warning;
  809.    
  810.    if(!dialog)
  811.       dialog = XmCreateWarningDialog(w,"warning",NULL,0);
  812.    text = XmStringCreateLtoR(msg,XmFONTLIST_DEFAULT_TAG);
  813.    ok_str = XmStringCreateLocalized("Yes");
  814.    cancel_str = XmStringCreateLocalized("No");
  815.    XtVaSetValues(dialog,
  816.          XmNmessageString,text,
  817.          XmNokLabelString,ok_str,
  818.          XmNcancelLabelString,cancel_str,
  819.          NULL);
  820.    XtAddCallback(dialog,XmNokCallback,(XtCallbackProc)ok_pushed,(XtPointer)he);
  821.    XmStringFree(text);
  822.    XmStringFree(ok_str);
  823.    XmStringFree(cancel_str);
  824.    XtFree(he->warning);
  825.    
  826.    XtManageChild(dialog);
  827.    XtPopup(XtParent(dialog),XtGrabNone);
  828. }
  829.    
  830. void
  831. ok_pushed(Widget w, XtPointer client_data,XtPointer call_data)
  832. {
  833.    char *filename;
  834.    HTMLED *he = (HTMLED *)client_data;
  835.    Widget text = XmFileSelectionBoxGetChild(he->save_dialog,XmDIALOG_TEXT);
  836.    filename = XmTextGetString(text);
  837.    strcpy(he->Name_File,filename);
  838.    XtFree(filename);   
  839.    save_file_ok(he);
  840.    if(he->save_dialog)
  841.       XtUnmanageChild(he->save_dialog);
  842. }
  843.  
  844. int 
  845. save_file_ok(HTMLED *he)
  846. {
  847.    char   *tstring=NULL;        /* text string */
  848.    int fd,fdb;
  849.    int n;
  850.    int file_length;
  851.    char buf[BUFSIZ];
  852.    long len;
  853.    char *filename = he->Name_File;
  854.    char *fileback=NULL;
  855.    struct stat statbuf;
  856.  
  857.  
  858.    /* Create a Back up file */
  859.  
  860.    if((fd = open(filename,O_RDONLY,0)) != -1)
  861.    {
  862.       fileback = XtMalloc(strlen(filename)+2);
  863.       sprintf(fileback,"%s~",filename);
  864.       if((fdb = creat(fileback,PERMS)) == -1)
  865.       {
  866.      perror("Can not save this file \n");
  867.      sprintf(buf,"Can't save to %s.",fileback);
  868.      Set_label(he->text_output,buf);
  869.      return 1;
  870.       }
  871.       if(stat(he->Name_File, &statbuf) == 0)
  872.      file_length = statbuf.st_size;
  873.       else 
  874.      file_length = BUFSIZ;
  875.       tstring = XtMalloc(file_length +2);
  876.       while((n = read(fd, tstring, file_length)) > 0)
  877.      if(write(fdb, tstring, n) != n)
  878.      {
  879.         printf("File %s is not saved \n",fileback);
  880.         he->modified_file = TRUE;
  881.      }
  882.       he->modified_file = FALSE;
  883.       close(fdb);
  884.       close(fd);
  885.       XtFree(tstring);
  886.       XtFree(fileback);
  887.    }
  888.     
  889.    /* Create the file if it is a new file and write the
  890.       content of the Text Window to the file */
  891.    if((fd = creat(filename,PERMS)) == -1)
  892.    {
  893.       perror("Can not save this file \n");
  894.       sprintf(buf,"Can't save to %s.",filename);
  895.       Set_label(he->text_output,buf);
  896.       return 1;
  897.    }
  898.  
  899.    /* saving -- get text for Text widget... */
  900.  
  901.    tstring = XmTextGetString(he->textarea);
  902.    len = XmTextGetLastPosition(he->textarea);
  903.    if(write(fd,tstring,len)!= len)
  904.       strcpy(buf,"Warning: did not write entire file!");
  905.    else
  906.    {
  907.       /* make sure a newline terminates file */
  908.       if(tstring[len-1]!='\n')
  909.       {
  910.      strcpy(buf,"\n");
  911.      ++len; /* Bki */
  912.      write(fd,buf,1);
  913.       }
  914.       sprintf(buf,"saved %ld bytes to %s.",len, filename);
  915.    }
  916.    XtFree(tstring);
  917.    Set_label(he->text_output,buf);
  918.    Set_label(he->file_output,filename);
  919.    close(fd);
  920.    return 0;
  921. }
  922. /*
  923.    
  924.    NAME : insert_file
  925.    PARAMETERS : char *text
  926.                 Name of the file
  927.    RETURN : integer error 
  928.             returns 1 if there are some error messages
  929.    DESCRIPTION : Read the file and insert it in the Text Widget in
  930.                  the position where the cursor is.  
  931.                  Generates an error if the file does not exist
  932.          or could not read the entire file.
  933.  
  934. */
  935. int 
  936. insert_file(char *text,HTMLED *he)
  937. {
  938.   int i=0;
  939.   int     fd;  /* File Descriptor of the file */
  940.   struct stat statbuf;        /* information on a file */
  941.   long n,file_length;            /* Length of a file */
  942.   char   *mybuf;  /* Buffer */
  943.   char buf[BUFSIZ];
  944.   char fname[MAXIPATH];
  945.   char *title;
  946.   XmTextPosition left,right;
  947.   fname[0]='\0'; 
  948.   /* Read the name of the file in the current directory or 
  949.      full name of the file */
  950. /*  if(text[0]!='/')
  951.     {
  952.       strcpy(fname, Home);
  953.       strcat(fname,"/");
  954.       strcat(fname, text);
  955.     }
  956.   else */
  957.     strcpy(fname,text);
  958.  
  959.   if(stat(fname, &statbuf) == 0)
  960.     file_length = statbuf.st_size;
  961.   else 
  962.     file_length = BUFSIZ;
  963.  
  964.   /* Create the space for the file */
  965.  
  966.   mybuf = (char *)XtMalloc((unsigned)file_length);
  967.  
  968.   if (mybuf == NULL)
  969.     {
  970.       fprintf(stderr," File is too big \n");
  971.       sprintf(buf,"%s: XtMalloc(%ld) failed",text,file_length);
  972.       Set_label(he->text_output,buf);
  973.       return 1;
  974.     }
  975.   fprintf(stdout, "You typed '%s'\n", fname);
  976.  
  977.   /* Opening and Reading the file */
  978.   if((fd = open(fname,O_RDONLY,0)) == -1)
  979.     {
  980.       fprintf(stderr,"File %s does not exist\n\n",fname);
  981.       sprintf(buf,"File %s does not exist",fname);
  982.       Set_label(he->text_output,buf);
  983.       return 1;
  984.     }
  985.   
  986.   while((n = read(fd, mybuf, file_length)) > 0)
  987.     {
  988.        if(n!=file_length)
  989.       sprintf(buf,"Warning: did not read entire file!");
  990.        else
  991.       sprintf(buf,"Loaded %ld bytes from %s",file_length,text);
  992.       i++;
  993.       if (i==2) printf("Reading the buffer again\n");
  994.     }
  995.   mybuf[file_length]=0; /* NULL-terminate */
  996.   left = XmTextGetInsertionPosition(he->textarea);
  997.   XmTextInsert(he->textarea,left,mybuf);
  998.   XtFree(mybuf);
  999.   mybuf= XmTextGetString(he->textarea);
  1000.   HTMLSetText(he->html_text,mybuf,NULL,NULL,0,NULL,NULL);
  1001.   title=remove_title(&left,&right,he);
  1002.   if(left!=0)
  1003.      Set_label(he->title_output,title);
  1004.   Set_label(he->text_output,buf);
  1005.   XtFree(mybuf);
  1006.   /*XtFree(text);*/
  1007.   XtFree(title);
  1008.   close(fd);
  1009.   return 0;
  1010.   
  1011. }
  1012. /*
  1013.    
  1014.    NAME : OkFileButtonCallback
  1015.    PARAMETERS : int save
  1016.                 Integer to know what dialog widget call this function.
  1017.    RETURN : void
  1018.    DESCRIPTION : This is a Callback function that is called when
  1019.                  the OK button is selected. It decides if the file
  1020.          is going to be saved, opened or inserted.
  1021.  
  1022. */
  1023. void 
  1024. OkFileButtonCallback(
  1025.     Widget  w,
  1026.     XtPointer client_data, XtPointer call_data)
  1027. {
  1028.     HTMLED *he = (HTMLED *)client_data;
  1029.     int save = (int)he->user_data;
  1030.     XmFileSelectionBoxCallbackStruct *selection;
  1031.     char  *filename;
  1032.     int flag;
  1033.    
  1034.     /* The information about the selection is passed in call_data. */
  1035.     selection = (XmFileSelectionBoxCallbackStruct *) call_data;
  1036.  
  1037.     /* Read the file and show it in the Text Window */
  1038.     
  1039.     if(!XmStringGetLtoR(selection->value,XmSTRING_DEFAULT_CHARSET,&filename))
  1040.        return; /* must have been an internal error */
  1041.     if(!*filename)
  1042.     {
  1043.        /*XtFree(filename);*/
  1044.        XBell(XtDisplay(he->textarea),50);
  1045.        Set_label(he->text_output,"Choose a file.");
  1046.        return; /* nothing typed */
  1047.     }
  1048.     if(save == SAVE_AS_BUT)
  1049.        flag = save_file(filename,he);
  1050.     else if(save ==OPEN_BUT)
  1051.        flag = read_file(filename,he);
  1052.     else if(save == INSERT_BUT)
  1053.        flag = insert_file(filename,he);
  1054.     /* free all allocated space */
  1055.     /*XtFree(filename);*/
  1056.     if(!flag)
  1057.        XtUnmanageChild(w);
  1058.  }
  1059.  
  1060. /*
  1061.    
  1062.    NAME : ClearButtonCallBack
  1063.    PARAMETERS : Not used
  1064.    RETURN : void
  1065.    DESCRIPTION : Clear the text window
  1066.  
  1067. */
  1068.  
  1069.  void
  1070. ClearButtonCallBack(
  1071.     Widget  w,
  1072.     XtPointer client_data,XtPointer call_data)
  1073. {
  1074.    HTMLED *he = (HTMLED *)client_data;
  1075.    char tstring[2];
  1076.    if(he->text_cleared)
  1077.    {
  1078.       XtFree(he->text_cleared);
  1079.       he->text_cleared = NULL;
  1080.    }
  1081.    he->text_cleared = XmTextGetString(he->textarea);
  1082.    tstring[0]='\0';
  1083.    he->last_command = CLEAR;
  1084.    XmTextSetString(he->textarea, "");
  1085.    HTMLSetText(he->html_text,tstring,NULL,NULL,0,NULL,NULL); 
  1086.    Set_label(he->title_output,"");
  1087.    XmProcessTraversal(he->textarea,XmTRAVERSE_CURRENT);
  1088. } 
  1089. /*
  1090.    
  1091.    NAME : Set_label
  1092.    PARAMETERS : Widget w
  1093.                 Label Widget to be modified its label 
  1094.         char *label
  1095.         Name of the new label of the Widget
  1096.    RETURN : void
  1097.    DESCRIPTION : Set the label of a Label Widget
  1098.  
  1099. */
  1100.  
  1101.  
  1102. void 
  1103. Set_label(Widget w,char *label)
  1104. {
  1105.    XmString str = XmStringCreateLtoR(label,XmSTRING_DEFAULT_CHARSET);
  1106.    XmString str2=NULL,str3=NULL;
  1107.    if(!strcmp(XtName(w),"title_out"))
  1108.    {
  1109.       str2 = XmStringCreateLtoR(" Document Title : ",XmSTRING_DEFAULT_CHARSET);
  1110.       str3 = XmStringConcat(str2,str);
  1111.    }
  1112.    else if(!strcmp(XtName(w),"file_out"))
  1113.    {
  1114.       str2 = XmStringCreateLtoR("File Name : ",XmSTRING_DEFAULT_CHARSET);
  1115.       str3 = XmStringConcat(str2,str);
  1116.    }
  1117.    else
  1118.       str3 = XmStringCopy(str);
  1119.  
  1120. /*   XmStringGetLtoR(str,XmSTRING_DEFAULT_CHARSET,&value1);
  1121.    XmStringGetLtoR(str2,XmSTRING_DEFAULT_CHARSET,&value2);
  1122.    XmStringGetLtoR(str3,XmSTRING_DEFAULT_CHARSET,&value3);
  1123.    printf("3 values: %s\t%s\t%s\n",value1,value2,value3);
  1124.    XtFree(value1);
  1125.    XtFree(value2);
  1126.    XtFree(value3);*/
  1127.  
  1128.    XtVaSetValues(w,XmNlabelString,str3,NULL);
  1129.    
  1130.    XmStringFree(str);
  1131.    
  1132.    if(str2!=NULL)
  1133.       XmStringFree(str2);
  1134.    if(str3!=NULL)
  1135.       XmStringFree(str3);
  1136.  
  1137. }
  1138. /*
  1139.    
  1140.    NAME : cut_paste
  1141.    PARAMETERS : int item_no
  1142.                 Item number of the Edit Menu where this function was called
  1143.    RETURN : void
  1144.    DESCRIPTION : Depending of the item_no, it decides to cut, copy, paste
  1145.                  delete or undo
  1146.  
  1147. */
  1148. void 
  1149. cut_paste(Widget w, int item_no)
  1150. {
  1151.    HTMLED *he;
  1152.    Boolean result = True;
  1153.    static Boolean flag = True;
  1154.    Widget parent = XtParent(w);
  1155.    XtVaGetValues(parent,XmNuserData,&he,NULL);
  1156.    switch(item_no) {
  1157.    case 0: 
  1158.       result = XmTextCut(he->textarea,CurrentTime); break;
  1159.    case 1: 
  1160.       result = XmTextCopy(he->textarea,CurrentTime); break;
  1161.    case 2: 
  1162.       result = XmTextPaste(he->textarea); break;
  1163.    case 3: 
  1164.       XmTextClearSelection(he->textarea,CurrentTime); break;
  1165.    case 4:
  1166.       create_undo(w,he);
  1167.    }
  1168.    if (result == False)
  1169.       Set_label(he->text_output, "There is no selection");
  1170.    else
  1171.    {
  1172.       if(flag==True)
  1173.       {
  1174.      XtSetSensitive(XtNameToWidget(XtParent(w),"button_2"),True);
  1175.      flag = False;
  1176.       }
  1177.       Set_label(he->text_output, "");
  1178.    }
  1179. }
  1180.  
  1181. /*
  1182.    
  1183.    NAME : Setmenu
  1184.    PARAMETERS : Not used
  1185.    RETURN : void
  1186.    DESCRIPTION :This function sets the items cut and copy to
  1187.         be sensitive or not depending if there is
  1188.         a selected text or not
  1189.  
  1190. */
  1191. void 
  1192. Setmenu(Widget w,HTMLED *he)
  1193. {
  1194.    XmTextPosition left,right;
  1195.    Boolean flag;
  1196.  
  1197.    flag = XmTextGetSelectionPosition(he->textarea,&left,&right);
  1198.    if((flag == True) && (left!=right))
  1199.    {
  1200.       XtSetSensitive(XtNameToWidget(he->editwidget,"button_0"),True);
  1201.       XtSetSensitive(XtNameToWidget(he->editwidget,"button_1"),True);
  1202.    }
  1203.    else
  1204.    {
  1205.       XtSetSensitive(XtNameToWidget(he->editwidget,"button_0"),False);
  1206.       XtSetSensitive(XtNameToWidget(he->editwidget,"button_1"),False);
  1207.    }  
  1208. }
  1209.  
  1210. /*
  1211.    NAME : parsing_hightlight
  1212.    PARAMETERS : char *text
  1213.                 String from the insertion point to the end of the text
  1214.                 XmTextPosition start
  1215.         Insertion Point
  1216.         int count
  1217.         Number of characters that are inserted to the text
  1218.    RETURN : void
  1219.    DESCRIPTION : This routine update the underlining of all tags
  1220.                  from the insertion point to the end of the text
  1221. */
  1222.  
  1223. void 
  1224. parsing_hightlight(char *text,XmTextPosition start,int count,HTMLED *he)
  1225. {
  1226.    int i;
  1227.    int len=0;
  1228.    XmTextPosition left=0,right=0,before=0;
  1229.    
  1230.    if(text)
  1231.       len = strlen(text);
  1232.    right = len;
  1233.  
  1234.    for(i=start;i<len;)
  1235.    {
  1236.       while(text[i]!='<')
  1237.       {
  1238.      i++;
  1239.      if(text[i]=='>')
  1240.      {
  1241.         Set_label(he->text_output,"Overlapped HTML Tags");
  1242.      }
  1243.      if (i == len) break;
  1244.       }
  1245.       before = i;
  1246.       left = i+count;
  1247.       if(i==len) break;
  1248.       while(text[i]!='>')
  1249.       {
  1250.      i++;
  1251.      if(text[i]=='<')
  1252.      {
  1253.         Set_label(he->text_output,"Overlapped HTML Tags");
  1254.      }
  1255.      if (i == len) break;
  1256.       }
  1257.       right = i+count;
  1258.       if(i== len) break;
  1259.       XmTextSetHighlight(he->textarea,left,right,XmHIGHLIGHT_SECONDARY_SELECTED);
  1260.       XmTextSetHighlight(he->textarea,before-1,left-1,XmHIGHLIGHT_NORMAL);
  1261.    }
  1262. }
  1263. /*
  1264.    
  1265.    NAME : Set_Underline_Tags
  1266.    PARAMETERS : XmToggleButtonCallbackStruct *state
  1267.                 This gives the state of the toggle button mark tags
  1268.    RETURN : void
  1269.    DESCRIPTION :This is a Callback function that is called when
  1270.                 the toggle button mark_tags change the state.
  1271.         If it is on, the document is parsed to underline
  1272.         all tags.
  1273.  
  1274. */
  1275.  
  1276.  
  1277. void 
  1278. Set_Underline_Tags(Widget w, 
  1279.            XtPointer client_data,
  1280.            XmToggleButtonCallbackStruct *state)
  1281. {
  1282.    HTMLED *he = (HTMLED *)client_data;
  1283.    char * text;
  1284.    he->toggle_mark_tag = False;
  1285.    if (state->set)
  1286.    {
  1287.       he->toggle_mark_tag = True;
  1288.       text = XmTextGetString(he->textarea);
  1289.       parsing_hightlight(text,0,0,he);
  1290.       XtFree(text);
  1291.    }
  1292.    else
  1293.       XmTextSetHighlight(he->textarea,0,XmTextGetLastPosition(he->textarea),
  1294.              XmHIGHLIGHT_NORMAL);
  1295.    XmProcessTraversal(he->textarea,XmTRAVERSE_CURRENT);
  1296. }
  1297.     
  1298. /*
  1299.    AskUser() --- a generalized routine that asks the user a question
  1300.    and return the Yes/No response
  1301. */
  1302. int 
  1303. AskUser(Widget parent, char *question)
  1304. {
  1305.    Widget dialog;
  1306.    XmString text, yes, no,cancel_str;
  1307.    static int answer;
  1308.    
  1309.    dialog = XmCreateQuestionDialog(parent, "dialog",NULL,0);
  1310.    yes = XmStringCreateLocalized("Yes");
  1311.    no = XmStringCreateLocalized("No");
  1312.    cancel_str =  XmStringCreateLocalized("Cancel");
  1313.    XtVaSetValues(dialog,
  1314.          XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL,
  1315.          XmNokLabelString, yes,
  1316.          XmNcancelLabelString, no,
  1317.          XmNhelpLabelString,cancel_str,
  1318.          NULL);
  1319.    XtAddCallback(dialog,XmNokCallback, response, (XtPointer)&answer);
  1320.    XtAddCallback(dialog,XmNcancelCallback, response,(XtPointer)&answer);
  1321.    XtAddCallback(dialog,XmNhelpCallback, response,(XtPointer)&answer); 
  1322.    XmStringFree(yes);
  1323.    XmStringFree(no);   XmStringFree(cancel_str);
  1324.    
  1325.    answer = 0;
  1326.    text = XmStringCreateLtoR(question,XmSTRING_DEFAULT_CHARSET);
  1327.    XtVaSetValues(dialog,
  1328.          XmNmessageString, text,
  1329.          NULL);
  1330.    XmStringFree(text);
  1331.    XtManageChild(dialog);
  1332.    XtPopup(XtParent(dialog), XtGrabNone);
  1333.    /* while the user hasn't provided an answer, simulate main loop.
  1334.       the answer changes as soon as the user selects one of the buttons
  1335.       and the callback routine changes its value.
  1336.     */
  1337.    while(answer == 0)
  1338.       XtAppProcessEvent(XtWidgetToApplicationContext(dialog), XtIMAll);
  1339.    XtPopdown(XtParent(dialog));
  1340.    return answer;
  1341. }
  1342. /*
  1343.    response() -- The user made some sort of response to the question
  1344.    posed in AskUser(). Set the answer (client_data)
  1345.    accordingly and destroy the dialog.
  1346. */
  1347.  
  1348. void 
  1349. response(Widget widget, XtPointer client_data, XtPointer call_data)
  1350. {
  1351.    int *answer = (int *)client_data;
  1352.    XmAnyCallbackStruct *cbs = (XmAnyCallbackStruct *) call_data;
  1353.    switch(cbs->reason) {
  1354.    case XmCR_OK:
  1355.       *answer = YES;
  1356.       break;
  1357.    case XmCR_CANCEL:
  1358.       *answer = NO;
  1359.       break;
  1360.    case XmCR_HELP:
  1361.       *answer = CANCEL;
  1362.       break;
  1363.    default:
  1364.       return;
  1365.    }
  1366. }
  1367.      
  1368.  
  1369. void
  1370. Export_HTML(
  1371.     Widget  w,
  1372.     XtPointer client_data, XtPointer call_data)
  1373. {
  1374.    HTMLED *he = (HTMLED *)client_data;
  1375.    Widget dialog= he->export_dialog;
  1376.    Widget menu_export;
  1377.    int item_no = (int)he->user_data;
  1378.    XmString str,title;
  1379.  
  1380.    if(dialog) {
  1381. /*      if(t)
  1382.      XtVaSetValues(dialog,
  1383.                XmNtextString,t,NULL);*/
  1384.       XtManageChild(dialog);
  1385.       /* make sure that dialog is raised to top of window stack*/
  1386.       XMapRaised(XtDisplay(dialog),XtWindow(XtParent(dialog)));
  1387.       return;
  1388.    }
  1389.  
  1390.    dialog = XmCreateFileSelectionDialog(he->textarea,"Files",NULL,0);
  1391.    {
  1392.    XmString label= XmStringCreateSimple("Format for exported document: ");
  1393.    XmString Text = XmStringCreateSimple("Plain Text");
  1394.    XmString Form_Text = XmStringCreateSimple("Formatted Text");
  1395.    XmString PS_Times= XmStringCreateSimple("PostScript");
  1396.    
  1397.  
  1398.    menu_export = XmVaCreateSimpleOptionMenu(dialog,"menu_export",
  1399.          label,'\0',0,(XtCallbackProc)export_cb,
  1400.          XmVaPUSHBUTTON,Text ,'T',NULL,NULL,
  1401.          XmVaPUSHBUTTON,Form_Text ,'F',NULL,NULL,
  1402.          XmVaPUSHBUTTON,PS_Times, 'm',NULL,NULL,
  1403.                  XmNuserData,he,                       
  1404.          NULL);
  1405.    XmStringFree(Text ); XmStringFree(PS_Times);
  1406.    XmStringFree(Form_Text );
  1407.    XtManageChild(menu_export);
  1408.    }
  1409.  
  1410.    XtAddCallback(dialog,XmNcancelCallback,(XtCallbackProc)XtUnmanageChild,NULL);
  1411.    XtAddCallback(dialog,XmNokCallback,(XtCallbackProc)OkExportButtonCallback,(XtPointer)he);
  1412.    if(item_no ==EXPORT_BUT)
  1413.    {
  1414.       str = XmStringCreateSimple("Export");
  1415.       title = XmStringCreateSimple("Export HTML Document");
  1416.       he->export_dialog = dialog;
  1417.    }
  1418.    XtVaSetValues(dialog,
  1419.          XmNokLabelString,str,
  1420.          XmNdialogTitle, title,
  1421.          NULL);
  1422.    XmStringFree(str);
  1423.    XmStringFree(title);
  1424.    XtManageChild(dialog);
  1425. }
  1426. void
  1427. export_cb(Widget w, XtPointer client_data, XtPointer call_data)
  1428. {
  1429.    int item_no = (int)client_data;
  1430.    Widget parent = XtParent(w);
  1431.    HTMLED *he;
  1432.    XtVaGetValues(parent,XmNuserData,&he,NULL);
  1433.    he->export_option = item_no;
  1434. }
  1435. void
  1436. OkExportButtonCallback(Widget w, XtPointer client_data, XtPointer call_data)
  1437. {
  1438.    int fd;
  1439.    HTMLED  *he = (HTMLED *)client_data;
  1440.    int len=0;
  1441.    char *filename;
  1442.    XmFileSelectionBoxCallbackStruct *selection = 
  1443.       (XmFileSelectionBoxCallbackStruct *) call_data;
  1444.    /* Read the file and show it in the Text Window */
  1445.     
  1446.     if(!XmStringGetLtoR(selection->value,XmSTRING_DEFAULT_CHARSET,&filename))
  1447.        return; /* must have been an internal error */
  1448.    
  1449.    if(!*filename)
  1450.     {
  1451.        /*XtFree(filename);*/
  1452.        XBell(XtDisplay(he->textarea),50);
  1453.        Set_label(he->text_output,"Choose a file.");
  1454.        return; /* nothing typed */
  1455.     }
  1456.    XtFree(he->format_file);
  1457.    he->format_file = filename;
  1458.    if((fd = open(filename,O_RDONLY,0)) != -1)
  1459.    {
  1460.       len = strlen(filename);
  1461.       he->warning = XtMalloc(len+50);
  1462.       sprintf(he->warning,
  1463.           "\"%s\" already exists\nDo you want to overwrite it?",filename);
  1464.       warning_format_file(he->textarea,he);
  1465.    }
  1466.    else
  1467.    {
  1468.       save_format_file(he);
  1469.       if(he->export_dialog)
  1470.      XtUnmanageChild(he->export_dialog);
  1471.    }
  1472. }
  1473. void
  1474. warning_format_file(Widget w,HTMLED *he)
  1475. {
  1476.    static Widget dialog;
  1477.    XmString text,ok_str,cancel_str;
  1478.    char *msg = he->warning;
  1479.    
  1480.    if(!dialog)
  1481.       dialog = XmCreateWarningDialog(w,"warning",NULL,0);
  1482.    text = XmStringCreateLtoR(msg,XmFONTLIST_DEFAULT_TAG);
  1483.    ok_str = XmStringCreateLocalized("Yes");
  1484.    cancel_str = XmStringCreateLocalized("No");   XtVaSetValues(dialog,
  1485.          XmNmessageString,text,
  1486.          XmNokLabelString,ok_str,
  1487.          XmNcancelLabelString,cancel_str,
  1488.          NULL);
  1489.    XtAddCallback(dialog,XmNokCallback,(XtCallbackProc)ok_format_file,
  1490.          (XtPointer)he);
  1491.    XmStringFree(text);
  1492.    XmStringFree(ok_str);
  1493.    XmStringFree(cancel_str);
  1494.    XtFree(he->warning);
  1495.    
  1496.    XtManageChild(dialog);
  1497.    XtPopup(XtParent(dialog),XtGrabNone);
  1498. }
  1499.  
  1500. void
  1501. ok_format_file(Widget w, XtPointer client_data,XtPointer call_data)
  1502. {
  1503.    HTMLED *he = (HTMLED *)client_data;
  1504.    save_format_file(he);   
  1505.    if(he->export_dialog)
  1506.       XtUnmanageChild(he->export_dialog);
  1507. }
  1508.  
  1509. void
  1510. save_format_file(HTMLED *he)
  1511. {
  1512.    char *text=NULL;
  1513.    long int len;
  1514.    int fd;
  1515.    char buf[BUFSIZ];
  1516.    char *filename = he->format_file;
  1517.    if(!(he->format_file))
  1518.       return;
  1519.    buf[0]='\0';
  1520.    printf("File to be saved is %s\n",he->format_file);
  1521.    /* Create the file if it is a new file and write the
  1522.       content of the Text Window to the file */
  1523.    if((fd = creat(filename,PERMS)) == -1)
  1524.    {
  1525.       perror("Can not save this file \n");
  1526.       sprintf(buf,"Can't save to %s.",filename);
  1527.       Set_label(he->text_output,buf);
  1528.       return ;
  1529.    }
  1530.  
  1531.    if(he->export_option==POSTSCRIPT)
  1532.       text = HTMLGetText(he->html_text,he->export_option+he->fonts);
  1533.    else
  1534.       text = HTMLGetText(he->html_text,he->export_option);
  1535.    /*len = strlen(text)+1;*/
  1536.    len = strlen(text);
  1537.    if(write(fd,text,len)!= len)
  1538.       strcpy(buf,"Warning: did not write entire file!");
  1539.    else
  1540.    {
  1541.       /* make sure a newline terminates file */
  1542.       if(text[len-1]!='\n')
  1543.       {
  1544.      strcpy(buf,"\n");
  1545.      ++len; /* BKi */
  1546.      write(fd,buf,1);
  1547.       }
  1548.       sprintf(buf,"saved %ld bytes to %s.",len, filename);
  1549.    }
  1550.    XtFree(text);
  1551.    Set_label(he->text_output,buf);
  1552.    close(fd);
  1553.  
  1554.    XtFree(he->format_file);
  1555.    he->format_file = NULL;
  1556. }
  1557. void
  1558. routines_fonts(Widget w, XtPointer client_data,XtPointer call_data)
  1559. {
  1560.    int item_no=(int )client_data;
  1561.    HTMLED *he;
  1562.    Widget whtml;
  1563.    Widget parent = XtParent(w);
  1564.    XtVaGetValues(parent,XmNuserData,&he,NULL);
  1565.    whtml = he->html_text;
  1566.    switch(item_no)
  1567.    {
  1568.    case TREGULAR:
  1569.       XtVaSetValues(whtml,
  1570.        XtNfont,
  1571.            getFont("-adobe-times-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1572.            WbNitalicFont, 
  1573.            getFont("-adobe-times-medium-i-normal-*-17-*-*-*-*-*-*-*",whtml),
  1574.            WbNboldFont, 
  1575.            getFont("-adobe-times-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1576.        WbNfixedFont, 
  1577.            getFont("-adobe-courier-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1578.        WbNfixedboldFont, 
  1579.            getFont("-adobe-courier-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1580.        WbNfixeditalicFont, 
  1581.        getFont("-adobe-courier-medium-o-normal-*-17-*-*-*-*-*-*-*",whtml),
  1582.        WbNheader1Font, 
  1583.        getFont("-adobe-times-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1584.        WbNheader2Font, 
  1585.            getFont("-adobe-times-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1586.        WbNheader3Font, 
  1587.            getFont("-adobe-times-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1588.            WbNheader4Font, 
  1589.        getFont("-adobe-times-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1590.        WbNheader5Font, 
  1591.            getFont("-adobe-times-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1592.            WbNheader6Font, 
  1593.            getFont("-adobe-times-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1594.        WbNaddressFont, 
  1595.        getFont("-adobe-times-medium-i-normal-*-17-*-*-*-*-*-*-*",whtml),
  1596.        WbNplainFont, 
  1597.        getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1598.        WbNplainboldFont, 
  1599.        getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1600.        WbNplainitalicFont, 
  1601.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1602.        NULL);
  1603.       he->fonts = TIMES;
  1604.       break;
  1605.    case TSMALL:
  1606.       XtVaSetValues(whtml,
  1607.        XtNfont,
  1608.            getFont("-adobe-times-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1609.            WbNitalicFont, 
  1610.            getFont("-adobe-times-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1611.            WbNboldFont, 
  1612.            getFont("-adobe-times-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1613.        WbNfixedFont, 
  1614.            getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1615.        WbNfixedboldFont, 
  1616.            getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1617.        WbNfixeditalicFont, 
  1618.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1619.        WbNheader1Font, 
  1620.        getFont("-adobe-times-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1621.        WbNheader2Font, 
  1622.            getFont("-adobe-times-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1623.        WbNheader3Font, 
  1624.            getFont("-adobe-times-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1625.            WbNheader4Font, 
  1626.        getFont("-adobe-times-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1627.        WbNheader5Font, 
  1628.            getFont("-adobe-times-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1629.            WbNheader6Font, 
  1630.            getFont("-adobe-times-bold-r-normal-*-8-*-*-*-*-*-*-*",whtml),
  1631.        WbNaddressFont, 
  1632.        getFont("-adobe-times-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1633.        WbNplainFont, 
  1634.        getFont("-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1635.        WbNplainboldFont, 
  1636.        getFont("-adobe-courier-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1637.        WbNplainitalicFont, 
  1638.        getFont("-adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*",whtml),
  1639.        NULL);
  1640.       he->fonts = TIMES;
  1641.       break;
  1642.    case TLARGE:
  1643.       XtVaSetValues(whtml,
  1644.        XtNfont,
  1645.            getFont("-adobe-times-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1646.            WbNitalicFont, 
  1647.            getFont("-adobe-times-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  1648.            WbNboldFont, 
  1649.            getFont("-adobe-times-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1650.        WbNfixedFont, 
  1651.        getFont("-adobe-courier-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1652.        WbNfixedboldFont, 
  1653.            getFont("-adobe-courier-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1654.        WbNfixeditalicFont, 
  1655.        getFont("-adobe-courier-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1656.        WbNheader1Font, 
  1657.        getFont("-adobe-times-bold-r-normal-*-25-*-*-*-*-*-*-*",whtml),
  1658.        WbNheader2Font, 
  1659.            getFont("-adobe-times-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1660.        WbNheader3Font, 
  1661.            getFont("-adobe-times-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1662.            WbNheader4Font, 
  1663.        getFont("-adobe-times-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1664.        WbNheader5Font, 
  1665.            getFont("-adobe-times-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1666.            WbNheader6Font, 
  1667.            getFont("-adobe-times-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1668.        WbNaddressFont, 
  1669.        getFont("-adobe-times-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  1670.        WbNplainFont, 
  1671.        getFont("-adobe-courier-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1672.        WbNplainboldFont, 
  1673.        getFont("-adobe-courier-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1674.        WbNplainitalicFont, 
  1675.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  1676.        NULL);
  1677.       he->fonts = TIMES;
  1678.       break;
  1679.    case HREGULAR:
  1680.       XtVaSetValues(whtml,
  1681.        XtNfont,
  1682.            getFont("-adobe-helvetica-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1683.            WbNitalicFont, 
  1684.            getFont("-adobe-helvetica-medium-o-normal-*-17-*-*-*-*-*-*-*",whtml),
  1685.            WbNboldFont, 
  1686.            getFont("-adobe-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1687.        WbNfixedFont, 
  1688.            getFont("-adobe-courier-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1689.        WbNfixedboldFont, 
  1690.            getFont("-adobe-courier-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1691.        WbNfixeditalicFont, 
  1692.        getFont("-adobe-courier-medium-o-normal-*-17-*-*-*-*-*-*-*",whtml),
  1693.        WbNheader1Font, 
  1694.        getFont("-adobe-helvetica-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1695.        WbNheader2Font, 
  1696.            getFont("-adobe-helvetica-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1697.        WbNheader3Font, 
  1698.            getFont("-adobe-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1699.            WbNheader4Font, 
  1700.        getFont("-adobe-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1701.        WbNheader5Font, 
  1702.            getFont("-adobe-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1703.            WbNheader6Font, 
  1704.            getFont("-adobe-helvetica-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1705.        WbNaddressFont, 
  1706.        getFont("-adobe-helvetica-medium-o-normal-*-17-*-*-*-*-*-*-*",whtml),
  1707.        WbNplainFont, 
  1708.        getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1709.        WbNplainboldFont, 
  1710.        getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1711.        WbNplainitalicFont, 
  1712.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1713.        NULL);
  1714.       he->fonts = HELVETICA;
  1715.       break;
  1716.    case HSMALL:
  1717.       XtVaSetValues(whtml,
  1718.        XtNfont,
  1719.            getFont("-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1720.            WbNitalicFont, 
  1721.            getFont("-adobe-helvetica-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1722.            WbNboldFont, 
  1723.            getFont("-adobe-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1724.        WbNfixedFont, 
  1725.            getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1726.        WbNfixedboldFont, 
  1727.            getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1728.        WbNfixeditalicFont, 
  1729.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1730.        WbNheader1Font, 
  1731.        getFont("-adobe-helvetica-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1732.        WbNheader2Font, 
  1733.            getFont("-adobe-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1734.        WbNheader3Font, 
  1735.            getFont("-adobe-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1736.            WbNheader4Font, 
  1737.        getFont("-adobe-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1738.        WbNheader5Font, 
  1739.            getFont("-adobe-helvetica-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1740.            WbNheader6Font, 
  1741.            getFont("-adobe-helvetica-bold-r-normal-*-8-*-*-*-*-*-*-*",whtml),
  1742.        WbNaddressFont, 
  1743.        getFont("-adobe-helvetica-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1744.        WbNplainFont, 
  1745.        getFont("-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1746.        WbNplainboldFont, 
  1747.        getFont("-adobe-courier-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1748.        WbNplainitalicFont, 
  1749.        getFont("-adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*",whtml),
  1750.        NULL);
  1751.       he->fonts = HELVETICA;
  1752.       break;
  1753.    case HLARGE:
  1754.       XtVaSetValues(whtml,
  1755.        XtNfont,
  1756.            getFont("-adobe-helvetica-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1757.            WbNitalicFont, 
  1758.            getFont("-adobe-helvetica-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1759.            WbNboldFont, 
  1760.            getFont("-adobe-helvetica-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1761.        WbNfixedFont, 
  1762.            getFont("-adobe-courier-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1763.        WbNfixedboldFont, 
  1764.            getFont("-adobe-courier-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1765.        WbNfixeditalicFont, 
  1766.        getFont("-adobe-courier-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1767.        WbNheader1Font, 
  1768.        getFont("-adobe-helvetica-bold-r-normal-*-25-*-*-*-*-*-*-*",whtml),
  1769.        WbNheader2Font, 
  1770.            getFont("-adobe-helvetica-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1771.        WbNheader3Font, 
  1772.            getFont("-adobe-helvetica-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1773.            WbNheader4Font, 
  1774.        getFont("-adobe-helvetica-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1775.        WbNheader5Font, 
  1776.            getFont("-adobe-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1777.            WbNheader6Font, 
  1778.            getFont("-adobe-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1779.        WbNaddressFont, 
  1780.        getFont("-adobe-helvetica-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1781.        WbNplainFont, 
  1782.        getFont("-adobe-courier-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1783.        WbNplainboldFont, 
  1784.        getFont("-adobe-courier-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1785.        WbNplainitalicFont, 
  1786.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  1787.        NULL);
  1788.       he->fonts = HELVETICA;
  1789.       break;
  1790.    case NCREGULAR:
  1791.       XtVaSetValues(whtml,
  1792.        XtNfont,
  1793.            getFont("-adobe-new century schoolbook-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1794.            WbNitalicFont, 
  1795.            getFont("-adobe-new century schoolbook-medium-i-normal-*-18-*-*-*-*-*-*-*",whtml),
  1796.            WbNboldFont, 
  1797.            getFont("-adobe-new century schoolbook-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1798.        WbNfixedFont, 
  1799.            getFont("-adobe-courier-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1800.        WbNfixedboldFont, 
  1801.            getFont("-adobe-courier-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1802.        WbNfixeditalicFont, 
  1803.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  1804.        WbNheader1Font, 
  1805.        getFont("-adobe-new century schoolbook-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1806.        WbNheader2Font, 
  1807.            getFont("-adobe-new century schoolbook-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1808.        WbNheader3Font, 
  1809.            getFont("-adobe-new century schoolbook-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1810.            WbNheader4Font, 
  1811.        getFont("-adobe-new century schoolbook-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1812.        WbNheader5Font, 
  1813.            getFont("-adobe-new century schoolbook-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1814.            WbNheader6Font, 
  1815.            getFont("-adobe-new century schoolbook-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1816.        WbNaddressFont, 
  1817.        getFont("-adobe-new century schoolbook-medium-i-normal-*-18-*-*-*-*-*-*-*",whtml),
  1818.        WbNplainFont, 
  1819.        getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1820.        WbNplainboldFont, 
  1821.        getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1822.        WbNplainitalicFont, 
  1823.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1824.        NULL);
  1825.       he->fonts = NEW_CENTURY;
  1826.       break;
  1827.    case NCSMALL:
  1828.       XtVaSetValues(whtml,
  1829.        XtNfont,
  1830.            getFont("-adobe-new century schoolbook-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1831.            WbNitalicFont, 
  1832.            getFont("-adobe-new century schoolbook-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1833.            WbNboldFont, 
  1834.            getFont("-adobe-new century schoolbook-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1835.        WbNfixedFont, 
  1836.            getFont("-adobe-courier-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1837.        WbNfixedboldFont, 
  1838.            getFont("-adobe-courier-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1839.        WbNfixeditalicFont, 
  1840.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1841.        WbNheader1Font, 
  1842.        getFont("-adobe-new century schoolbook-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1843.        WbNheader2Font, 
  1844.            getFont("-adobe-new century schoolbook-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1845.        WbNheader3Font, 
  1846.            getFont("-adobe-new century schoolbook-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1847.            WbNheader4Font, 
  1848.        getFont("-adobe-new century schoolbook-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1849.        WbNheader5Font, 
  1850.            getFont("-adobe-new century schoolbook-bold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1851.            WbNheader6Font, 
  1852.            getFont("-adobe-new century schoolbook-bold-r-normal-*-8-*-*-*-*-*-*-*",whtml),
  1853.        WbNaddressFont, 
  1854.        getFont("-adobe-new century schoolbook-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1855.        WbNplainFont, 
  1856.        getFont("-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1857.        WbNplainboldFont, 
  1858.        getFont("-adobe-courier-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1859.        WbNplainitalicFont, 
  1860.        getFont("-adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*",whtml),
  1861.        NULL);
  1862.       he->fonts = NEW_CENTURY;
  1863.       break;
  1864.    case NCLARGE:
  1865.       XtVaSetValues(whtml,
  1866.        XtNfont,
  1867.            getFont("-adobe-new century schoolbook-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1868.            WbNitalicFont, 
  1869.            getFont("-adobe-new century schoolbook-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  1870.            WbNboldFont, 
  1871.            getFont("-adobe-new century schoolbook-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1872.        WbNfixedFont, 
  1873.            getFont("-adobe-courier-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1874.        WbNfixedboldFont, 
  1875.            getFont("-adobe-courier-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1876.        WbNfixeditalicFont, 
  1877.        getFont("-adobe-courier-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1878.        WbNheader1Font, 
  1879.        getFont("-adobe-new century schoolbook-bold-r-normal-*-25-*-*-*-*-*-*-*",whtml),
  1880.        WbNheader2Font, 
  1881.            getFont("-adobe-new century schoolbook-bold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1882.        WbNheader3Font, 
  1883.            getFont("-adobe-new century schoolbook-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1884.            WbNheader4Font, 
  1885.        getFont("-adobe-new century schoolbook-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1886.        WbNheader5Font, 
  1887.            getFont("-adobe-new century schoolbook-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1888.            WbNheader6Font, 
  1889.            getFont("-adobe-new century schoolbook-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1890.        WbNaddressFont, 
  1891.        getFont("-adobe-new century schoolbook-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  1892.        WbNplainFont, 
  1893.        getFont("-adobe-courier-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1894.        WbNplainboldFont, 
  1895.        getFont("-adobe-courier-bold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1896.        WbNplainitalicFont, 
  1897.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  1898.        NULL);
  1899.       he->fonts = NEW_CENTURY;
  1900.       break;
  1901.    case LREGULAR:
  1902.       XtVaSetValues(whtml,
  1903.        XtNfont,
  1904.            getFont("-b&h-lucidabright-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1905.            WbNitalicFont, 
  1906.            getFont("-b&h-lucidabright-medium-i-normal-*-17-*-*-*-*-*-*-*",whtml),
  1907.            WbNboldFont, 
  1908.            getFont("-b&h-lucidabright-demibold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1909.        WbNfixedFont, 
  1910.            getFont("-b&h-lucidatypewriter-medium-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1911.        WbNfixedboldFont, 
  1912.            getFont("-b&h-lucidatypewriter-bold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1913.        WbNfixeditalicFont, 
  1914.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  1915.        WbNheader1Font, 
  1916.        getFont("-b&h-lucidabright-demibold-r-normal-*-24-*-*-*-*-*-*-*",whtml),
  1917.        WbNheader2Font, 
  1918.            getFont("-b&h-lucidabright-demibold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1919.        WbNheader3Font, 
  1920.            getFont("-b&h-lucidabright-demibold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1921.            WbNheader4Font, 
  1922.        getFont("-b&h-lucidabright-demibold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1923.        WbNheader5Font, 
  1924.            getFont("-b&h-lucidabright-demibold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1925.            WbNheader6Font, 
  1926.            getFont("-b&h-lucidabright-demibold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1927.        WbNaddressFont, 
  1928.        getFont("-b&h-lucidabright-medium-i-normal-*-17-*-*-*-*-*-*-*",whtml),
  1929.        WbNplainFont, 
  1930.        getFont("-b&h-lucidatypewriter-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1931.        WbNplainboldFont, 
  1932.        getFont("-b&h-lucidatypewriter-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1933.        WbNplainitalicFont, 
  1934.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1935.        NULL);
  1936.       he->fonts = LUCIDA_BRIGHT;
  1937.       break;
  1938.    case LSMALL:
  1939.       XtVaSetValues(whtml,
  1940.        XtNfont,
  1941.            getFont("-b&h-lucidabright-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1942.            WbNitalicFont, 
  1943.            getFont("-b&h-lucidabright-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1944.            WbNboldFont, 
  1945.            getFont("-b&h-lucidabright-demibold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1946.        WbNfixedFont, 
  1947.            getFont("-b&h-lucidatypewriter-medium-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1948.        WbNfixedboldFont, 
  1949.            getFont("-b&h-lucidatypewriter-bold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1950.        WbNfixeditalicFont, 
  1951.        getFont("-adobe-courier-medium-o-normal-*-14-*-*-*-*-*-*-*",whtml),
  1952.        WbNheader1Font, 
  1953.        getFont("-b&h-lucidabright-demibold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1954.        WbNheader2Font, 
  1955.            getFont("-b&h-lucidabright-demibold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1956.        WbNheader3Font, 
  1957.            getFont("-b&h-lucidabright-demibold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  1958.            WbNheader4Font, 
  1959.        getFont("-b&h-lucidabright-demibold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1960.        WbNheader5Font, 
  1961.            getFont("-b&h-lucidabright-demibold-r-normal-*-11-*-*-*-*-*-*-*",whtml),
  1962.            WbNheader6Font, 
  1963.            getFont("-b&h-lucidabright-demibold-r-normal-*-10-*-*-*-*-*-*-*",whtml),
  1964.        WbNaddressFont, 
  1965.        getFont("-b&h-lucidabright-medium-i-normal-*-14-*-*-*-*-*-*-*",whtml),
  1966.        WbNplainFont, 
  1967.        getFont("-b&h-lucidatypewriter-medium-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1968.        WbNplainboldFont, 
  1969.        getFont("-b&h-lucidatypewriter-bold-r-normal-*-12-*-*-*-*-*-*-*",whtml),
  1970.        WbNplainitalicFont, 
  1971.        getFont("-adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*",whtml),
  1972.        NULL);
  1973.       he->fonts = LUCIDA_BRIGHT;
  1974.       break;
  1975.    case LLARGE:
  1976.       XtVaSetValues(whtml,
  1977.        XtNfont,
  1978.            getFont("-b&h-lucidabright-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1979.            WbNitalicFont, 
  1980.            getFont("-b&h-lucidabright-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  1981.            WbNboldFont, 
  1982.            getFont("-b&h-lucidabright-demibold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1983.        WbNfixedFont, 
  1984.            getFont("-b&h-lucidatypewriter-medium-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1985.        WbNfixedboldFont, 
  1986.            getFont("-b&h-lucidatypewriter-bold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1987.        WbNfixeditalicFont, 
  1988.        getFont("-adobe-courier-medium-o-normal-*-20-*-*-*-*-*-*-*",whtml),
  1989.        WbNheader1Font, 
  1990.        getFont("-b&h-lucidabright-demibold-r-normal-*-25-*-*-*-*-*-*-*",whtml),
  1991.        WbNheader2Font, 
  1992.            getFont("-b&h-lucidabright-demibold-r-normal-*-25-*-*-*-*-*-*-*",whtml),
  1993.        WbNheader3Font, 
  1994.            getFont("-b&h-lucidabright-demibold-r-normal-*-20-*-*-*-*-*-*-*",whtml),
  1995.            WbNheader4Font, 
  1996.        getFont("-b&h-lucidabright-demibold-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  1997.        WbNheader5Font, 
  1998.            getFont("-b&h-lucidabright-demibold-r-normal-*-17-*-*-*-*-*-*-*",whtml),
  1999.            WbNheader6Font, 
  2000.            getFont("-b&h-lucidabright-demibold-r-normal-*-14-*-*-*-*-*-*-*",whtml),
  2001.        WbNaddressFont, 
  2002.        getFont("-b&h-lucidabright-medium-i-normal-*-20-*-*-*-*-*-*-*",whtml),
  2003.        WbNplainFont, 
  2004.        getFont("-b&h-lucidatypewriter-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  2005.        WbNplainboldFont, 
  2006.        getFont("-b&h-lucidatypewriter-medium-r-normal-*-18-*-*-*-*-*-*-*",whtml),
  2007.        WbNplainitalicFont, 
  2008.        getFont("-adobe-courier-medium-o-normal-*-18-*-*-*-*-*-*-*",whtml),
  2009.        NULL);
  2010.       he->fonts = LUCIDA_BRIGHT;
  2011.       break;
  2012.    }
  2013. }
  2014.  
  2015. long getFont (char *name,Widget whtml)
  2016. {
  2017.   XFontStruct *font = XLoadQueryFont (XtDisplay(whtml), name);
  2018.   if (font == NULL)
  2019.     {
  2020.       fprintf (stderr, "Could not open font '%s'\n", name);
  2021.       font = XLoadQueryFont (XtDisplay(whtml), "fixed");
  2022.     }
  2023.   return ((long)font);
  2024. }
  2025.