home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / DVI_MGR / dvimgr_s.lzh / dvi_fbi_hh / DVIMOTIF / dvimotif.uil < prev    next >
Text File  |  1993-07-27  |  23KB  |  964 lines
  1. /************************************************************************/
  2. /* Filename: DVIMOTIF.UIL                        */
  3. /* Function: User Interface Description for Preview application        */
  4. /*                                    */
  5. /* (c) 1990 by Christian MARKUS, Fachbereich Informatik,        */
  6. /*             Schlueterstr. 70, 2000 Hamburg 13            */
  7. /*                                    */
  8. /* EMAIL   : via   friesland@rz.informatik.uni-hamburg.dbp.de        */
  9. /*----------------------------------------------------------------------*/
  10. /* Program History:                            */
  11. /*                                     */
  12. /* Ver#: ! Date:  !Comment:                !Author:    */
  13. /* ------+--------+-------------------------------------+-------------- */
  14. /* 1.0   !04.07.89!First version            !Ch. Markus    */
  15. /* 1.1   !09.03.90!- Accelerators installed        !Ch. Markus    */
  16. /*              !- One DrawingArea only/adjusted by progr.             */
  17. /*           !- scrollbars available        !        */
  18. /* 1.2   !19.06.90!OSF-Motif Version            !Ch.Markus    */
  19. /*                                    */
  20. /************************************************************************/
  21.  
  22.  
  23. module preview
  24.         version = 'v1.2'
  25.         names = case_sensitive
  26.         objects = 
  27.     {
  28.          XmSeparator = gadget;
  29.          XmLabel = gadget;
  30.          XmPushButton = widget;
  31.          XmToggleButton = gadget;
  32.         }
  33.  
  34. include file 'XmAppl.uil';
  35.  
  36. /*----------------------------------------------------------------------*/
  37. /* Constants required for later identification, see C-code too        */
  38. /*----------------------------------------------------------------------*/
  39.  
  40. value
  41.     k_menu_bar        : 1;
  42.  
  43.         k_file_pdme             : 2;
  44.         k_edit_pdme             : 3;    
  45.     k_page_pdme        : 4;
  46.     k_move_pdme        : 5;
  47.     k_options_pdme        : 6;
  48.  
  49.         k_file_menu             : 7;
  50.         k_edit_menu             : 8;
  51.         k_page_menu              : 9;
  52.     k_move_menu        : 10;
  53.     k_options_menu        : 11;
  54.  
  55.     k_about_me        : 12;
  56.     k_quit_me        : 13;
  57.  
  58.     k_undo_me        : 14;
  59.      k_cut_me        : 15;
  60.      k_copy_me        : 16;
  61.     k_paste_me        : 17;
  62.     k_clear_me        : 18;
  63.     k_s_all_me        : 19;
  64.  
  65.     k_prevpage_me        : 20;
  66.     k_nextpage_me        : 21;
  67.     k_gotopage_me        : 22;
  68.     k_zoom_in_me        : 23;
  69.     k_zoom_out_me        : 24;
  70.                                    
  71.     k_curs_up_me        : 25;
  72.     k_curs_down_me        : 26;
  73.     k_curs_left_me        : 27;
  74.     k_curs_right_me        : 28;
  75.     k_top_page_me        : 29;
  76.     k_bot_page_me        : 30;
  77.     
  78.     k_offset_me        : 31;
  79.     k_move_speed_me        : 32;
  80.     k_reset_pos_me        : 33;
  81.                                    
  82.         k_clipboard_msg         : 34;
  83.     k_about_msg        : 35;
  84.     k_about_button        : 36;
  85.                                    
  86.     k_goto_page_dlg        : 37;
  87.     k_goto_page_label    : 38;
  88.     k_pagenumber            : 39;
  89.     k_ok_button        : 40;
  90.     k_goto_button        : 41;
  91.     k_cancel_button        : 42;       
  92.                                    
  93.     k_lastpage_msg        : 43;
  94.     k_firstpage_msg        : 44;
  95.     k_zoomrange_msg        : 45;
  96.                                    
  97.     k_output        : 46;        
  98.     k_scroll_x        : 47;
  99.     k_scroll_y        : 48;
  100.  
  101. /*----------------------------------------------------------------------*/
  102. /* Declaration of callback procedures                    */
  103. /*----------------------------------------------------------------------*/
  104.  
  105. procedure
  106.     create_proc    (integer);
  107.         activate_proc    (integer);
  108.         output_exp_proc (integer);
  109.  
  110. /*----------------------------------------------------------------------*/
  111. /* Definition of Text strings                        */
  112. /*----------------------------------------------------------------------*/
  113.  
  114. value
  115.   k_file_label_text               : compound_string("File");
  116.       k_about_dot_label_text      : compound_string("About DVIDECW...");    
  117.       k_quit_label_text           : compound_string("Quit");
  118.       k_quit_acc_t          : compound_string("Q");   
  119.       k_quit_acc                  : "<KeyPress>q:";  
  120.   k_edit_label_text               : compound_string("Edit");
  121.       k_undo_label_text          : compound_string("Undo");
  122.       k_undo_acc_t          : compound_string("Alt/Z");
  123.       k_undo_acc          : "Alt<KeyPress>z:";    
  124.       k_cut_label_text              : compound_string("Cut");
  125.       k_cut_acc_t          : compound_string("Alt/X");
  126.       k_cut_acc              : "Alt<KeyPress>x:";
  127.       k_copy_label_text             : compound_string("Copy");
  128.       k_copy_acc_t          : compound_string("Alt/C");
  129.       k_copy_acc          : "Alt<KeyPress>c:";
  130.       k_paste_label_text            : compound_string("Paste");
  131.       k_paste_acc_t          : compound_string("Alt/V");
  132.       k_paste_acc          : "Alt<KeyPress>v:";
  133.       k_clear_label_text            : compound_string("Clear");
  134.       k_select_all_label_text     : compound_string("Select All");
  135.   k_page_label_text                  : compound_string("Page");
  136.       k_prevpage_label_text       : compound_string("Previous");
  137.       k_prevpage_acc_t          : compound_string("     P");
  138.       k_prevpage_acc              : "<KeyPress>p:";   
  139.       k_nextpage_label_text       : compound_string("Next");
  140.       k_nextpage_acc_t          : compound_string("     N");
  141.       k_nextpage_acc              : "<KeyPress>n:";   
  142.       k_gotopage_dot_label_text   : compound_string("Goto...");
  143.       k_zoom_in_label_text      : compound_string("Zoom in");
  144.       k_zoom_in_acc_t          : compound_string("Sh/Z");
  145.       k_zoom_in_acc               : "Shift<KeyPress>Z:";   
  146.       k_zoom_out_label_text      : compound_string("Zoom out");
  147.       k_zoom_out_acc_t          : compound_string("     Z");
  148.       k_zoom_out_acc              : "<KeyPress>z:";  
  149.       k_top_page_label_text      : compound_string("Top of page");
  150.       k_bot_page_label_text       : compound_string("Bot of page");
  151.   k_move_label_text          : compound_string("Move");
  152.       k_curs_up_label_text      : compound_string("Up");
  153.       k_curs_up_acc_t          : compound_string("U");
  154.       k_curs_up_acc               : "<KeyPress>u:";    
  155.       k_curs_down_label_text      : compound_string("Down");
  156.       k_curs_down_acc_t          : compound_string("D");
  157.       k_curs_down_acc             : "<KeyPress>d:";  
  158.       k_curs_left_label_text      : compound_string("Left");
  159.       k_curs_left_acc_t          : compound_string("L");
  160.       k_curs_left_acc             : "<KeyPress>l:";  
  161.       k_curs_right_label_text      : compound_string("Right");
  162.       k_curs_right_acc_t      : compound_string("R");
  163.       k_curs_right_acc            : "<KeyPress>r:";  
  164.   k_option_label_text          : compound_string("Options");
  165.       k_offset_label_text      : compound_string("No offset");
  166.       k_move_speed_label_text     : compound_string("Fast move");    
  167.       k_reset_pos_label_text      : compound_string("Reset position");    
  168.       k_reset_pos_acc_t          : compound_string("@");
  169.       k_reset_pos_acc              : "<KeyPress>@:"; 
  170.   k_ok_label_text                 : compound_string("Ok");            
  171.   k_goto_label_text               : compound_string("Go");            
  172.   k_cancel_label_text             : compound_string("Cancel");
  173.   k_goto_page_title          : compound_string("Select physical page number");
  174.   k_goto_page_label_label      : compound_string("Goto page :");
  175.   k_1_label_text          : '1';
  176.   k_about_msg_label_label1      : compound_string("DVIMotif 1.2/19.June.90");
  177.   k_about_msg_label_label2      : compound_string("(c)1990 Ch.MARKUS/Universitt Hamburg");
  178.   k_about_msg_label_label3      : compound_string("based on DVIxxx 2.10");
  179.   k_about_msg_label_label4      : compound_string("(c)1989 N.Beebe,University of Utah");
  180.  
  181.   k_clipboard_msg_label_text      : compound_string("Clipboard operation not completed");
  182.   k_lastpage_msg_text          : compound_string("Last page reached");
  183.   k_firstpage_msg_text            : compound_string("First page reached");
  184.   k_zoomrange_msg_text          : compound_string("Zoom range exceeded, fonts not available");    
  185.                                    
  186. /*----------------------------------------------------------------------*/
  187. /* Definition of Menu fonts                        */
  188. /*----------------------------------------------------------------------*/
  189.  
  190. value
  191.   k_button_font
  192.     : font('-Adobe-Courier-Bold-R-Normal--14-140-75-75-M-90-ISO8859-1');
  193.  
  194. /*----------------------------------------------------------------------*/
  195. /* Declaration of top level widgets                    */
  196. /*----------------------------------------------------------------------*/
  197.  
  198. object TheMainWindow : XmMainWindow
  199. {
  200.     arguments    
  201.     {
  202.      XmNscrollingPolicy    = 0;  
  203.      XmNwidth        = 621;
  204.      XmNheight        = 828;
  205.     };
  206.  
  207.         controls
  208.     {     
  209.      XmDrawingArea        output;    
  210.          XmMenuBar        s_menu_bar;         
  211.         };         
  212. };
  213.  
  214. /*----------------------------------------------------------------------*/
  215. /* Output XmDrawingArea definition                    */
  216. /*----------------------------------------------------------------------*/ 
  217.  
  218. object output : XmDrawingArea
  219. {  
  220.     arguments
  221.     {
  222.      XmNheight        = 828;
  223.      XmNwidth        = 621;
  224.     };
  225.     callbacks
  226.     {
  227.      XmNcreateCallback    = procedure create_proc(k_output);
  228.      XmNexposeCallback     = procedure output_exp_proc(k_output);
  229.     };
  230. };   
  231.  
  232. object s_menu_bar : XmMenuBar
  233. {
  234.         arguments
  235.     {
  236.          XmNorientation     = XmHORIZONTAL;
  237.         };
  238.  
  239.         controls
  240.     {                              
  241.          XmCascadeButton     file_menu_entry;
  242.          XmCascadeButton     edit_menu_entry;
  243.          XmCascadeButton     page_menu_entry; 
  244.      XmCascadeButton     move_menu_entry;
  245.      XmCascadeButton     option_menu_entry;   
  246.         };
  247. };
  248.  
  249. /*----------------------------------------------------------------------*/
  250. /* File menu widget, File menu, File menu entires            */
  251. /*----------------------------------------------------------------------*/
  252.  
  253. object file_menu_entry : XmCascadeButton
  254. {
  255.         arguments
  256.     {
  257.          XmNlabelString     = k_file_label_text;
  258.         };
  259.  
  260.         controls
  261.     {
  262.          XmPulldownMenu     file_menu;
  263.         };
  264. };
  265.  
  266. object file_menu : XmPulldownMenu
  267. {
  268.         controls
  269.     {
  270.      XmPushButton         m_about_button;
  271.      XmSeparator        {};
  272.          XmPushButton         m_quit_button;
  273.         };
  274. };
  275.  
  276.         
  277. object m_quit_button : XmPushButton
  278. {
  279.         arguments
  280.     {
  281.          XmNlabelString     = k_quit_label_text;
  282.      XmNacceleratorText     = k_quit_acc_t;
  283.      XmNaccelerator     = k_quit_acc;            
  284.         };
  285.  
  286.         callbacks
  287.     {
  288.          XmNactivateCallback     = procedure activate_proc (k_quit_me);
  289.         };
  290. };  
  291.  
  292. object m_about_button : XmPushButton
  293. {
  294.         arguments
  295.     {
  296.          XmNlabelString     = k_about_dot_label_text;
  297.         };
  298.  
  299.         callbacks
  300.     {
  301.          XmNactivateCallback     = procedure activate_proc (k_about_me);
  302.         };
  303. };       
  304.  
  305. /*----------------------------------------------------------------------*/
  306. /* Edit menu widget, edit menu, edit menu entries            */
  307. /*----------------------------------------------------------------------*/
  308.  
  309. object edit_menu_entry : XmCascadeButton
  310. {
  311.         arguments
  312.     {
  313.          XmNlabelString     = k_edit_label_text;
  314.         };
  315.  
  316.         controls
  317.     {
  318.          XmPulldownMenu edit_menu;
  319.         };
  320. };
  321.  
  322. object edit_menu : XmPulldownMenu 
  323. {
  324.         controls
  325.     {
  326.      XmPushButton         m_undo_button;
  327.      XmSeparator           {};
  328.          XmPushButton         m_cut_button;
  329.          XmPushButton         m_copy_button;
  330.          XmPushButton         m_paste_button;
  331.          XmPushButton         m_clear_button;
  332.          XmSeparator           {}; 
  333.          XmPushButton         m_select_all_button;
  334.         };
  335. };
  336. object m_undo_button : XmPushButton 
  337. {
  338.         arguments
  339.     {
  340.          XmNlabelString     = k_undo_label_text;
  341.      XmNacceleratorText     = k_undo_acc_t;
  342.      XmNaccelerator     = k_undo_acc;            
  343.      XmNsensitive         = false; 
  344.         };
  345.  
  346.         callbacks
  347.     {
  348.         };
  349. };  
  350.               
  351. object m_cut_button : XmPushButton 
  352. {
  353.         arguments
  354.     {
  355.          XmNlabelString         = k_cut_label_text;
  356.      XmNacceleratorText     = k_cut_acc_t;
  357.      XmNaccelerator     = k_cut_acc;            
  358.      XmNsensitive         = false; 
  359.         };
  360.  
  361.         callbacks
  362.     {
  363.         };
  364. };  
  365.             
  366. object m_copy_button : XmPushButton 
  367. {
  368.         arguments
  369.     {
  370.          XmNlabelString     = k_copy_label_text;
  371.      XmNacceleratorText     = k_copy_acc_t;
  372.      XmNaccelerator     = k_copy_acc;            
  373.         };
  374.                                   
  375.         callbacks
  376.     {
  377.          XmNactivateCallback     = procedure activate_proc (k_copy_me);
  378.         };
  379. };  
  380.             
  381. object m_paste_button : XmPushButton 
  382. {
  383.         arguments
  384.     {
  385.          XmNlabelString     = k_paste_label_text;
  386.      XmNacceleratorText     = k_paste_acc_t;
  387.      XmNaccelerator     = k_paste_acc;            
  388.      XmNsensitive         = false; 
  389.         };
  390.     
  391.         callbacks
  392.     {
  393.         };
  394. };  
  395.             
  396. object m_clear_button : XmPushButton 
  397. {
  398.         arguments 
  399.     {
  400.          XmNlabelString     = k_clear_label_text;
  401.      XmNsensitive         = false; 
  402.         };
  403.  
  404.         callbacks
  405.     {
  406.         };
  407. };  
  408.             
  409. object m_select_all_button : XmPushButton 
  410. {
  411.         arguments
  412.     {
  413.          XmNlabelString     = k_select_all_label_text;
  414.      XmNsensitive         = false; 
  415.         };
  416.  
  417.         callbacks
  418.     {
  419.         };
  420. };  
  421.  
  422. /*----------------------------------------------------------------------*/
  423. /* Page menu widget, option menu, page menu entries            */
  424. /*----------------------------------------------------------------------*/
  425.  
  426. object page_menu_entry : XmCascadeButton
  427. {
  428.         arguments
  429.     {
  430.          XmNlabelString     = k_page_label_text;
  431.         };
  432.     
  433.         controls
  434.     {
  435.          XmPulldownMenu     page_menu;
  436.         };
  437. };
  438.  
  439. object page_menu : XmPulldownMenu
  440. {
  441.         controls
  442.     {
  443.           XmPushButton         m_prevpage_button;
  444.           XmPushButton         m_nextpage_button;
  445.       XmSeparator       {};
  446.           XmPushButton         m_gotopage_dot_button;
  447.       XmSeparator       {};
  448.       XmPushButton         m_zoom_in_button;
  449.       XmPushButton         m_zoom_out_button;
  450.         };
  451. };
  452.     
  453.  
  454. object m_prevpage_button : XmPushButton
  455. {
  456.     arguments
  457.     {
  458.          XmNlabelString     = k_prevpage_label_text;
  459.      XmNacceleratorText     = k_prevpage_acc_t;
  460.      XmNaccelerator     = k_prevpage_acc;        
  461.       };
  462.  
  463.         callbacks
  464.     {
  465.          XmNactivateCallback     = procedure activate_proc (k_prevpage_me);
  466.         };
  467. };  
  468.             
  469. object m_nextpage_button : XmPushButton
  470. {
  471.         arguments
  472.     {
  473.      XmNlabelString     = k_nextpage_label_text;
  474.      XmNacceleratorText     = k_nextpage_acc_t;
  475.      XmNaccelerator     = k_nextpage_acc;      
  476.         };
  477.     
  478.         callbacks
  479.     {
  480.          XmNactivateCallback     = procedure activate_proc (k_nextpage_me);
  481.         };
  482. };  
  483.  
  484. object m_gotopage_dot_button : XmPushButton
  485. {
  486.         arguments
  487.     {
  488.          XmNlabelString     = k_gotopage_dot_label_text;
  489.         };
  490.     
  491.         callbacks
  492.     {
  493.      MrmNcreateCallback     = procedure create_proc(k_gotopage_me);
  494.          XmNactivateCallback     = procedure activate_proc (k_gotopage_me);
  495.         };
  496. };  
  497.  
  498. object m_zoom_in_button : XmPushButton
  499. {
  500.         arguments
  501.     {
  502.          XmNlabelString     = k_zoom_in_label_text;
  503.      XmNacceleratorText     = k_zoom_in_acc_t;
  504.      XmNaccelerator     = k_zoom_in_acc;      
  505.         };
  506.     
  507.         callbacks
  508.     {
  509.          XmNactivateCallback     = procedure activate_proc (k_zoom_in_me);
  510.         };
  511. };  
  512.  
  513. object m_zoom_out_button : XmPushButton
  514. {
  515.         arguments
  516.     {
  517.          XmNlabelString     = k_zoom_out_label_text;
  518.      XmNacceleratorText     = k_zoom_out_acc_t;
  519.      XmNaccelerator     = k_zoom_out_acc;         
  520.         };
  521.     
  522.         callbacks
  523.     {
  524.          XmNactivateCallback     = procedure activate_proc (k_zoom_out_me);
  525.         };
  526. };
  527.  
  528. /*----------------------------------------------------------------------*/
  529. /* Move menu widget, move menu, move menu entries            */
  530. /*----------------------------------------------------------------------*/
  531.  
  532. object move_menu_entry : XmCascadeButton
  533. {
  534.         arguments
  535.     {
  536.          XmNlabelString     = k_move_label_text;
  537.         };
  538.     
  539.         controls
  540.     {
  541.          XmPulldownMenu     move_menu;
  542.         };
  543. };
  544.    
  545. object move_menu : XmPulldownMenu
  546. {
  547.         controls
  548.     {
  549.           XmPushButton         m_curs_up_button;
  550.           XmPushButton         m_curs_down_button;
  551.       XmPushButton         m_curs_left_button;
  552.           XmPushButton         m_curs_right_button;
  553.       XmSeparator       {};
  554.       XmPushButton         m_top_page_button;
  555.           XmPushButton         m_bot_page_button;
  556.         };
  557. };  
  558.  
  559. object m_curs_up_button : XmPushButton
  560. {
  561.         arguments
  562.     {
  563.          XmNlabelString     = k_curs_up_label_text;
  564.      XmNacceleratorText     = k_curs_up_acc_t;
  565.      XmNaccelerator     = k_curs_up_acc;         
  566.     };
  567.     
  568.         callbacks
  569.     {
  570.          XmNactivateCallback     = procedure activate_proc (k_curs_up_me);
  571.         };
  572. };
  573.  
  574. object m_curs_down_button : XmPushButton
  575. {
  576.         arguments
  577.     {
  578.          XmNlabelString     = k_curs_down_label_text;       
  579.      XmNacceleratorText     = k_curs_down_acc_t;
  580.      XmNaccelerator     = k_curs_down_acc;         
  581.         };
  582.     
  583.         callbacks
  584.     {
  585.          XmNactivateCallback     = procedure activate_proc (k_curs_down_me);
  586.         };
  587. };
  588.  
  589. object m_curs_left_button : XmPushButton
  590. {
  591.         arguments
  592.     {
  593.          XmNlabelString     = k_curs_left_label_text;      
  594.      XmNacceleratorText     = k_curs_left_acc_t;
  595.      XmNaccelerator     = k_curs_left_acc;         
  596.         };
  597.     
  598.         callbacks
  599.     {
  600.          XmNactivateCallback     = procedure activate_proc (k_curs_left_me);
  601.         };
  602. };
  603.  
  604.  
  605. object m_curs_right_button : XmPushButton
  606. {
  607.         arguments
  608.     {
  609.          XmNlabelString     = k_curs_right_label_text;   
  610.      XmNacceleratorText     = k_curs_right_acc_t;
  611.      XmNaccelerator     = k_curs_right_acc;         
  612.         };
  613.     
  614.         callbacks
  615.     {
  616.          XmNactivateCallback     = procedure activate_proc (k_curs_right_me);
  617.         };
  618. };  
  619.  
  620. object m_top_page_button : XmPushButton
  621. {
  622.         arguments
  623.     {
  624.          XmNlabelString     = k_top_page_label_text;
  625.         };
  626.     
  627.         callbacks
  628.     {
  629.          XmNactivateCallback     = procedure activate_proc (k_top_page_me);
  630.         };
  631. };  
  632.  
  633. object m_bot_page_button : XmPushButton
  634. {
  635.         arguments
  636.     {
  637.          XmNlabelString     = k_bot_page_label_text;
  638.         };
  639.     
  640.         callbacks
  641.     {
  642.          XmNactivateCallback     = procedure activate_proc (k_bot_page_me);
  643.         };
  644. };  
  645.  
  646. /*----------------------------------------------------------------------*/
  647. /* Option menu widget, option menu, option menu entries            */
  648. /*----------------------------------------------------------------------*/
  649.  
  650. object option_menu_entry : XmCascadeButton
  651. {
  652.         arguments
  653.     {
  654.          XmNlabelString     = k_option_label_text;
  655.         };
  656.     
  657.         controls
  658.     {
  659.          XmPulldownMenu     XmOptionMenu;
  660.         };
  661. };
  662.  
  663. object XmOptionMenu : XmPulldownMenu
  664. {
  665.         controls
  666.     {
  667.           XmPushButton         m_offset_button;
  668.       XmSeparator       {};
  669.       XmPushButton         m_move_speed_button;
  670.       XmSeparator       {};
  671.           XmPushButton         m_reset_pos_button;
  672.         };
  673. };
  674.   
  675. object m_offset_button : XmPushButton
  676. {
  677.         arguments
  678.     {
  679.          XmNlabelString     = k_offset_label_text;
  680.         };
  681.     
  682.         callbacks
  683.     {
  684.      MrmNcreateCallback     = procedure create_proc(k_offset_me);
  685.          XmNactivateCallback     = procedure activate_proc (k_offset_me);
  686.         };
  687. };  
  688.    
  689.    
  690. object m_move_speed_button : XmPushButton
  691. {
  692.         arguments
  693.     {
  694.          XmNlabelString     = k_move_speed_label_text;
  695.         };
  696.     
  697.         callbacks
  698.     {
  699.      MrmNcreateCallback     = procedure create_proc(k_move_speed_me);
  700.          XmNactivateCallback     = procedure activate_proc (k_move_speed_me);
  701.         };
  702. };  
  703.  
  704. object m_reset_pos_button : XmPushButton
  705. {
  706.         arguments
  707.     {
  708.          XmNlabelString     = k_reset_pos_label_text;     
  709.      XmNacceleratorText     = k_reset_pos_acc_t;
  710.      XmNaccelerator     = k_reset_pos_acc;        
  711.         };
  712.     
  713.         callbacks
  714.     {
  715.          XmNactivateCallback     = procedure activate_proc (k_reset_pos_me);
  716.         };
  717. };  
  718.  
  719. /*----------------------------------------------------------------------*/
  720. /* Info box about this application                    */
  721. /*----------------------------------------------------------------------*/
  722.  
  723. object AboutMsg : XmBulletinBoardDialog 
  724. {
  725.     arguments
  726.     {
  727.      XmNdefaultButton     = XmPushButton about_button;
  728.      XmNdefaultPosition     = true;      
  729.      XmNdialogStyle     = XmDIALOG_APPLICATION_MODAL;    
  730.      XmNheight         = 160;    
  731.      XmNwidth         = 290;
  732.     };
  733.  
  734.     controls
  735.     {
  736.      XmLabel        about_label1;   
  737.      XmLabel        about_label2;   
  738.      XmLabel        about_label3;   
  739.      XmLabel        about_label4;   
  740.      XmPushButton        about_button;
  741.     };
  742.  
  743.     callbacks
  744.     {
  745.      MrmNcreateCallback     = procedure create_proc(k_about_msg);
  746.     };
  747. };
  748.  
  749. object about_button : XmPushButton widget
  750. {
  751.     arguments
  752.     {
  753.      XmNx             = 60;
  754.      XmNy             = 80;      
  755.      XmNlabelString     = k_ok_label_text;
  756.     };
  757.  
  758.     callbacks
  759.     {
  760.         XmNactivateCallback     = procedure activate_proc(k_about_button);
  761.     };
  762. };    
  763.  
  764. object about_label1 : XmLabel 
  765. {
  766.     arguments
  767.     {
  768.      XmNx             = 5;
  769.      XmNy             = 10;
  770.      XmNlabelString     = k_about_msg_label_label1;
  771.     };
  772. };
  773.  
  774. object about_label2 : XmLabel 
  775. {
  776.     arguments
  777.     {
  778.      XmNx             = 5;
  779.      XmNy             = 25;
  780.      XmNlabelString     = k_about_msg_label_label2;
  781.     };
  782. };
  783.  
  784. object about_label3 : XmLabel 
  785. {
  786.     arguments
  787.     {
  788.      XmNx             = 5;
  789.      XmNy             = 40;
  790.      XmNlabelString     = k_about_msg_label_label3;
  791.     };
  792. };
  793.  
  794. object about_label4 : XmLabel 
  795. {
  796.     arguments
  797.     {
  798.      XmNx             = 5;
  799.      XmNy             = 55;
  800.      XmNlabelString     = k_about_msg_label_label4;
  801.     };
  802. };
  803.       
  804. /*----------------------------------------------------------------------*/
  805. /* Not yet implemented alert box definition                */
  806. /*----------------------------------------------------------------------*/
  807.  
  808. object ClipboardMsg : XmMessageDialog
  809. {
  810.     arguments
  811.     {
  812.      XmNmessageString     = k_clipboard_msg_label_text;
  813.      XmNdefaultPosition     = true;
  814.     };
  815. };  
  816.       
  817. /*----------------------------------------------------------------------*/
  818. /* Lastpage info box                            */
  819. /*----------------------------------------------------------------------*/
  820.  
  821. object LastpageMsg : XmMessageDialog
  822. {
  823.     arguments
  824.     {
  825.      XmNmessageString     = k_lastpage_msg_text;
  826.      XmNdefaultPosition     = true;
  827.      XmNokLabelString     = "OK";            
  828.     };
  829. };  
  830.  
  831. /*----------------------------------------------------------------------*/
  832. /* First page info box                            */
  833. /*----------------------------------------------------------------------*/
  834.  
  835. object FirstpageMsg : XmMessageDialog
  836. {
  837.     arguments
  838.     {
  839.      XmNmessageString     = k_firstpage_msg_text;
  840.      XmNdefaultPosition     = true;
  841.      XmNokLabelString     = "OK";       
  842.     };
  843. };  
  844.  
  845. /*----------------------------------------------------------------------*/
  846. /* Out of zoomrange info box                        */
  847. /*----------------------------------------------------------------------*/
  848.  
  849. object ZoomrangeMsg : XmMessageDialog
  850. {
  851.     arguments
  852.     {
  853.      XmNmessageString     = k_zoomrange_msg_text;
  854.      XmNdefaultPosition     = true;
  855.      XmNokLabelString     = "OK";       
  856.     };
  857. };  
  858.  
  859. /*----------------------------------------------------------------------*/
  860. /* Goto page ... dialog box definition                    */
  861. /*----------------------------------------------------------------------*/
  862.  
  863.  
  864. object GotopageDlg : XmBulletinBoardDialog 
  865. {
  866.     arguments
  867.     {
  868.      XmNdialogTitle     = k_goto_page_title;
  869.      XmNdialogStyle     = XmDIALOG_MODELESS;
  870.      XmNdefaultButton     = ok_button; 
  871.      XmNmarginWidth     = 20;              
  872.      XmNheight         = 200;    
  873.      XmNwidth         = 400;
  874.     };
  875.  
  876.     controls
  877.     {
  878.      XmLabel        goto_page_label;
  879.      XmText            pagenumber;
  880.      XmPushButton        ok_button;
  881.      XmPushButton       goto_button;
  882.      XmPushButton        cancel_button;    
  883.     };
  884.  
  885.     callbacks
  886.     {
  887.      MrmNcreateCallback     = procedure create_proc(k_goto_page_dlg);
  888.     };
  889. };
  890.  
  891. object ok_button : XmPushButton widget
  892. {
  893.     arguments
  894.     {
  895.      XmNx             = 15;
  896.      XmNy             = 70;
  897.      XmNlabelString     = k_ok_label_text;
  898.     };
  899.     callbacks
  900.     {
  901.      XmNactivateCallback     = procedure activate_proc(k_ok_button);
  902.     };
  903. };    
  904.  
  905.  
  906. object goto_page_label : XmLabel 
  907. {
  908.     arguments
  909.     {
  910.      XmNx             = 15;
  911.      XmNy             = 20;
  912.      XmNlabelString     = k_goto_page_label_label;
  913.     };
  914. };
  915.     
  916. object pagenumber : XmText
  917. {
  918.     arguments
  919.     {
  920.      XmNx              = 120;
  921.      XmNy              = 20;
  922.      XmNwidth          = 50;
  923.      XmNmaxLength        = 3;
  924.      XmNvalue          = k_1_label_text;
  925.      XmNresizeWidth      = false;
  926.      XmNresizeHeight     = false;
  927.     };
  928.     callbacks
  929.     {
  930.      MrmNcreateCallback     = procedure create_proc(k_pagenumber);
  931.     };
  932. };
  933.  
  934. object goto_button : XmPushButton widget
  935. {
  936.     arguments
  937.     {
  938.      XmNx             = 70;
  939.      XmNy             = 70;
  940.      XmNlabelString     = k_goto_label_text;
  941.     };
  942.     callbacks
  943.     {
  944.      XmNactivateCallback     = procedure activate_proc(k_goto_button);
  945.     };
  946. }; 
  947.  
  948. object cancel_button : XmPushButton widget
  949. {
  950.     arguments
  951.     {
  952.      XmNx             = 140;
  953.      XmNy             = 70;
  954.      XmNlabelString     = k_cancel_label_text;
  955.     };
  956.     callbacks
  957.     {
  958.      XmNactivateCallback     = procedure activate_proc(k_cancel_button);
  959.     };
  960. };
  961.  
  962.  
  963. end module;
  964.