refactor: removed unused code

FossilOrigin-Name: c9f0a25b485721f33086a5786b679af377a2896c377eac19f7c4b229175cb7dc
thindil · Jan 9, 2024 · ee35e1f · ee35e1f
1 parent a9738f9
commit ee35e1f
Showing 1 changed file with 0 additions and 48 deletions.
diff --git a/src/ui/maps-ui-commands.adb b/src/ui/maps-ui-commands.adb
@@ -54,54 +54,6 @@ with Utils.UI;
 
 package body Maps.UI.Commands is
 
-   -- ****o* MapCommands/MapCommands.Move_Map_Buttons_Command
-   -- FUNCTION
-   -- Move map movement buttons left of right
-   -- PARAMETERS
-   -- Client_Data - 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.
-   -- RESULT
-   -- This function always return TCL_OK
-   -- COMMANDS
-   -- MoveMapButtons buttonname
-   -- Buttonname is the name of the button which was clicked
-   -- SOURCE
---   function Move_Map_Buttons_Command
---     (Client_Data: Integer; Interp: Tcl.Tcl_Interp; Argc: Interfaces.C.int;
---      Argv: CArgv.Chars_Ptr_Ptr) return Interfaces.C.int with
---      Convention => C;
---      -- ****
---
---   function Move_Map_Buttons_Command
---     (Client_Data: Integer; Interp: Tcl.Tcl_Interp; Argc: Interfaces.C.int;
---      Argv: CArgv.Chars_Ptr_Ptr) return Interfaces.C.int is
---      pragma Unreferenced(Client_Data, Argc);
---      Buttons_Box: constant Ttk_Frame :=
---        Get_Widget
---          (pathName => Main_Paned & ".mapframe.buttons", Interp => Interp);
---      Button: Ttk_Button :=
---        Get_Widget
---          (pathName => Buttons_Box & "." & CArgv.Arg(Argv => Argv, N => 1),
---           Interp => Interp);
---   begin
---      Tcl.Tk.Ada.Grid.Grid_Remove(Slave => Button);
---      if CArgv.Arg(Argv => Argv, N => 1) = "left" then
---         Button.Name :=
---           New_String(Str => Widget_Image(Win => Buttons_Box) & ".right");
---         Tcl.Tk.Ada.Grid.Grid_Configure
---           (Slave => Buttons_Box, Options => "-sticky sw");
---      else
---         Button.Name :=
---           New_String(Str => Widget_Image(Win => Buttons_Box) & ".left");
---         Tcl.Tk.Ada.Grid.Grid_Configure
---           (Slave => Buttons_Box, Options => "-sticky se");
---      end if;
---      Tcl.Tk.Ada.Grid.Grid(Slave => Button);
---      return TCL_OK;
---   end Move_Map_Buttons_Command;
-
    -- ****o* MapCommands/MapCommands.Draw_Map_Command
    -- FUNCTION
    -- Draw the sky map