+ method private get_paned_prop s =
+ Gobject.get { Gobject.name = s; Gobject.conv = Gobject.Data.int }
+ paned#as_widget
+ method private get_position = self#get_paned_prop "position"
+ method private get_min_position = self#get_paned_prop "min-position"
+ method private get_max_position = self#get_paned_prop "max-position"
+
+ method show ?(msg = "") () =
+ self#buffer#insert msg;
+ paned#set_position (self#get_max_position - console_height);
+ self#misc#grab_focus ()
+ method hide () =
+ paned#set_position self#get_max_position
+ method toggle () =
+ let pos = self#get_position in
+ if pos > self#get_max_position - console_height then
+ self#show ()
+ else
+ self#hide ()
+