home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / p2demo21.exe / PEL / GUI.PEL < prev    next >
Text File  |  1995-03-17  |  13KB  |  491 lines
  1. # $Header:   P:\source\wmacros\gui.pev   1.83   17 Mar 1995 11:59:06   WALKER  $
  2.  
  3. ##############################################################################
  4. #
  5. #       Compuware Corporation
  6. #         31440 Northwestern Highway
  7. #           Farmington Hills, Michigan 48334-2564
  8. #
  9. #   This source code listing contains information that is
  10. #   proprietary to Compuware Corporation and may not be copied
  11. #   duplicated, translated, transmitted, stored, retrieved
  12. #   or in any manner or by any method conveyed or disclosed
  13. #   to a third party or parties without express written
  14. #   permission from Compuware Corporation.
  15. #
  16. #  
  17. ##############################################################################
  18.  
  19.  
  20. #### $Workfile:   gui.pel  $: gui functions
  21.  
  22. ## $Tabs:4 7$
  23.  
  24. # Not used right now, but will be when and if we decide to disable buttons
  25. #local function check_ext()
  26. #{
  27. #   local ext    = tolower(path_ext( buffer_filename ));
  28. #   return  (  (file_extensions["c"]          ~ ext) \
  29. #         || (file_extensions["basic"]      ~ ext) \
  30. #         || (file_extensions["pascal"]     ~ ext) \
  31. #         || (file_extensions["dbase"]      ~ ext) \
  32. #         || (file_extensions["clipper87"]  ~ ext) \
  33. #         || (file_extensions["clipper50"]  ~ ext) \
  34. #         || (file_extensions["force"]      ~ ext) )
  35. #}
  36.  
  37.  
  38. function gui_undo( index )
  39. {
  40.    local status = !!undo_index()
  41.  
  42.    if ( argcount() )
  43.       status = undo( index )
  44.    else
  45.       status = undo()
  46. }
  47.  
  48. function gui_redo( index )
  49. {
  50.    local status
  51.  
  52.    if ( argcount() )
  53.       status = redo( index )
  54.    else
  55.       status = redo()
  56. }
  57.  
  58. #------------- Basic text commands support ---------------------------------#
  59. function gui_backspace()
  60. {
  61.    if (( current_column > 1 ) \
  62.    || and( buffer_flags, BUFFER_WP_ENABLED ))
  63.    {
  64.       backspace()
  65.    }
  66. }
  67.  
  68.  
  69. #------------- Playback/record and Macros functions unique to gui ----------#
  70.  
  71.  
  72. #------------- Miscellaneous functions unique to gui -----------------------#
  73.  
  74. global function gui_invoke_function()
  75. {
  76.    local mac
  77.  
  78. # UNCOMMENT next 3 lines when common command works and delete last line
  79. #   mac = ltrim( command_dialog() )
  80. #   if (mac) 
  81. #      invoke_function(mac)
  82.  
  83.    invoke_function()
  84. }
  85.  
  86. # 
  87. # new_edit_file()
  88. #
  89. # Whenever a new edit file is created, the extension is stripped from
  90. # the file name and a function with that extension (preceded by "_")
  91. # is invoked. If the function does not exist, "default()" is called.
  92. #
  93. #global function new_edit_file()
  94. #{
  95. #   local   ext = path_ext( buffer_filename );
  96. #   local   lev = message_level;
  97. #   local   def_name = "default"
  98. #   local   id
  99. #
  100. #   message_level = 3;
  101. #
  102. #   if (ext)
  103. #   {
  104. #      if (substr( ext, 1, 1 ) == "." )
  105. #      {
  106. #         ext = "_" substr( ext, 2 );
  107. #         id = function_id( ext );
  108. #         if ( id )
  109. #         {
  110. #            message_level = lev;
  111. #            execute_function( ext );
  112. #            return;
  113. #         }
  114. #      }
  115. #   }
  116. #
  117. #   id = function_id( def_name );
  118. #   message_level = lev;
  119. #   if ( id )
  120. #      execute_function( def_name );
  121. #}
  122.  
  123. # read the print settings the first time print is selected
  124. local read_print_settings = 1
  125.  
  126. global function gui_print()
  127. {
  128.    if (read_print_settings)
  129.    {
  130.       read_print_settings = 0
  131.       read_config_section("$PRINT_SETTINGS$")      
  132.    }
  133.    print_dialog()
  134. }
  135.  
  136. global function save_print_settings()
  137. {
  138.    local data_array
  139.    local index = 0
  140.  
  141.    # if read_print_settings is 1 then we haven't read the config
  142.    # information in so don't try to write it just return.
  143.    if (read_print_settings == 1)
  144.       return data_array;
  145.  
  146.    data_array[ index++ ] = sprintf( "print_split=%d\n",          print_split )
  147.    data_array[ index++ ] = sprintf( "print_word_wrap=%d\n",      print_word_wrap )
  148.    data_array[ index++ ] = sprintf( "print_indent=%d\n",         print_indent )
  149.    data_array[ index++ ] = sprintf( "print_program_indent=%d\n", print_program_indent )
  150.    data_array[ index++ ] = sprintf( "print_columns=%d\n",        print_columns )
  151.    data_array[ index++ ] = sprintf( "print_orientation=%d\n",    print_orientation )
  152.  
  153.    data_array[ index++ ] = sprintf( "headers_enabled=%d\n",      headers_enabled)
  154.    data_array[ index++ ] = sprintf( "footers_enabled=%d\n",      footers_enabled)
  155.  
  156.    data_array[ index++ ] = sprintf( "header=\"%s\"\n", quote_string(header))
  157.    data_array[ index++ ] = sprintf( "footer=\"%s\"\n", quote_string(footer))
  158.  
  159.    if ( length(print_font_name) )
  160.    {
  161.       store_print_font("print", "Fonts")
  162.       data_array[ index++ ] = sprintf("load_print_font \"print\" \"Fonts\"\n")
  163.    }
  164.  
  165.    if ( length(header_font_name) )
  166.    {
  167.       store_header_font("header", "Fonts")
  168.       data_array[ index++ ] = sprintf("load_header_font \"header\" \"Fonts\"\n")
  169.    }
  170.  
  171.    if ( length(footer_font_name) )
  172.    {
  173.       store_footer_font("footer", "Fonts")
  174.       data_array[ index++ ] = sprintf("load_footer_font \"footer\" \"Fonts\"\n")
  175.    }
  176.  
  177.    data_array[ index++ ] = sprintf( "\n" )
  178.    return data_array
  179. }
  180.  
  181.  
  182. global function gui_print_select()
  183. {
  184.    print_select_dialog()
  185. }
  186.  
  187. global function gui_new(dontCallCreate)
  188. {
  189.    local this_buffer = current_buffer
  190.    local newBuffer;
  191.  
  192.    next_buffer( this_buffer )
  193.    newBuffer = new_buffer_name();
  194.  
  195.    if(newBuffer && !dontCallCreate)
  196.    {
  197.       create_buf_and_win(newBuffer);
  198.       buffer_flags = or(buffer_flags, BUFFER_SCRATCH);
  199.    }
  200.  
  201.    return newBuffer;
  202. }
  203.  
  204. local lastPath = "*.*"
  205.  
  206. local ENABLE_LOCK_FILE            = 0x10000000
  207. local ENABLE_COPY_FILE_TO_VM      = 0x01000000
  208. local ENABLE_OPEN_FILE_IN_WINDOW  = 0x00100000
  209. local ENABLE_READ_ONLY            = 0x00010000
  210. local ALL_ENABLED                 =  ENABLE_COPY_FILE_TO_VM      +
  211.                                      ENABLE_LOCK_FILE            +
  212.                                      ENABLE_OPEN_FILE_IN_WINDOW  +
  213.                                      ENABLE_READ_ONLY
  214.  
  215. local COPY_FILE_TO_VM_CHECKED     = 0x00001000
  216. local LOCK_FILE_CHECKED           = 0x00000100
  217. local OPEN_FILE_IN_WINDOW_CHECKED = 0x00000010
  218. local READ_ONLY_CHECKED           = 0x00000001
  219.  
  220. global function gui_open( infileToOpen )
  221. {
  222.    local InitialPath
  223.    local listOfFiles
  224.    local arrayOfFiles
  225.    local fileToOpen
  226.    local ret
  227.    local i
  228.    local flags
  229.    local buffer_ro
  230.    local lock_buf
  231.    local copy
  232.    local wf
  233.    local editfile_list
  234.    local old_create_new_bufwin = create_new_bufwin
  235.    
  236.    #  if infileToOpen is specified use it otherwise use 
  237.    #  use the last path that was used.
  238.    InitialPath = (infileToOpen) ? infileToOpen : lastPath
  239.    
  240.    flags = ALL_ENABLED
  241.    
  242.    if ( !mdi_mode )
  243.       flags = and(flags, not(ENABLE_OPEN_FILE_IN_WINDOW) )
  244.  
  245.    if ( create_new_bufwin )
  246.       flags = or(flags, OPEN_FILE_IN_WINDOW_CHECKED);
  247.  
  248.    editfile_list = get_history_list("EDITFILE")
  249.  
  250.    listOfFiles = open_dialog( InitialPath, "Open", flags, "open", editfile_list )
  251.    
  252.    if ( listOfFiles )
  253.    {
  254.       # parse out the files and flags.  Flags are always the first
  255.       # element in the list. 
  256.  
  257.       split(listOfFiles, arrayOfFiles, ";")
  258.  
  259.       # the flags are the first items in the array
  260.       if ( and( arrayOfFiles[1], OPEN_FILE_IN_WINDOW_CHECKED) )
  261.          create_new_bufwin = 1
  262.       else
  263.          create_new_bufwin = 0
  264.  
  265.       if ( and( arrayOfFiles[1], READ_ONLY_CHECKED ) )
  266.          buffer_ro = 1             
  267.       else
  268.          buffer_ro = 0
  269.  
  270.       if ( and( arrayOfFiles[1], LOCK_FILE_CHECKED ) )
  271.          lock_buf = TRUE
  272.       else
  273.          lock_buf = FALSE
  274.  
  275.       if ( and( arrayOfFiles[1], COPY_FILE_TO_VM_CHECKED ) )
  276.          copy = TRUE
  277.       else
  278.          copy = FALSE
  279.  
  280.       for(i in arrayOfFiles)
  281.       {
  282.  
  283.          if ( i != 1 )
  284.          {
  285.             fileToOpen = arrayOfFiles[i]
  286.             add_prompt_history("EDITFILE", fileToOpen)
  287.             create_buf_and_win(fileToOpen)
  288.  
  289.             if ( buffer_ro )
  290.                buffer_flags = or( buffer_flags, BUFFER_READ_ONLY )
  291.  
  292.             if ( lock_buf )
  293.                lock_buffer()
  294.  
  295.             if ( copy )
  296.                copy_buffer_internally()
  297.  
  298.             # parse the drive:directory from the filename and store in
  299.             # last path.
  300.             #
  301.             lastPath = path_path(fileToOpen) "*.*"
  302.          }
  303.       }
  304.       #  restore the old state of create_new_bufwin only if it was not toggled off;
  305.       if(!old_create_new_bufwin || create_new_bufwin)
  306.          create_new_bufwin = old_create_new_bufwin
  307.  
  308. #      if ( current_window == 0 )
  309. #      {
  310. #         if ( mdi_mode )
  311. #         {
  312. #            wf = and(WINDOW_STANDARD_MDI, not(WINDOW_ZOOM))
  313. #            wf = or(wf, WINDOW_EXPANDED)
  314. #            current_window = create_window( 0, 0, 100, 100, wf)
  315. #         }
  316. #         else
  317. #            current_window = create_window( 0, 0, 100, 100, WINDOW_STANDARD_SDI )
  318. #      
  319. #         attach_window_buffer( current_window, current_buffer )
  320. #      }
  321.  
  322.       # display current filename
  323.       #
  324.       display_filename()
  325.       return TRUE
  326.    }
  327.    else
  328.       return FALSE
  329. }
  330.  
  331. function gui_save()
  332. {
  333.    if ( is_scratch_file(current_buffer) )
  334.       return gui_saveas()
  335.  
  336.    write_buffer_key()
  337. }
  338.  
  339. global function edit_another(infileToOpen)
  340. {
  341.    local InitialPath
  342.    local fileToOpen
  343.    local arr
  344.    local ret
  345.  
  346.    #  if infileToOpen is specified use it otherwise use 
  347.    #  use the last path that was used.
  348.    InitialPath = (infileToOpen) ? infileToOpen : lastPath
  349.  
  350.    fileToOpen = open_dialog( InitialPath, "Edit Another File", 0, "open_dialog" )
  351.    split(fileToOpen, arr, ";")
  352.  
  353.    if ( arr[2] )  {
  354.       ret = spawn( ARGV[0], arr[2] )
  355.       if (ret != 0) {
  356.          error("Could not execute: " ARGV[0] " " arr[2])
  357.       }
  358.  
  359.       # parse the drive:directory from the filename and store in
  360.       # last path.
  361.       lastPath = path_path(arr[2]) "*.*"
  362.    }
  363. }
  364.  
  365. global function gui_insert_file( infileToOpen )
  366. {
  367.    local InitialPath
  368.    local fileToOpen
  369.    local arr
  370.  
  371.    #  if infileToOpen is specified use it otherwise use 
  372.    #  use the last path that was used.
  373.    #
  374.    InitialPath = (infileToOpen) ? infileToOpen : lastPath
  375.  
  376.    fileToOpen = open_dialog( InitialPath, "Insert File", 0, "insert" )
  377.  
  378.    # parse out the open flags
  379.    split(fileToOpen, arr, ";")
  380.  
  381.    if ( arr[2] ) {
  382.       read_file_key(arr[2])
  383.  
  384.       # parse the drive:directory from the filename and store in
  385.       # last path.
  386.       lastPath = path_path(arr[2]) "*.*"
  387.    }
  388.    return arr[2];
  389. }
  390.  
  391. # gui_saveas returns 0 if file was not written, 1 if it was
  392. global function gui_saveas( infileToWrite )
  393. {
  394.    local fileToWrite
  395.    local old_bfname
  396.    local old_bname
  397.    local ret = 0
  398.    local overwrite = TRUE
  399.    local prompt_str
  400.    local fname
  401.    local start_buf
  402.  
  403.    fileToWrite = saveas_dialog( (infileToWrite) ? infileToWrite : buffer_filename, 
  404.                                  "saveas")
  405.    
  406.    if ( filemode(fileToWrite) != -1 )
  407.       prompt_str = fileToWrite " exists"
  408.  
  409.    start_buf = current_buffer
  410.    fname = path_fname(fileToWrite)
  411.    while ( (current_buffer = next_buffer("", 1, 1)) != start_buf )
  412.    {
  413.       if ( buildpath(fileToWrite) == buildpath(buffer_filename) )
  414.       {
  415.          if ( prompt_str )
  416.             prompt_str = prompt_str " and is in a buffer"
  417.          else
  418.             prompt_str = fileToWrite " is in a buffer"
  419.  
  420.          current_buffer = start_buf
  421.          break
  422.       }
  423.    }
  424.  
  425.    if ( prompt_str )
  426.       overwrite = tolower(confirm( prompt_str ". Overwrite? ", "yYnN" )) == "y"
  427.  
  428.    if ( fileToWrite && overwrite )  
  429.     {
  430.       ret = write_buffer_as(fileToWrite)
  431.         if ( ret )
  432.         {
  433.            new_edit_file()
  434.            syntax_new_buffer()
  435.         }
  436.     }
  437.  
  438.    return ret
  439. }      
  440.  
  441. global function gui_saveall()
  442. {
  443.    if ( !write_all_buffers() ) 
  444.       {
  445.       error("Unable to write buffers")
  446.       return
  447.       }
  448.    message("All buffers saved.")
  449. }
  450.  
  451. function gui_write_block()
  452. {
  453.    local   fileToWrite
  454.    local   status
  455.  
  456.    if( selection_type() == NO_SELECTION )
  457.    {
  458.       warning("Cannot write block.  Nothing selected.")
  459.    }
  460.    else
  461.    {
  462.       fileToWrite = prompt( "Write block as: ", "", "write_buffer_as_dialog" )
  463.       if (fileToWrite)
  464.       {
  465.          backup_file( fileToWrite );
  466.          if (write_marked_block( fileToWrite ))
  467.             message("Write successful.")
  468.       }
  469.    }
  470. }
  471.  
  472. global function gui_delete_buffer()
  473. {
  474.    delete_buffer_key("", 1);
  475. }
  476.  
  477. function gui_delete_to_scrap()
  478. {
  479.    delete_to_scrap()
  480. }
  481.  
  482. global function gui_nyi()                                       #PUBLIC #VOID
  483. {
  484.    warning( " Not yet implemented" )
  485. }
  486.  
  487. # unimplemented functions
  488. global function init_menu_colors() { gui_nyi();}
  489. global function pvcs_get_group() { gui_nyi();}
  490.  
  491.