hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: add "New -> Terminal" to right-click menu

Browse Source
This commit is contained in:
Julian Ospald 2016-06-03 14:42:28 +02:00
parent 077ac81227
commit 3e4621fe70
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
4 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
data/Gtk/builder.xml
View File

@ -518,13 +518,22 @@
</child> </child>
<child> <child>
<object class="GtkImageMenuItem" id="rcFileNewTab"> <object class="GtkImageMenuItem" id="rcFileNewTab">
<property name="label" translatable="yes">New Tab</property> <property name="label" translatable="yes">Tab</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="image">image8</property> <property name="image">image8</property>
<property name="use_stock">False</property> <property name="use_stock">False</property>
</object> </object>
</child> </child>
<child>
<object class="GtkImageMenuItem" id="rcFileNewTerm">
<property name="label" translatable="yes">Terminal</property>
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="image">image9</property>
<property name="use_stock">False</property>
</object>
</child>
</object> </object>
</child> </child>
</object> </object>
@ -634,6 +643,11 @@
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="stock">gtk-add</property> <property name="stock">gtk-add</property>
</object> </object>
<object class="GtkImage" id="image9">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="icon_name">utilities-terminal</property>
</object>
<object class="GtkBox" id="viewBox"> <object class="GtkBox" id="viewBox">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>

2
src/HSFM/GUI/Gtk/Callbacks.hs
View File

@ -296,6 +296,8 @@ setViewCallbacks mygui myview = do
liftIO $ newDir mygui myview liftIO $ newDir mygui myview
_ <- (rcFileNewTab . rcmenu) myview `on` menuItemActivated $ _ <- (rcFileNewTab . rcmenu) myview `on` menuItemActivated $
liftIO $ newTab' mygui myview liftIO $ newTab' mygui myview
_ <- (rcFileNewTerm . rcmenu) myview `on` menuItemActivated $
liftIO $ void $ openTerminalHere myview
_ <- (rcFileCopy . rcmenu) myview `on` menuItemActivated $ _ <- (rcFileCopy . rcmenu) myview `on` menuItemActivated $
liftIO $ withItems mygui myview copyInit liftIO $ withItems mygui myview copyInit
_ <- (rcFileRename . rcmenu) myview `on` menuItemActivated $ _ <- (rcFileRename . rcmenu) myview `on` menuItemActivated $

1
src/HSFM/GUI/Gtk/Data.hs
View File

@ -108,6 +108,7 @@ data RightClickMenu = MkRightClickMenu {
, rcFileNewRegFile :: !ImageMenuItem , rcFileNewRegFile :: !ImageMenuItem
, rcFileNewDir :: !ImageMenuItem , rcFileNewDir :: !ImageMenuItem
, rcFileNewTab :: !ImageMenuItem , rcFileNewTab :: !ImageMenuItem
, rcFileNewTerm :: !ImageMenuItem
, rcFileCut :: !ImageMenuItem , rcFileCut :: !ImageMenuItem
, rcFileCopy :: !ImageMenuItem , rcFileCopy :: !ImageMenuItem
, rcFileRename :: !ImageMenuItem , rcFileRename :: !ImageMenuItem

2
src/HSFM/GUI/Gtk/MyView.hs
View File

@ -163,6 +163,8 @@ createMyView mygui iofmv = do
"rcFileNewDir" "rcFileNewDir"
rcFileNewTab <- builderGetObject builder castToImageMenuItem rcFileNewTab <- builderGetObject builder castToImageMenuItem
"rcFileNewTab" "rcFileNewTab"
rcFileNewTerm <- builderGetObject builder castToImageMenuItem
"rcFileNewTerm"
rcFileCut <- builderGetObject builder castToImageMenuItem rcFileCut <- builderGetObject builder castToImageMenuItem
"rcFileCut" "rcFileCut"
rcFileCopy <- builderGetObject builder castToImageMenuItem rcFileCopy <- builderGetObject builder castToImageMenuItem