reterm 0.4.2

data/designer/src/Designer.rb

@@ -0,0 +1,114 @@
+require 'reterm'
+
+# Main designer window
+class Designer
+  include GladeGUI
+
+  attr_accessor :component_list
+  attr_accessor :created_list
+
+  attr_accessor :component
+  attr_accessor :ta
+
+  def initialize
+    @component_list = ComponentsList.new(self)
+    @created_list   = CreatedList.new(self)
+    @component = ToggleArea.new(self)
+
+    set_components
+  end
+
+  def window
+    @builder["window1"]
+  end
+
+  def before_show
+    window.title = "RETerm Designer"
+    @builder["component_window"].add(@component_list, :expand => true)
+    @builder["created_window"].add(@created_list,     :expand => true)
+    @builder["viewer"].add(@component.btn)
+    @component.show
+  end  
+
+  def create_component(component, params)
+    c = build_component self, component, params
+    c, areas = *c if c.is_a?(Array)
+
+    parent = nil
+    if @component.is_a?(ToggleArea)
+      @builder["viewer"].remove(@component.btn)
+      @builder["viewer"].add(c)
+      c.show
+      areas.each { |a| a.show } if areas
+
+      @component = c
+
+    else
+      parent = component_with_toggle_area
+      index = parent.child_get_property(@ta.btn, :position)
+      parent.remove(@ta.btn)
+      parent.add(c, :expand => true)
+      parent.child_set_property(c, :position, index)
+      c.show
+      areas.each { |a| a.show } if areas
+    end
+
+    @created_list.register component, params, c, parent
+
+    self.toggle_area = nil
+  end
+
+  def remove_component(c)
+    if c == @component
+      @component = ToggleArea.new(self)
+      @builder["viewer"].remove(c)
+      @builder["viewer"].add(@component.btn)
+      @component.show
+
+    else
+      parent = component_with_widget(c)
+      index = parent.child_get_property(c, :position)
+      parent.remove(c)
+      ta = ToggleArea.new(self)
+      parent.add(ta.btn, :expand => true)
+      parent.child_set_property(ta.btn, :position, index)
+      ta.show
+    end
+  end
+
+  def toggle_area=(ta)
+    @ta.toggle_off if has_toggled_area?
+    @ta = ta
+  end
+
+  # XXX needed as we need to invoke from #toggle_off
+  def clear_toggle_area
+    @ta = nil
+  end
+
+  def has_toggled_area?
+    !!@ta
+  end
+
+  private
+
+  def component_with_toggle_area(c=component)
+    component_with_widget(@ta.btn, c)
+  end
+
+  def component_with_widget(widget, c=component)
+    return c if c.children.include?(widget)
+    c.children.each { |child|
+      ch = component_with_widget(widget, child) if child.kind_of?(Gtk::Box)
+      return ch unless ch.nil?
+    }
+    nil
+  end
+
+  def set_components
+    (RETerm::Layouts.all.sort +
+     RETerm::Components.all.sort).each { |c|
+      @component_list.add_component c if COMPONENTS.key?(c)
+    }
+  end
+end

data/designer/src/ToggleArea.rb

@@ -0,0 +1,67 @@
+# Mechanism which user specifies area to add component
+class ToggleArea
+  attr_accessor :toggled
+
+  def toggle_on
+    @toggled = true
+    btn.remove(add)
+    btn.add(rm)
+    @designer.toggle_area = self
+  end
+
+  def toggle_off
+    @toggled = false
+    btn.remove(rm)
+    btn.add(add)
+    show
+    @designer.clear_toggle_area
+  end
+
+  def add
+    @add ||= Gtk::Image.new :file => "#{IMG_DIR}/add.png"
+  end
+
+  def rm
+    @rm ||= Gtk::Image.new :file => "#{IMG_DIR}/remove.png"
+  end
+
+
+  def btn
+    @btn ||=
+      begin
+        b = Gtk::Button.new
+        b.add add
+
+        b.signal_connect("clicked") { |*args|
+          if @toggled
+            toggle_off
+          else
+            toggle_on
+          end
+
+          show
+        }
+
+        css_provider = Gtk::CssProvider.new
+        css_provider.load(data: "button:hover {background-image: image(#FFFF00);}")
+        b.style_context.add_provider(css_provider, Gtk::StyleProvider::PRIORITY_USER)
+
+        b
+      end
+  end
+
+  def show
+    btn.show
+
+    if @toggled
+      rm.show
+    else
+      add.show
+    end
+  end
+
+  def initialize(designer)
+    @designer = designer
+    @toggled = false
+  end
+end

data/designer/src/common.rb

@@ -0,0 +1 @@
+IMG_DIR = File.join(File.dirname(__FILE__), "images")

data/designer/src/component_factory.rb

@@ -0,0 +1,30 @@
+def build_component(designer, component, params)
+  if component == :Horizontal
+    areas = []
+    c = Gtk::HBox.new
+    cols = params.first
+    0.upto(cols-1) {
+      area = ToggleArea.new(designer)
+      areas << area
+      c.add area.btn, :expand => true
+    }
+
+    return [c, areas]
+
+  elsif component == :Vertical
+    areas = []
+    c = Gtk::VBox.new
+    rows = params.first
+    0.upto(rows-1) {
+      area = ToggleArea.new(designer)
+      areas << area
+      c.add area.btn, :expand => true
+    }
+
+    return [c, areas]
+
+  else
+    return designer.component_list.image_for(component)
+
+  end
+end

data/designer/src/component_map.rb

@@ -0,0 +1,116 @@
+COMPONENTS = {
+  # Layouts
+  :Horizontal => {
+    :desc => "Horizontal Layout",
+    :params => {
+      "Columns" => :int
+    }
+  },
+
+  :Vertical => {
+    :desc => "Vertical Layout",
+    :params => {
+      "Rows" => :int
+    }
+  },
+
+  :AsciiText => {
+    :desc => "Text Rendered Using Ascii Font",
+    :params => {
+      "Text" => :string
+    },
+
+    :init_keys => ["text"]
+  },
+
+  :Button => {
+    :desc => "Clickable Button",
+    :params => {
+      "Text" => :string
+    },
+
+    :init_keys => ["text"]
+  },
+
+  :Dial => {
+    :desc => "Rotatable Dial"
+  },
+
+  #:Dialog => {
+  #  :desc => "Popup Dialog"
+  #},
+
+  :Entry => {
+    :desc => "Text Entry",
+    :params => {
+      "Title" => :string,
+      "Label" => :string
+    },
+
+    :init_keys => ["title", "label"]
+  },
+
+  :HSlider => {
+    :desc => "Horizontal Slider"
+  },
+
+  :Image => {
+    :desc => "Image rendered with ascii art",
+    :params => {
+      "Path" => :string
+    },
+
+    :init_keys => ["file"]
+  },
+
+  :Label => {
+    :desc   => "Static String",
+    :params => {
+      "Text" => :string
+    },
+
+    :init_keys => ["text"]
+  },
+
+  :Matrix => {
+    :desc => "X/Y grid",
+    :params => {
+      "Rows" => :int,
+      "Columns" => :int
+    },
+
+    :init_keys => ["rows", "cols"]
+  },
+
+  :Radio => {
+    :desc => "Choice selection control",
+
+    :params => {
+      "Choices" => [:string]
+    }
+  },
+
+  :Rocker => {
+    :desc => "Toggleable input",
+
+    :params => {
+      "Choices" => [:string]
+    },
+
+    :init_keys => ["items"]
+  },
+
+  :SList => {
+    :desc => "Selectable List of Items",
+
+    :params => {
+      "Choices" => [:string]
+    },
+
+    :init_keys => ["items"]
+  },
+
+  :VSlider => {
+    :desc => "Vertical Slider"
+  }
+}

data/designer/src/glade/ComponentParams.glade

@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated with glade 3.20.0 -->
+<interface>
+  <requires lib="gtk+" version="3.20"/>
+  <object class="GtkWindow" id="window1">
+    <property name="can_focus">False</property>
+    <property name="resizable">False</property>
+    <property name="modal">True</property>
+    <child>
+      <object class="GtkBox">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <property name="margin_left">5</property>
+        <property name="margin_right">6</property>
+        <property name="margin_top">5</property>
+        <property name="margin_bottom">5</property>
+        <property name="orientation">vertical</property>
+        <child>
+          <object class="GtkLabel" id="component_edit_title">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="margin_left">5</property>
+            <property name="margin_right">5</property>
+            <property name="margin_top">5</property>
+            <property name="margin_bottom">5</property>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkBox" id="component_edit_layout">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="orientation">vertical</property>
+            <child>
+              <placeholder/>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkBox">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkButton" id="submit_button">
+                <property name="label" translatable="yes">Submit</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="margin_left">5</property>
+                <property name="margin_right">5</property>
+                <property name="margin_top">5</property>
+                <property name="margin_bottom">5</property>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="cancel_button">
+                <property name="label" translatable="yes">Cancel</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="margin_left">5</property>
+                <property name="margin_right">5</property>
+                <property name="margin_top">5</property>
+                <property name="margin_bottom">5</property>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">2</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/designer/src/glade/Designer.glade

@@ -0,0 +1,184 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated with glade 3.20.0 -->
+<interface>
+  <requires lib="gtk+" version="3.0"/>
+  <object class="GtkWindow" id="window1">
+    <property name="can_focus">False</property>
+    <property name="window_position">center</property>
+    <child>
+      <object class="GtkBox">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <property name="orientation">vertical</property>
+        <child>
+          <object class="GtkMenuBar" id="main_menu">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkMenuItem" id="file_menu">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_File</property>
+                <property name="use_underline">True</property>
+                <child type="submenu">
+                  <object class="GtkMenu">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <child>
+                      <object class="GtkImageMenuItem" id="file_menu_new">
+                        <property name="label">gtk-new</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="file_menu_open">
+                        <property name="label">gtk-open</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="file_menu_save">
+                        <property name="label">gtk-save</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="file_menu_save_as">
+                        <property name="label">gtk-save-as</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkSeparatorMenuItem">
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                      </object>
+                    </child>
+                    <child>
+                      <object class="GtkImageMenuItem" id="file_menu_quit">
+                        <property name="label">gtk-quit</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                  </object>
+                </child>
+              </object>
+            </child>
+            <child>
+              <object class="GtkMenuItem">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="label" translatable="yes">_Help</property>
+                <property name="use_underline">True</property>
+                <child type="submenu">
+                  <object class="GtkMenu">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <child>
+                      <object class="GtkImageMenuItem">
+                        <property name="label">gtk-about</property>
+                        <property name="visible">True</property>
+                        <property name="can_focus">False</property>
+                        <property name="use_underline">True</property>
+                        <property name="use_stock">True</property>
+                      </object>
+                    </child>
+                  </object>
+                </child>
+              </object>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkPaned">
+            <property name="visible">True</property>
+            <property name="can_focus">True</property>
+            <child>
+              <object class="GtkBox">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="orientation">vertical</property>
+                <child>
+                  <object class="GtkScrolledWindow" id="component_window">
+                    <property name="width_request">300</property>
+                    <property name="height_request">500</property>
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="shadow_type">in</property>
+                    <child>
+                      <placeholder/>
+                    </child>
+                  </object>
+                  <packing>
+                    <property name="expand">True</property>
+                    <property name="fill">True</property>
+                    <property name="position">0</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkScrolledWindow" id="created_window">
+                    <property name="can_focus">True</property>
+                    <property name="shadow_type">in</property>
+                    <child>
+                      <placeholder/>
+                    </child>
+                  </object>
+                  <packing>
+                    <property name="expand">False</property>
+                    <property name="fill">False</property>
+                    <property name="position">1</property>
+                  </packing>
+                </child>
+              </object>
+              <packing>
+                <property name="resize">False</property>
+                <property name="shrink">True</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkEventBox" id="viewer">
+                <property name="width_request">500</property>
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="events">GDK_EXPOSURE_MASK | GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_MOTION_MASK | GDK_BUTTON1_MOTION_MASK | GDK_BUTTON2_MOTION_MASK | GDK_BUTTON3_MOTION_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK | GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK | GDK_ENTER_NOTIFY_MASK | GDK_LEAVE_NOTIFY_MASK | GDK_FOCUS_CHANGE_MASK | GDK_STRUCTURE_MASK | GDK_PROPERTY_CHANGE_MASK | GDK_VISIBILITY_NOTIFY_MASK | GDK_PROXIMITY_IN_MASK | GDK_PROXIMITY_OUT_MASK | GDK_SUBSTRUCTURE_MASK | GDK_SCROLL_MASK | GDK_TOUCH_MASK | GDK_SMOOTH_SCROLL_MASK</property>
+                <property name="visible_window">False</property>
+                <child>
+                  <placeholder/>
+                </child>
+              </object>
+              <packing>
+                <property name="resize">True</property>
+                <property name="shrink">True</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">2</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>