diff --git a/src/ui/gameoptions.nim b/src/ui/gameoptions.nim
index 05b007d33..04b317fbd 100644
--- a/src/ui/gameoptions.nim
+++ b/src/ui/gameoptions.nim
@@ -147,7 +147,774 @@ proc showOptionsCommand(clientData: cint; interp: PInterp; argc: cint;
   type WidgetData = object
     name, value: string
   if tclEval2(script = "winfo exists " & optionsCanvas) == "0":
-    tclEvalFile(fileName = dataDirectory & "ui" & DirSep & "options.tcl")
+    tclEval(script = """
+      ttk::frame .gameframe.paned.optionsframe
+      set optionscanvas [canvas .gameframe.paned.optionsframe.canvas \
+         -yscrollcommand [list .gameframe.paned.optionsframe.scrolly set] \
+         -xscrollcommand [list .gameframe.paned.optionsframe.scrollx set]]
+      pack [ttk::scrollbar .gameframe.paned.optionsframe.scrolly -orient vertical \
+         -command [list $optionscanvas yview]] -side right -fill y
+      pack $optionscanvas -side top -fill both
+      pack [ttk::scrollbar .gameframe.paned.optionsframe.scrollx -orient horizontal \
+         -command [list $optionscanvas xview]] -fill x
+      SetScrollbarBindings $optionscanvas .gameframe.paned.optionsframe.scrolly
+      set optionsframe [ttk::frame $optionscanvas.options]
+      SetScrollbarBindings $optionsframe .gameframe.paned.optionsframe.scrolly
+      # Tabs buttons
+      set buttonsframe [ttk::frame $optionsframe.buttons]
+      grid [ttk::radiobutton $buttonsframe.general -text General -state selected \
+         -style Radio.Toolbutton -value general -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 1
+      tooltip::tooltip $buttonsframe.general \
+         "General settings of the game, like auto-movement, etc"
+      grid [ttk::radiobutton $buttonsframe.movement -text {Movement keys} \
+         -style Radio.Toolbutton -value movement -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 2
+      tooltip::tooltip $buttonsframe.movement \
+         "Change keyboard shortcuts related to move the ship"
+      grid [ttk::radiobutton $buttonsframe.menu -text {Menu keys} \
+         -style Radio.Toolbutton -value menu -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 3
+      tooltip::tooltip $buttonsframe.menu \
+         "Change keyboard shortcuts used to activate the general\ngame's menu options"
+      grid [ttk::radiobutton $buttonsframe.map -text {Map keys} \
+         -style Radio.Toolbutton -value map -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 4
+      tooltip::tooltip $buttonsframe.map \
+         "Change keyboard shortcuts used to manipulate (move,\nzoom, etc) the map"
+      grid [ttk::radiobutton $buttonsframe.ui -text {General keys} \
+         -style Radio.Toolbutton -value ui -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 5
+      tooltip::tooltip $buttonsframe.ui \
+         "Change keyboard shortcuts related to the game interface"
+      grid [ttk::radiobutton $buttonsframe.interface -text Interface \
+         -style Radio.Toolbutton -value interface -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 6
+      tooltip::tooltip $buttonsframe.interface \
+         "Settings related to the game interface, like font\nsize, etc"
+      grid [ttk::radiobutton $buttonsframe.info -text Info \
+         -style Radio.Toolbutton -value info -variable newtab \
+         -command ShowOptionsTab] -row 0 -column 7
+      tooltip::tooltip $buttonsframe.info \
+         "Information about the game directories paths"
+      grid $buttonsframe -sticky w -padx 5 -pady 5
+      # General options
+      set goptions [ttk::frame $optionsframe.general]
+      grid [ttk::label $goptions.lbl1 -text {Auto rest when crew is tired:}] \
+         -sticky w
+      tooltip::tooltip $goptions.lbl1 \
+         {Wait for crew is rested when pilot or engineer are too tired to work.}
+      grid [ttk::checkbutton $goptions.autorest] -row 0 -column 1 -sticky w
+      tooltip::tooltip $goptions.autorest \
+         {Wait for crew is rested when pilot or engineer are too tired to work.}
+      grid [ttk::label $goptions.lbl2 -text {Default speed after undocking:}] \
+         -sticky w
+      tooltip::tooltip $goptions.lbl2 {Default speed of ship after undock from base.}
+      grid [ttk::combobox $goptions.speed -state readonly \
+         -values [list {Full stop} {Quarted speed} {Half speed} {Full speed}] \
+         -width 10] -row 1 -column 1 -sticky w
+      tooltip::tooltip $goptions.speed \
+         {Default speed of ship after undock from base.}
+      grid [ttk::label $goptions.lbl3 \
+         -text {Auto center map after set destination:}] -sticky w
+      tooltip::tooltip $goptions.lbl3 \
+         {After set destination for ship, center map on ship.}
+      grid [ttk::checkbutton $goptions.autocenter] -row 2 -column 1 -sticky w
+      tooltip::tooltip $goptions.autocenter \
+         {After set destination for ship, center map on ship.}
+      grid [ttk::label $goptions.lbl4 -text {Auto set base after finished mission:}] \
+         -sticky w
+      tooltip::tooltip $goptions.lbl4 \
+         "After finished mission, set skybase from which\nmission was taken as a destination for ship."
+      grid [ttk::checkbutton $goptions.autoreturn] -row 3 -column 1 -sticky w
+      tooltip::tooltip $goptions.autoreturn \
+         "After finished mission, set skybase from\nwhich mission was taken as a destination for ship."
+      grid [ttk::label $goptions.lbl5 -text {Auto finish missions:}] -sticky w
+      tooltip::tooltip $goptions.lbl5 \
+         "Auto finish missions when ship is near corresponding skybase.\nMissions will not be finished if there is no trader on position\nor when there is Double Price event in the base."
+      grid [ttk::checkbutton $goptions.autofinish] -row 4 -column 1 -sticky w
+      tooltip::tooltip $goptions.autofinish \
+         "Auto finish missions when ship is near corresponding skybase.\nMissions will not be finished if there is no trader on position\nor when there is Double Price event in the base."
+      grid [ttk::label $goptions.lbl6 -text {Auto ask for bases:}] -sticky w
+      tooltip::tooltip $goptions.lbl6 \
+         {Auto ask for bases when ship end docking to bases.}
+      grid [ttk::checkbutton $goptions.autoaskforbases] -row 5 -column 1 -sticky w
+      tooltip::tooltip $goptions.autoaskforbases \
+         {Auto ask for bases when ship end docking to bases.}
+      grid [ttk::label $goptions.lbl7 -text {Auto ask for events:}] -sticky w
+      tooltip::tooltip $goptions.lbl7 \
+         {Auto ask for events when ship end docking to bases.}
+      grid [ttk::checkbutton $goptions.autoaskforevents] -row 6 -column 1 -sticky w
+      tooltip::tooltip $goptions.autoaskforevents \
+         {Auto ask for events when ship end docking to bases.}
+      grid [ttk::label $goptions.lbl8 -text {Low level of fuel:}] -sticky w
+      tooltip::tooltip $goptions.lbl8 \
+         "Amount of fuel below which you will see warning about\nlow level of. Enter value between 1 and 10 000."
+      grid [ttk::spinbox $goptions.fuel -from 1 -to 10000 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 7 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.fuel \
+         "Amount of fuel below which you will see warning about\nlow level of. Enter value between 1 and 10 000."
+      grid [ttk::label $goptions.lbl9 -text {Low level of drinks:}] -sticky w
+      tooltip::tooltip $goptions.lbl9 \
+         "Amount of drinks below which you will see warning\nabout low level of. Enter value between 1 and 10 000."
+      grid [ttk::spinbox $goptions.drinks -from 1 -to 10000 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 8 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.drinks \
+         "Amount of drinks below which you will see warning\nabout low level of. Enter value between 1 and 10 000."
+      grid [ttk::label $goptions.lbl10 -text {Low level of food:}] -sticky w
+      tooltip::tooltip $goptions.lbl10 \
+         "Amount of food below which you will see warning\nabout low level of. Enter value between 1 and 10 000."
+      grid [ttk::spinbox $goptions.food -from 1 -to 10000 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 9 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.food \
+         "Amount of food below which you will see warning\nabout low level of. Enter value between 1 and 10 000."
+      grid [ttk::label $goptions.lbl11 -text {Stop auto movement:}] -sticky w
+      tooltip::tooltip $goptions.lbl11 \
+         "Set when auto move ship should stop: never,\non meet any ship, on meet friendly ship or\non meet enemy ship."
+      grid [ttk::combobox $goptions.automovestop -state readonly \
+         -values [list {Never} {Any ship} {Friendly ship} {Enemy ship}] -width 10]\
+         -row 10 -column 1 -sticky w
+      tooltip::tooltip $goptions.automovestop \
+         "Set when auto move ship should stop: never,\non meet any ship, on meet friendly ship or\non meet enemy ship."
+      grid [ttk::label $goptions.lbl12 -text {Messages limit:}] -sticky w
+      tooltip::tooltip $goptions.lbl12 \
+         "Amount of messages stored in game. If new message arrive\nwhen limit is reached, oldest message will be deleted. Enter\nvalue between 10 and 5000."
+      grid [ttk::spinbox $goptions.messageslimit -from 10 -to 5000 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 11 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.messageslimit \
+         "Amount of messages stored in game. If new message arrive\nwhen limit is reached, oldest message will be deleted. Enter\nvalue between 10 and 5000."
+      grid [ttk::label $goptions.lbl13 -text {Saved messages:}] -sticky w
+      tooltip::tooltip $goptions.lbl13 \
+         "Maximum amount of last messages saved to file.\nEnter value between 5 and 200."
+      grid [ttk::spinbox $goptions.savedmessages -from 5 -to 200 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 12 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.savedmessages \
+         "Maximum amount of last messages saved to file.\nEnter value between 5 and 200."
+      grid [ttk::label $goptions.lbl14 -text {Messages order:}] -sticky w
+      tooltip::tooltip $goptions.lbl14 \
+         "In what order show messages in game. If Older first\nwill be select, then older messages will appear at top\nof the lists. Otherwise newer messages will be at top."
+      grid [ttk::combobox $goptions.messagesorder -state readonly \
+         -values [list {Older messages first} {Newer messages first}] -width 16] \
+         -row 13 -column 1 -sticky w
+      tooltip::tooltip $goptions.messagesorder \
+         "In what order show messages in game. If Older first\nwill be select, then older messages will appear at top\nof the lists. Otherwise newer messages will be at top."
+      grid [ttk::label $goptions.lbl15 -text {Autosave game:}] -sticky w
+      tooltip::tooltip $goptions.lbl15 \
+         {How often game should be automatically saved to disk.}
+      grid [ttk::combobox $goptions.autosave -state readonly \
+         -values [list {Never} {After dock to base} {After undock from base} \
+         {Every game day} {Every game month} {Every game year}] -width 18] \
+         -row 14 -column 1 -sticky w
+      tooltip::tooltip $goptions.autosave \
+         {How often game should be automatically saved to disk.}
+      grid [ttk::label $goptions.lbl16 -text {Wait time:}] -sticky w
+      tooltip::tooltip $goptions.lbl16 \
+         {How much minutes will pass after press the Wait button.}
+      grid [ttk::spinbox $goptions.waitinterval -from 1 -to 1440 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 6] -row 15 -column 1 \
+         -sticky w
+      tooltip::tooltip $goptions.waitinterval \
+         "How much minutes will pass after press the Wait button.\nEnter value between 1 and 1440"
+      SetScrollbarBindings $goptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 17} {incr i} {
+         SetScrollbarBindings $goptions.lbl$i .gameframe.paned.optionsframe.scrolly
+      }
+      # Movement keys options
+      set specialkey {}
+      # Set proper shortcut, validate it and check if it is not set somewhere
+      proc SetShortcut {field key} {
+         global specialkey moveoptions menuoptions mapoptions ioptions uioptions
+         set fields [list $moveoptions.upleft $moveoptions.up $moveoptions.upright \
+            $moveoptions.left $moveoptions.wait $moveoptions.right \
+            $moveoptions.downleft $moveoptions.down $moveoptions.downright \
+            $moveoptions.moveto $moveoptions.fullstop $moveoptions.quarterspeed \
+            $moveoptions.halfspeed $moveoptions.fullspeed $menuoptions.shipinfo \
+            $menuoptions.orders $menuoptions.crafts $menuoptions.messages \
+            $menuoptions.knowledge $menuoptions.waitorders $menuoptions.gamestats \
+            $menuoptions.help $menuoptions.gameoptions $menuoptions.quit \
+            $menuoptions.resign $menuoptions.menu $mapoptions.center \
+            $mapoptions.centerhomebase $mapoptions.mapleft $mapoptions.mapright \
+            $mapoptions.mapup $mapoptions.mapdown $mapoptions.mapupleft \
+            $mapoptions.mapupright $mapoptions.mapdownleft $mapoptions.mapdownright \
+            $mapoptions.cursorupleft $mapoptions.cursorup $mapoptions.cursorupright \
+            $mapoptions.cursorleft $mapoptions.cursorright \
+            $mapoptions.cursordownleft $mapoptions.cursordown \
+            $mapoptions.cursordownright $mapoptions.clickmouse $mapoptions.zoomin \
+            $mapoptions.zoomout $mapoptions.mapoptions $ioptions.fullscreenkey \
+            $uioptions.resizefirst $uioptions.resizesecond $uioptions.resizethird \
+            $uioptions.resizefourth]
+         if {$key == "Control_L" || $key == "Control_R" || $key == "Alt_L" || \
+            $key == "Alt_R" || $key == "Shift_L" || $key == "Shift_R"} {
+            set specialkey [string range $key 0 [expr [string length $key] - 3]]
+            return
+         }
+         if {[string length $key] == 1} {
+            set key "[string tolower $key]"
+         }
+         if {$specialkey != {}} {
+            set value "$specialkey-$key"
+         } else {
+            set value "$key"
+         }
+         foreach keyentry $fields {
+            if {$keyentry != $field && [$keyentry get] == $value} {
+               $field delete [expr [string length [$field get]] - 1] end
+               return
+            }
+         }
+         $field delete 0 end
+         $field insert end $value
+         set specialkey {}
+      }
+      set moveoptions [ttk::frame $optionsframe.movement]
+      grid [ttk::label $moveoptions.lbl1 -text {Move ship up/left:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl1 \
+         "Key used to move ship up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.upleft -width 15] -row 0 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.upleft \
+         "Key used to move ship up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.upleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl2 -text {Move ship up:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl2 \
+         "Key used to move ship up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.up -width 15] -row 1 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.up \
+         "Key used to move ship up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.up <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl3 -text {Move ship up/right:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl3 \
+         "Key used to move ship up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.upright -width 15] -row 2 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.upright \
+         "Key used to move ship up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.upright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl4 -text {Move ship left:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl4 \
+         "Key used to move ship left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.left -width 15] -row 3 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.left \
+         "Key used to move ship left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.left <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl5 -text {Wait in place or move 1 field:}] \
+         -sticky w
+      tooltip::tooltip $moveoptions.lbl5 \
+         "Key used to wait 1 minute or move 1 field. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.wait -width 15] -row 4 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.wait \
+         "Key used to wait 1 minute or move 1 field. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.wait <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl6 -text {Move ship right:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl6 \
+         "Key used to move ship right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.right -width 15] -row 5 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.right \
+         "Key used to move ship right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.right <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl7 -text {Move ship down/left:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl7 \
+         "Key used to move ship down and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.downleft -width 15] -row 6 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.downleft \
+         "Key used to move ship down and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.downleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl8 -text {Move ship down:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl8 \
+         "Key used to move ship down. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.down -width 15] -row 7 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.down \
+         "Key used to move ship up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.down <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl9 -text {Move ship down/right:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl9 \
+         "Key used to move ship down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.downright -width 15] -row 8 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.downright \
+         "Key used to move ship down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.downright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl10 -text {Move ship to destination:}] \
+         -sticky w
+      tooltip::tooltip $moveoptions.lbl10 \
+         "Key used to move ship its destination. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.moveto -width 15] -row 9 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.moveto \
+         "Key used to move ship its destination. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.moveto <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl11 -text {Set full stop for ship:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl11 \
+         "Key used to set full stop for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.fullstop -width 15] -row 10 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.fullstop \
+         "Key used to set full stop for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.fullstop <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl12 -text {Set quarter speed for ship:}] \
+         -sticky w
+      tooltip::tooltip $moveoptions.lbl12 \
+         "Key used to set quarter speed for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.quarterspeed -width 15] -row 11 -column 1 \
+         -sticky w
+      tooltip::tooltip $moveoptions.quarterspeed \
+         "Key used to set quarter speed for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.quarterspeed <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl13 -text {Set half speed for ship:}] -sticky w
+      tooltip::tooltip $moveoptions.lbl13 \
+         "Key used to set half speed for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.halfspeed -width 15] -row 12 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.halfspeed \
+         "Key used to set half speed for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.halfspeed <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $moveoptions.lbl14 -text {Set full speed for ship:}] \
+         -sticky w
+      tooltip::tooltip $moveoptions.lbl14 \
+         "Key used to set full speed. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $moveoptions.fullspeed -width 15] -row 13 -column 1 -sticky w
+      tooltip::tooltip $moveoptions.fullspeed \
+         "Key used to set full speed for the ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $moveoptions.fullspeed <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::button $moveoptions.reset -text {Reset movement keys to default} \
+         -command {ResetKeys movement}] -row 14 -columnspan 2 -sticky w
+      tooltip::tooltip $moveoptions.reset \
+         "Reset all movement keys to the default settings"
+      SetScrollbarBindings $moveoptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 15} {incr i} {
+         SetScrollbarBindings $moveoptions.lbl$i \
+            .gameframe.paned.optionsframe.scrolly
+      }
+      # Menu keys options
+      set menuoptions [ttk::frame $optionsframe.menu]
+      grid [ttk::label $menuoptions.lbl1 -text {Ship information:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl1 \
+         "Key used to show ship info screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.shipinfo -width 15] -row 0 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.shipinfo \
+         "Key used to show ship info screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.shipinfo <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl2 -text {Ship orders:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl2 \
+         "Key used to show ship orders menu. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.orders -width 15] -row 1 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.orders \
+         "Key used to show ship orders menu. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.orders <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl3 -text {Crafting orders:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl3 \
+         "Key used to show crafting screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.crafts -width 15] -row 2 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.crafts \
+         "Key used to show crafting screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.crafts <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl4 -text {Last messages:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl4 \
+         "Key used to show messages screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.messages -width 15] -row 3 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.messages \
+         "Key used to show messages screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.messages <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl5 -text {Knowledge lists:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl5 \
+         "Key used to show knowledge screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.knowledge -width 15] -row 4 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.knowledge \
+         "Key used to show knowledge screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.knowledge <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl6 -text {Wait orders:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl6 \
+         "Key used to show wait orders menu. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.waitorders -width 15] -row 5 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.waitorders \
+         "Key used to show wait orders. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.waitorders <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl7 -text {Game statistics:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl7 \
+         "Key used to show game statistics screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.gamestats -width 15] -row 6 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.gamestats \
+         "Key used to show game statistics screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.gamestats <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl8 -text {Help:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl8 \
+         "Key used to show help window. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.help -width 15] -row 7 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.help \
+         "Key used to show help window. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.help <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl9 -text {Game options:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl9 \
+         "Key used to show game options screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.gameoptions -width 15] -row 8 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.gameoptions \
+         "Key used to show game options screen. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.gameoptions <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl10 -text {Quit from game:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl10 \
+         "Key used to quit from the game. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.quit -width 15] -row 9 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.quit \
+         "Key used to quit from the game. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.quit <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl11 -text {Resign from game:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl11 \
+         "Key used to resign from the game. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.resign -width 15] -row 10 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.resign \
+         "Key used to resign from the game. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.resign <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $menuoptions.lbl12 -text {Show menu:}] -sticky w
+      tooltip::tooltip $menuoptions.lbl12 \
+         "Key used to show main menu. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $menuoptions.menu -width 15] -row 11 -column 1 -sticky w
+      tooltip::tooltip $menuoptions.menu \
+         "Key used to show main menu. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $menuoptions.menu <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::button $menuoptions.reset -text {Reset menu keys to default} \
+         -command {ResetKeys menu}] -row 12 -columnspan 2 -sticky w
+      tooltip::tooltip $menuoptions.reset \
+         "Reset all menu keys to the default settings"
+      SetScrollbarBindings $menuoptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 13} {incr i} {
+         SetScrollbarBindings $menuoptions.lbl$i \
+            .gameframe.paned.optionsframe.scrolly
+      }
+      # Map keys options
+      set mapoptions [ttk::frame $optionsframe.map]
+      grid [ttk::label $mapoptions.lbl1 -text {Center map on player ship:}] \
+         -sticky w
+      tooltip::tooltip $mapoptions.lbl1 \
+         "Key used to center map on player ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.center -width 15] -row 0 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.center \
+         "Key used to center map on player ship. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.center <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl2 -text {Center map on home base:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl2 \
+         "Key used to center map on home base. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.centerhomebase -width 15] -row 1 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.centerhomebase \
+         "Key used to center map on home base. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.centerhomebase <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl3 -text {Move map to left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl3 \
+         "Key used to move map left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapleft -width 15] -row 2 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapleft \
+         "Key used to move map left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl4 -text {Move map to right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl4 \
+         "Key used to move map right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapright -width 15] -row 3 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapright \
+         "Key used to move map right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl5 -text {Move map up:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl5 \
+         "Key used to move map up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapup -width 15] -row 4 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapup \
+         "Key used to move map up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapup <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl6 -text {Move map down:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl6 \
+         "Key used to move map down. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapdown -width 15] -row 5 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapdown \
+         "Key used to move map down. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapdown <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl7 -text {Move map up/left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl7 \
+         "Key used to move map up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapupleft -width 15] -row 6 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapupleft \
+         "Key used to move map up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapupleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl8 -text {Move map up/right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl8 \
+         "Key used to move map up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapupright -width 15] -row 7 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapupright \
+         "Key used to move map up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapupright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl9 -text {Move map down/left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl9 \
+         "Key used to move map down and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapdownleft -width 15] -row 8 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapdownleft \
+         "Key used to move map down and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapdownleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl10 -text {Move map down/right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl10 \
+         "Key used to move map down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapdownright -width 15] -row 9 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapdownright \
+         "Key used to move map down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapdownright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl11 -text {Move cursor up/left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl11 \
+         "Key used to move cursor up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursorupleft -width 15] -row 10 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.cursorupleft \
+         "Key used to move cursor up and left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursorupleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl12 -text {Move cursor up:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl12 \
+         "Key used to move cursor up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursorup -width 15] -row 11 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.cursorup \
+         "Key used to move cursor up. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursorup <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl13 -text {Move cursor up/right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl13 \
+         "Key used to move cursor up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursorupright -width 15] -row 12 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.cursorupright \
+         "Key used to move cursor up and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursorupright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl14 -text {Move cursor left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl14 \
+         "Key used to move cursor left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursorleft -width 15] -row 13 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.cursorleft \
+         "Key used to move cursor left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursorleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl15 -text {Move cursor right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl15 \
+         "Key used to move cursor right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursorright -width 15] -row 14 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.cursorright \
+         "Key used to move cursor right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursorright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl16 -text {Move cursor down/left:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl16 \
+         "Key used to move cursor down left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursordownleft -width 15] -row 15 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.cursordownleft \
+         "Key used to move cursor down left. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursordownleft <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl17 -text {Move cursor down:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl17 \
+         "Key used to move cursor down. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursordown -width 15] -row 16 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.cursordown \
+         "Key used to move cursor down. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursordown <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl18 -text {Move cursor donw/right:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl18 \
+         "Key used to move cursor down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.cursordownright -width 15] -row 17 -column 1 \
+         -sticky w
+      tooltip::tooltip $mapoptions.cursordownright \
+         "Key used to move cursor down and right. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.cursordownright <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl19 -text {Press mouse button:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl19 \
+         "Key used to emulate mouse button. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.clickmouse -width 15] -row 18 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.clickmouse \
+         "Key used to emulate mouse button. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.clickmouse <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl20 -text {Zoom in map:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl20 \
+         "Key used to zoom in map. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.zoomin -width 15] -row 19 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.zoomin \
+         "Key used to zoom in map. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.zoomin <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl21 -text {Zoom out map:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl21 \
+         "Key used to zoom out map. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.zoomout -width 15] -row 20 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.zoomout \
+         "Key used to zoom out map. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.zoomout <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $mapoptions.lbl22 -text {Show move map options:}] -sticky w
+      tooltip::tooltip $mapoptions.lbl22 \
+         "Key used to show move map options. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      grid [ttk::entry $mapoptions.mapoptions -width 15] -row 21 -column 1 -sticky w
+      tooltip::tooltip $mapoptions.mapoptions \
+         "Key used to show move map options. Select the field\nand press the desired key. To use special key, press it\nthe first then the desired key"
+      bind $mapoptions.mapoptions <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::button $mapoptions.reset -text {Reset map keys to default} \
+         -command {ResetKeys map}] -row 22 -columnspan 2 -sticky w
+      tooltip::tooltip $menuoptions.reset \
+         "Reset all map keys to the default settings"
+      SetScrollbarBindings $mapoptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 23} {incr i} {
+         SetScrollbarBindings $mapoptions.lbl$i .gameframe.paned.optionsframe.scrolly
+      }
+      # General keys options
+      set uioptions [ttk::frame $optionsframe.ui]
+      grid [ttk::label $uioptions.lbl1 -text {Resize first section:}] -sticky w
+      tooltip::tooltip $uioptions.lbl1 \
+         "Key used to resize (maximize or minimize) the first section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      grid [ttk::entry $uioptions.resizefirst -width 15] -row 0 -column 1 -sticky w
+      tooltip::tooltip $uioptions.resizefirst \
+         "Key used to resize (maximize or minimize) the first section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      bind $uioptions.resizefirst <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $uioptions.lbl2 -text {Resize second section:}] -sticky w
+      tooltip::tooltip $uioptions.lbl2 \
+         "Key used to resize (maximize or minimize) the second section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      grid [ttk::entry $uioptions.resizesecond -width 15] -row 1 -column 1 -sticky w
+      tooltip::tooltip $uioptions.resizesecond \
+         "Key used to resize (maximize or minimize) the second section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      bind $uioptions.resizesecond <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $uioptions.lbl3 -text {Resize third section:}] -sticky w
+      tooltip::tooltip $uioptions.lbl3 \
+         "Key used to resize (maximize or minimize) the third section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      grid [ttk::entry $uioptions.resizethird -width 15] -row 2 -column 1 -sticky w
+      tooltip::tooltip $uioptions.resizethird \
+         "Key used to resize (maximize or minimize) the third section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      bind $uioptions.resizethird <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $uioptions.lbl4 -text {Resize fourth section:}] -sticky w
+      tooltip::tooltip $uioptions.lbl4 \
+         "Key used to resize (maximize or minimize) the fourth section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      grid [ttk::entry $uioptions.resizefourth -width 15] -row 3 -column 1 -sticky w
+      tooltip::tooltip $uioptions.resizefourth \
+         "Key used to resize (maximize or minimize) the fourth section\nof information (like ship info, knowledge or in combat).\nSelect the field and press the desired key. To use special key,\npress it the first then the desired key"
+      bind $uioptions.resizefourth <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::button $uioptions.reset -text {Reset general keys to default} \
+         -command {ResetKeys general}] -row 12 -columnspan 2 -sticky w
+      tooltip::tooltip $uioptions.reset \
+         "Reset all general keys to the default settings"
+      SetScrollbarBindings $uioptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 5} {incr i} {
+         SetScrollbarBindings $uioptions.lbl$i \
+            .gameframe.paned.optionsframe.scrolly
+      }
+      # Interface options
+      set ioptions [ttk::frame $optionsframe.interface]
+      grid [ttk::label $ioptions.lbl1 -text {Interface theme:}] -sticky w
+      tooltip::tooltip $ioptions.lbl1 {Select UI theme.}
+      grid [ttk::combobox $ioptions.theme -state readonly -width 15] -row 0 \
+         -column 1 -sticky w
+      tooltip::tooltip $ioptions.theme {Select UI theme.}
+      grid [ttk::label $ioptions.lbl2 -text {Use right mouse button:}] -sticky w
+      tooltip::tooltip $ioptions.lbl2 \
+         {Use right mouse button to show various menus in the game.}
+      grid [ttk::checkbutton $ioptions.rightbutton] -row 1 -column 1 -sticky w
+      tooltip::tooltip $ioptions.rightbutton \
+         {Use right mouse button to show various menus in the game.}
+      grid [ttk::label $ioptions.lbl3 -text {Show tooltips:}] -sticky w
+      tooltip::tooltip $ioptions.lbl3 \
+         {Show help tooltips for various game elements.}
+      grid [ttk::checkbutton $ioptions.showtooltips] -row 2 -column 1 -sticky w
+      tooltip::tooltip $ioptions.showtooltips \
+         {Show help tooltips for various game elements.}
+      grid [ttk::label $ioptions.lbl4 -text {Show last messages:}] -sticky w
+      tooltip::tooltip $ioptions.lbl4 \
+         {Show last messages window in every place in the game.}
+      grid [ttk::checkbutton $ioptions.showmessages] -row 3 -column 1 -sticky w
+      tooltip::tooltip $ioptions.showmessages \
+         {Show last messages window in every place in the game.}
+      grid [ttk::label $ioptions.lbl5 -text {Full screen mode:}] -sticky w
+      tooltip::tooltip $ioptions.lbl5 {Run the game in full screen mode.}
+      grid [ttk::checkbutton $ioptions.fullscreen] -row 4 -column 1 -sticky w
+      tooltip::tooltip $ioptions.fullscreen {Run the game in full screen mode.}
+      grid [ttk::label $ioptions.lbl6 -text {Full screen shortcut:}] -sticky w
+      tooltip::tooltip $ioptions.lbl6 {Key used to switch full screen mode.}
+      grid [ttk::entry $ioptions.fullscreenkey -width 15] -row 5 -column 1 -sticky w
+      tooltip::tooltip $ioptions.fullscreenkey \
+         {Key used to switch full screen mode.}
+      bind $ioptions.fullscreenkey <KeyRelease> {SetShortcut %W %K}
+      grid [ttk::label $ioptions.lbl7 -text {Close messages after:}] -sticky w
+      tooltip::tooltip $ioptions.lbl7 \
+         {Auto close game messages after that amount of seconds.}
+      grid [ttk::spinbox $ioptions.closemessages -from 1 -to 60 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 6 -column 1 \
+         -sticky w
+      tooltip::tooltip $ioptions.closemessages \
+         {Auto close game messages after that amount of seconds.}
+      grid [ttk::label $ioptions.lbl8 -text {Show numeric values:}] -sticky w
+      tooltip::tooltip $ioptions.lbl8 \
+         "Show numeric values of many statistics, like crew\nabilities, weapons strength, etc."
+      grid [ttk::checkbutton $ioptions.shownumbers] -row 7 -column 1 -sticky w
+      tooltip::tooltip $ioptions.shownumbers \
+         "Show numeric values of many statistics, like crew\nabilities, weapons strength, etc."
+      grid [ttk::label $ioptions.lbl12 -text {Amount items on lists:}] -sticky w
+      tooltip::tooltip $ioptions.lbl12 \
+         "The amount of items displayed on various lists in\nthe game like crew members, modules, etc."
+      grid [ttk::spinbox $ioptions.listslimit -from 5 -to 100 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 8 -column 1 \
+         -sticky w
+      tooltip::tooltip $ioptions.listslimit \
+         "The amount of items displayed on various lists in\nthe game like crew members, modules, etc."
+      grid [ttk::label $ioptions.lbl9 -text {Size of map font:}] -sticky w
+      tooltip::tooltip $ioptions.lbl9 \
+         {Size (in pixels) of font used to draw game map.}
+      grid [ttk::spinbox $ioptions.mapfont -from 3 -to 50 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 9 -column 1 \
+         -sticky w
+      bind $ioptions.mapfont <FocusOut> {SetFonts %W}
+      tooltip::tooltip $ioptions.mapfont \
+         {Size (in pixels) of font used to draw game map.}
+      grid [ttk::label $ioptions.lbl10 -text {Size of help font:}] -sticky w
+      tooltip::tooltip $ioptions.lbl10 \
+         {Size (in pixels) of font used mainly in help.}
+      grid [ttk::spinbox $ioptions.helpfont -from 3 -to 50 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 10 -column 1 \
+         -sticky w
+      bind $ioptions.helpfont <FocusOut> {SetFonts %W}
+      tooltip::tooltip $ioptions.helpfont \
+         {Size (in pixels) of font used mainly in help.}
+      grid [ttk::label $ioptions.lbl11 -text {Size of interface font:}] -sticky w
+      tooltip::tooltip $ioptions.lbl11 \
+         {Size (in pixels) of font used in interface (for example, here).}
+      grid [ttk::spinbox $ioptions.interfacefont -from 3 -to 50 -validate key \
+         -validatecommand {ValidateSpinbox %W %P {}} -width 5] -row 11 -column 1 \
+         -sticky w
+      bind $ioptions.interfacefont <FocusOut> {SetFonts %W}
+      tooltip::tooltip $ioptions.interfacefont \
+         {Size (in pixels) of font used in interface (for example, here).}
+      grid [ttk::button $ioptions.setdefault -text {Set default size for fonts} \
+         -command SetDefaultFonts] -columnspan 2
+      SetScrollbarBindings $ioptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 13} {incr i} {
+         SetScrollbarBindings $ioptions.lbl$i .gameframe.paned.optionsframe.scrolly
+      }
+      # Info options
+      set infooptions [ttk::frame $optionsframe.info]
+      grid [ttk::label $infooptions.lbl1 -text {Data directory path:}] -sticky w
+      tooltip::tooltip $infooptions.lbl1 {Place where all standard game data are.}
+      grid [ttk::label $infooptions.data -wraplength 500] -row 0 -column 1 -sticky w
+      tooltip::tooltip $infooptions.data {Place where all standard game data are.}
+      grid [ttk::label $infooptions.lbl2 -text {Save directory path:}] -sticky w
+      tooltip::tooltip $infooptions.lbl2 \
+         {Place where all game saves and configuration files are.}
+      grid [ttk::label $infooptions.save -wraplength 500] -row 1 -column 1 -sticky w
+      tooltip::tooltip $infooptions.save \
+         {Place where all game saves and configuration files are.}
+      grid [ttk::label $infooptions.lbl3 -text {Documentation directory path:}] \
+         -sticky w
+      tooltip::tooltip $infooptions.lbl3 {Place where are game documentation files.}
+      grid [ttk::label $infooptions.docs -wraplength 500] -row 2 -column 1 -sticky w
+      tooltip::tooltip $infooptions.docs {Place where are game documentation files.}
+      grid [ttk::label $infooptions.lbl4 -text {Modifications directory path:}] \
+         -sticky w
+      tooltip::tooltip $infooptions.lbl4 \
+         {Place where you should put all modifications files.}
+      grid [ttk::label $infooptions.mods -wraplength 500] -row 3 -column 1 -sticky w
+      tooltip::tooltip $infooptions.mods \
+         {Place where you should put all modifications files.}
+      SetScrollbarBindings $infooptions .gameframe.paned.optionsframe.scrolly
+      for {set i 1} {$i < 5} {incr i} {
+         SetScrollbarBindings $infooptions.lbl$i \
+            .gameframe.paned.optionsframe.scrolly
+      }
+      SetScrollbarBindings $infooptions.data .gameframe.paned.optionsframe.scrolly
+      SetScrollbarBindings $infooptions.save .gameframe.paned.optionsframe.scrolly
+      SetScrollbarBindings $infooptions.docs .gameframe.paned.optionsframe.scrolly
+      SetScrollbarBindings $infooptions.mods .gameframe.paned.optionsframe.scrolly
+      ::autoscroll::autoscroll .gameframe.paned.optionsframe.scrolly
+      ::autoscroll::autoscroll .gameframe.paned.optionsframe.scrollx
+    """)
     tclEval(script = "bind " & optionsFrame & " <Configure> {ResizeCanvas %W.canvas %w %h}")
     let labelsArray: array[4, WidgetData] = [WidgetData(name: "data",
         value: dataDirectory), WidgetData(name: "save", value: saveDirectory),