<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
                      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html  xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" href="../robodoc.css" type="text/css" />
<title>./src/gui/mainwindow-commands.adb</title>
<!-- Source: ./src/gui/mainwindow-commands.adb -->
<!-- Generated with ROBODoc Version 4.99.43 (Feb  8 2020) -->
</head>
<body>
<div id="logo">
<a name="robo_top_of_doc">Hunter v1.6 code documentation</a>
</div> <!-- logo -->
<div id="navigation">
<a class="menuitem" href="../toc_index.html#top">Table of Contents</a>
<a class="menuitem" href="../sources.html#top">Source files</a>
<a class="menuitem" href="../index.html#top">Index</a>
<a class="menuitem" href="../robo_tasks.html#top">Tasks</a>
<a class="menuitem" href="../robo_constants.html#top">Constants</a>
<a class="menuitem" href="../robo_exceptions.html#top">Exceptions</a>
<a class="menuitem" href="../robo_subprograms.html#top">Subprograms</a>
<a class="menuitem" href="../robo_packages.html#top">Packages</a>
<a class="menuitem" href="../robo_commands.html#top">Commands</a>
<a class="menuitem" href="../robo_records.html#top">Records</a>
<a class="menuitem" href="../robo_types.html#top">Types</a>
<a class="menuitem" href="../robo_variables.html#top">Variables</a>
</div> <!-- navigation -->
<div id="content">
<h3>TABLE OF CONTENTS</h3>
<ul>
<li>1. <a href="#robo67">MCommands/MCommands.ExitCommand</a></li>
<li>2. <a href="#robo333">MCommands/MCommands.Arrange_Path_Command</a></li>
<li>3. <a href="#robo334">MCommands/MCommands.Cancel_Action_Command</a></li>
<li>4. <a href="#robo335">MCommands/MCommands.Hide_Widget_Command</a></li>
<li>5. <a href="#robo336">MCommands/MCommands.Invoke_Button_Command</a></li>
<li>6. <a href="#robo337">MCommands/MCommands.Quit_Command</a></li>
<li>7. <a href="#robo338">MCommands/MCommands.Show_File_Command</a></li>
<li>8. <a href="#robo339">MCommands/MCommands.Show_File_Menu_Command</a></li>
<li>9. <a href="#robo340">MCommands/MCommands.Sort_Command</a></li>
<li>10. <a href="#robo341">MCommands/MCommands.Toggle_Selection_Command</a></li>
</ul>
<hr />
<a name="MCommands2fMCommands2eExitCommand"></a>
<a name="robo67"></a><h2>MCommands/MCommands.ExitCommand [ Types ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_types.html#robo_top_of_doc">Types</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Used in creating exit handler for the program
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">package</span> ExitCommand <span class="keyword">is</span> <span class="keyword">new</span> Tcl<span class="sign">.</span>Ada<span class="sign">.</span>Generic_ExitHandler<span class="sign">(</span>Integer<span class="sign">)</span><span class="sign">;</span>
</pre>

<hr />
<a name="MCommands2fMCommands2eArrange5fPath5fCommand"></a>
<a name="robo333"></a><h2>MCommands/MCommands.Arrange_Path_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Arrange path buttons when they window were resized
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Arrange_Path_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> ArrangePath buttonsframe width
 Buttonsframe is the pathname of the frame which hold buttons which will
 be resized. Width is the new width for the buttonsframe
</pre>

<hr />
<a name="MCommands2fMCommands2eCancel5fAction5fCommand"></a>
<a name="robo334"></a><h2>MCommands/MCommands.Cancel_Action_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Select all or deselect all items in directory view
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Cancel_Action_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command. Unused
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK;
</pre>
<p class="item_name">COMMANDS</p>
<pre> CancelAction
</pre>

<hr />
<a name="MCommands2fMCommands2eHide5fWidget5fCommand"></a>
<a name="robo335"></a><h2>MCommands/MCommands.Hide_Widget_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Hide text entry or message, depends on which is visible
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Hide_Widget_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command.
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command.
 Argv       - Values of arguments passed to the command.
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> HideWidget
</pre>

<hr />
<a name="MCommands2fMCommands2eInvoke5fButton5fCommand"></a>
<a name="robo336"></a><h2>MCommands/MCommands.Invoke_Button_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Invoke the selected button if it is mapped
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Invoke_Button_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command.
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> InvokeButton buttonname
 Buttonname is pathname of the button which will be invoked
</pre>

<hr />
<a name="MCommands2fMCommands2eQuit5fCommand"></a>
<a name="robo337"></a><h2>MCommands/MCommands.Quit_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Save preferences and clear trash on exit from the program
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">procedure</span> Quit_Command<span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">)</span> <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
</pre>
<p class="item_name">COMMANDS</p>
<pre> Quit
</pre>

<hr />
<a name="MCommands2fMCommands2eShow5fFile5fCommand"></a>
<a name="robo338"></a><h2>MCommands/MCommands.Show_File_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Show content of the selected file. Used in about menu
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Show_File_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed. Unused
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command.
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> ShowFile filename
 Filename is the name of the file which preview will be show
</pre>

<hr />
<a name="MCommands2fMCommands2eShow5fFile5fMenu5fCommand"></a>
<a name="robo339"></a><h2>MCommands/MCommands.Show_File_Menu_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Show menu for the selected items in current directory
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Show_File_Menu_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command.
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> ShowFileMenu x y
 X is X coordinate where menu will be show, Y is Y coordinate where menu
 will be show
</pre>

<hr />
<a name="MCommands2fMCommands2eSort5fCommand"></a>
<a name="robo340"></a><h2>MCommands/MCommands.Sort_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Sort directory view based on which header was clicked
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Sort_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command.
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> Sort columnname
 Columnname is a name of column which will be used for sorting. Possible
 values are name, modified, size and previewname
</pre>

<hr />
<a name="MCommands2fMCommands2eToggle5fSelection5fCommand"></a>
<a name="robo341"></a><h2>MCommands/MCommands.Toggle_Selection_Command [ Commands ]</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./mainwindow-commands_ads.html#robo22">MCommands</a> ] [ <a href="../robo_commands.html#robo_top_of_doc">Commands</a> ]</p>
<p class="item_name">FUNCTION</p>
<pre> Select all or deselect all items in directory view
</pre>
<p class="item_name">SOURCE</p>
<pre class="source">   <span class="keyword">function</span> Toggle_Selection_Command
     <span class="sign">(</span>ClientData<span class="sign">:</span> Integer<span class="sign">;</span> Interp<span class="sign">:</span> Tcl<span class="sign">.</span>Tcl_Interp<span class="sign">;</span> Argc<span class="sign">:</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int<span class="sign">;</span>
      Argv<span class="sign">:</span> CArgv<span class="sign">.</span>Chars_Ptr_Ptr<span class="sign">)</span> <span class="keyword">return</span> Interfaces<span class="sign">.</span>C<span class="sign">.</span>int <span class="keyword">with</span>
      Convention <span class="sign">=</span><span class="sign">&gt;</span> C<span class="sign">;</span>
</pre>
<p class="item_name">PARAMETERS</p>
<pre> ClientData - Custom data send to the command. Unused
 Interp     - Tcl interpreter in which command was executed.
 Argc       - Number of arguments passed to the command. Unused
 Argv       - Values of arguments passed to the command. Unused
</pre>
<p class="item_name">RESULT</p>
<pre> This function always return TCL_OK
</pre>
<p class="item_name">COMMANDS</p>
<pre> ToggleSelection
</pre>

</div> <!-- content -->
<div id="footer">
<p>Generated from ./src/gui/mainwindow-commands.adb with <a href="http://www.xs4all.nl/~rfsber/Robo/robodoc.html">ROBODoc</a> V4.99.43 on Sun Aug 08 2021 07:39:39
</p>
</div> <!-- footer -->
</body>
</html>

