Be helpful about which panes are visible

If only one property/style pane is visible, auto-switch between them
depending on the tool.

1 files changed, 19 insertions, 0 deletions

diff --git a/tikzit/src/gtk/StylesPane.m b/tikzit/src/gtk/StylesPane.m
index 0f6adef..455878a 100644
--- a/tikzit/src/gtk/StylesPane.m
+++ b/tikzit/src/gtk/StylesPane.m
@@ -26,6 +26,7 @@
 - (GtkExpander*) _addExpanderWithName:(const gchar*)name contents:(GtkWidget*)contents;
 @end
 
+// {{{ API
 @implementation StylesPane
 
 @synthesize widget=stylesPane;
@@ -107,6 +108,24 @@
                     value:gtk_expander_get_expanded (edgeStylesExpander)];
 }
 
+- (void) favourNodeStyles {
+    if (!gtk_expander_get_expanded (nodeStylesExpander)) {
+        if (gtk_expander_get_expanded (edgeStylesExpander)) {
+            gtk_expander_set_expanded (edgeStylesExpander, FALSE);
+            gtk_expander_set_expanded (nodeStylesExpander, TRUE);
+        }
+    }
+}
+
+- (void) favourEdgeStyles {
+    if (!gtk_expander_get_expanded (edgeStylesExpander)) {
+        if (gtk_expander_get_expanded (nodeStylesExpander)) {
+            gtk_expander_set_expanded (nodeStylesExpander, FALSE);
+            gtk_expander_set_expanded (edgeStylesExpander, TRUE);
+        }
+    }
+}
+
 @end
 
 // }}}