foxguib 1.1.0

data/license.txt

@@ -0,0 +1,49 @@
+The Artistic License
+
+Preamble
+
+The intent of this document is to state the conditions under which a Package may be copied, such that the Copyright Holder maintains some semblance of artistic control over the development of the package, while giving the users of the package the right to use and distribute the Package in a more-or-less customary fashion, plus the right to make reasonable modifications.
+
+Definitions:
+"Package" refers to the collection of files distributed by the Copyright Holder, and derivatives of that collection of files created through textual modification.
+"Standard Version" refers to such a Package if it has not been modified, or has been modified in accordance with the wishes of the Copyright Holder.
+"Copyright Holder" is whoever is named in the copyright or copyrights for the package.
+"You" is you, if you're thinking about copying or distributing this Package.
+"Reasonable copying fee" is whatever you can justify on the basis of media cost, duplication charges, time of people involved, and so on. (You will not be required to justify it to the Copyright Holder, but only to the computing community at large as a market that must bear the fee.)
+"Freely Available" means that no fee is charged for the item itself, though there may be fees involved in handling the item. It also means that recipients of the item may redistribute it under the same conditions they received it.
+
+1. You may make and give away verbatim copies of the source form of the Standard Version of this Package without restriction, provided that you duplicate all of the original copyright notices and associated disclaimers.
+
+2. You may apply bug fixes, portability fixes and other modifications derived from the Public Domain or from the Copyright Holder. A Package modified in such a way shall still be considered the Standard Version.
+
+3. You may otherwise modify your copy of this Package in any way, provided that you insert a prominent notice in each changed file stating how and when you changed that file, and provided that you do at least ONE of the following:
+
+a) place your modifications in the Public Domain or otherwise make them Freely Available, such as by posting said modifications to Usenet or an equivalent medium, or placing the modifications on a major archive site such as ftp.uu.net, or by allowing the Copyright Holder to include your modifications in the Standard Version of the Package.
+
+b) use the modified Package only within your corporation or organization.
+
+c) rename any non-standard executables so the names do not conflict with standard executables, which must also be provided, and provide a separate manual page for each non-standard executable that clearly documents how it differs from the Standard Version.
+
+d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or executable form, provided that you do at least ONE of the following:
+
+a) distribute a Standard Version of the executables and library files, together with instructions (in the manual page or equivalent) on where to get the Standard Version.
+
+b) accompany the distribution with the machine-readable source of the Package with your modifications.
+
+c) accompany any non-standard executables with their corresponding Standard Version executables, giving the non-standard executables non-standard names, and clearly documenting the differences in manual pages (or equivalent), together with instructions on where to get the Standard Version.
+
+d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this Package. You may charge any fee you choose for support of this Package. You may not charge a fee for this Package itself. However, you may distribute this Package in aggregate with other (possibly commercial) programs as part of a larger (possibly commercial) software distribution provided that you do not advertise this Package as a product of your own.
+
+6. The scripts and library files supplied as input to or produced as output from the programs of this Package do not automatically fall under the copyright of this Package, but belong to whomever generated them, and may be sold commercially, and may be aggregated with this Package.
+
+7. C or perl subroutines supplied by you and linked into this Package shall not be considered part of this Package.
+
+8. The name of the Copyright Holder may not be used to endorse or promote products derived from this software without specific prior written permission.
+
+9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+The End

data/readme.txt

@@ -0,0 +1 @@
+please have a look at doc/www/index.html or http://fox-tool.rubyforge.org

data/release_notes.txt

@@ -0,0 +1,68 @@
+============================
+foxGUIb v1.0.0 Release Notes 
+============================
+
+We have been quite stable for 2 years now and I am wondering why I did not jump to version 1.0.0 earlier. 
+For this release only a few minor bugs have been fixed. 
+-- henon
+
+============================
+foxGUIb v0.7.1 Release Notes 
+============================
+
+sorry i have dropped a big bug while refactoring that broke
+load/save and copy/paste. it was subtle enought to slip
+through my testing and into the release unnoticed.
+(see changelog)
+
+hope this one is stable.
+-- henon
+
+==========================
+foxGUIb v0.7 Release Notes 
+==========================
+
+== What is foxGUIb? ==
+   foxGUIb is a GUI creator and code generator for FXRuby. It's a 
+   convenient tool that makes it easy to quickly build complex and 
+   good looking graphical user interfaces for Ruby.
+   
+== Whom is foxGUIb for? ==
+   * FXRuby newbies who want to experiment with the widgets and layouts.
+   * FXRuby experts who want to prototype parts of their GUI components rapidly.
+   ... ok, lets say everyone who wants to create a GUI with FXRuby ;)
+
+== What has changed? ==
+   * Fixed the bug that allowed to change properties of a 
+     deleted widget (caused a crash)
+   * Fixed several bugs that led to crashes when typing 
+     improper values into the property manipulators. e.g.: 
+     backColor="bad input" instead of "200,255,255"
+   * on startup foxGUIb logs important version infos to the 
+     log file. the log file is appended instead of replaced.
+     in case of a problem you can send me your logfile.
+   * some minor convenience fixes.
+   
+== Links: ==
+   Homepage:
+      http://fox-tool.rubyforge.org
+   Mike Parr's User Guide:
+      http://www.mikeparr.info/rubyguib/foxguibhome.htm
+   Download:
+      http://rubyforge.org/frs/?group_id=88
+
+== Copyright and License ==
+   foxGUIb is free software. Copyright (c) by Meinrad Recheis aka Henon
+   foxGUIb: Artistic License
+   libGUIb: lgpl
+   
+enjoy ;)
+-- henon
+
+
+
+Boring Disclaimer:
+
+THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, 
+INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND 
+FITNESS FOR A PARTICULAR PURPOSE.

data/src/assert.rb

@@ -0,0 +1,8 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+def assert(*args)
+  args.each_with_index { |x, i|
+    m = "assertion: parameter #{i} is nil"
+    raise m unless x
+  }
+end

data/src/cfgman.rb

@@ -0,0 +1,27 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "pp"
+
+$cfg = {}
+
+def load_settings filename
+  begin
+    $cfg = eval File.new(filename, "r").read
+  rescue Exception
+    $cfg = {}
+  ensure
+    $cfg ||= {}
+  end
+  # go to last working directory
+  Dir.chdir $cfg[:wdir] if $cfg[:wdir] and File.exist? $cfg[:wdir]
+end
+
+def save_settings filename
+  # memorize working directory
+  $cfg[:wdir] = Dir.getwd
+
+  Dir.chdir(HOME)
+  $stdout = File.new filename, "w"
+  puts "# foxGUIb configuration - edit carefully!"
+  pp $cfg
+end

data/src/code-gen/code-generator.rb

@@ -0,0 +1,171 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+def capitalize name
+  name[0] = name[0..0].capitalize[0]
+  name
+end
+
+module CodeGenerator
+  def generate_code opts, item = @fxtree.currentItem, classname = nil, unittest = true
+    @wr = ""
+    unmark
+    w "# source generated by #{FOXGUIB}"
+    w
+    if opts == "ruby.plain"
+      gen_widget_tree "ruby", item
+    elsif opts == "ruby.class"
+      gen_class "ruby", item, classname, unittest
+      #	elsif opts=="ruby.derived_class"
+      # ~ gen_app "ruby"
+    end
+    @wr
+  end
+
+  def i(text = "")
+    @indent ||= 0
+    @ws ||= "  "
+    # @wr=$stdout if @wr.nil?
+    @wr += ((@ws * @indent) + text).rstrip + $/
+    @indent += 1
+  end
+
+  def w(text = "")
+    @indent ||= 0
+    @ws ||= "  "
+    # @wr=$stdout if @wr.nil?
+    @wr += ((@ws * @indent) + text).rstrip + $/
+  end
+
+  def o(text = "")
+    @indent ||= 0
+    @indent -= 1
+    @ws ||= "  "
+    # @wr=$stdout if @wr.nil?
+    @wr += ((@ws * @indent) + text).rstrip + $/
+  end
+
+  def gen_app lang
+    if lang == "ruby"
+      # TODO
+    end
+  end
+
+  def make_class_name treeitem
+    name = treeitem.to_s
+    capitalize(name)
+  end
+
+  def gen_class lang, treeitem, name = nil, unittest = true
+    name ||= make_class_name treeitem
+    if lang == "ruby"
+      i("class #{name}")
+      i("def initialize(parent)")
+      w "construct_widget_tree(parent)"
+      w "init if respond_to? :init"
+      o("end")
+      w ""
+      i("def construct_widget_tree(parent)")
+      i "@topwin = "
+      gen_widget_tree lang, treeitem
+      o "@topwin"
+      o "end"
+      w "attr_reader :topwin"
+      gen_accessors lang, treeitem
+      o "end"
+      w
+      # w "s='#{name}-extension.rb'"
+      # w "require s if File.exist?(s)"
+      gen_unittest lang, treeitem, name
+    end
+  end
+
+  def gen_widget_tree lang, treeitem, parent_name = "parent"
+    wdg = @w[treeitem.to_s]
+    raise "widget #{treeitem} is nil! cannot generate code." unless wdg
+    if lang == "ruby"
+      i("#{wdg.class}.new(#{parent_name}) { |w_#{treeitem}|")
+      w "@#{treeitem} = w_#{treeitem}"
+      w "w_#{treeitem}.wdg_name = \"#{treeitem}\""
+      wdg.generate_properties { |p| w p.to(lang, treeitem) }
+      generate_behaviour wdg, lang, treeitem
+      treeitem.each { |child|
+        gen_widget_tree lang, child, "@#{treeitem}"
+      }
+      o "}"
+    end
+  end
+
+  def generate_behaviour wdg, lang, treeitem
+    return unless wdg.behaviour
+    wdg.behaviour.each { |event, code|
+      next if code.strip.empty?
+      i("@#{treeitem}.connect(Fox::#{event}) { ")
+      code.split($/).each { |line|
+        w line
+      }
+      o(" }")
+    }
+  end
+
+  def gen_accessors lang, treeitem
+    if lang == "ruby"
+      w "attr_reader :#{treeitem}"
+      treeitem.each { |child|
+        gen_accessors lang, child
+      }
+    end
+  end
+
+  def gen_unittest lang, treeitem, name
+    if lang == "ruby"
+      w "# unit test"
+      i("if __FILE__ == $0")
+      w "require \"#{FOXGUIB_LIBRARY}\""
+      w "app = FX::App.new"
+      if @w[treeitem.to_s] == @topwin
+        w "w = #{name}.new app"
+        w "w.topwin.show(Fox::PLACEMENT_SCREEN)"
+      else
+        w "mw = MainWindow.new app"
+        w "w = #{name}.new mw"
+        w "mw.show(Fox::PLACEMENT_SCREEN)"
+      end
+      w "app.create"
+      w "app.run"
+      o "end"
+    end
+  end
+
+  # ~ def gen_multiling_code lang, treeitem
+  # ~ name=treeitem.to_s
+  # ~ name[0]=name[0..0].capitalize[0]
+  # ~ if lang=="ruby"
+  # ~ i("module #{name}Texts" )
+  # ~ i("def #{treeitem.to_s.downcase}_texts")
+  # ~ gen_texts lang, treeitem
+  # ~ o"end"
+  # ~ o "end"
+  # ~ end
+  # ~ end
+
+  # ~ def gen_texts lang, treeitem
+  # ~ wdg=@w[treeitem.to_s]
+  # ~ wdg.defaults.keys.each{|m|
+  # ~ p=$propman.props[m]
+  # ~ next unless p.kind_of? StringProp
+  # ~ value=wdg.send m.chop
+  # ~ next unless value.to_s.size == 0
+  # ~ if lang=="ruby"
+  # ~ w "$L.register @#{treeitem.to_s}," if m=="text="
+  # ~ w "$L.register_method @#{treeitem.to_s}, '#{m}'," if m!="text="
+  # ~ i()
+  # ~ w "['de', '#{value.to_s}'],"
+  # ~ w "['en', ' ']"
+  # ~ o()
+  # ~ end
+  # ~ }
+  # ~ treeitem.each{|child|
+  # ~ gen_texts lang, child
+  # ~ }
+  # ~ end
+end # module CodeGenerator

data/src/code-gen/property-generators.rb

@@ -0,0 +1,65 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+module StringPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}#{serialize @wdg.send(method.chop).inspect}"
+    end
+  end
+end
+
+module IntPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}#{serialize @wdg.send(method.chop)}"
+    end
+  end
+end
+
+module BoolPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}#{serialize @wdg.send(method.chop)}"
+    end
+  end
+end
+
+module ConstPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}#{serialize @wdg.send(method.chop)}"
+    end
+  end
+end
+
+module ColorPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}Fox::FXRGBA(#{serialize @wdg.send(method.chop)})"
+    end
+  end
+end
+
+module FontPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}FX::Font.new.from_s(\"#{serialize(@wdg.send(method.chop))}\").to_FXFont"
+    end
+  end
+end
+
+module IconPropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}\"#{serialize @wdg.send(method.chop)}\""
+    end
+  end
+end
+
+module RangePropCodeGen
+  def to lang, treeitem
+    if lang == "ruby"
+      "w_#{treeitem}.#{method_s}#{serialize @wdg.send(method.chop)}"
+    end
+  end
+end

data/src/code-gen/widget-generator.rb

@@ -0,0 +1,22 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+# generator extension for widgets
+# ~ module WidgetGenerator
+
+# ~ end
+
+class Fox::FXWindow
+  # ~ include WidgetGenerator
+  # iterates over the widgets properties and yields { |method, Property_manipulator, | ... }
+  def generate_properties
+    PropMan.instance.props.each { |m, manip|
+      if @defaults.keys.member? m
+        value = send(m.chop)
+        manip.wdg = self
+        unless value.to_s == @defaults[m].to_s
+          yield(manip) if block_given?
+        end
+      end
+    }
+  end
+end

data/src/convert.rb

@@ -0,0 +1,60 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+# ~ require 'FX'
+require "pp"
+
+def load_from_file filename
+  data = nil
+  f = nil
+  if filename.split(".").pop == "pp"
+    f = File.new(filename)
+    # ~ puts 'pp load'
+    begin
+      data = eval(f.read)
+    rescue Exception
+      error "pp load error: ", $!.to_s
+    end
+  else
+    f = File.new(filename, "rb")
+    # ~ puts 'binary load'
+    begin
+      data = Marshal.load(f.read)
+    rescue Exception
+      error "binary load error: ", $!.to_s
+    end
+  end
+  f.close
+  data
+end
+
+def save data, filename
+  if filename.split(".").pop == "pp"
+    begin
+      out = $stdout
+      $stdout = File.new(filename.tr("\\", "/"), "w")
+      pp data
+      $stdout.flush
+    rescue Exception
+      filename += ".rbin"
+      puts "rescue marshal to: " + filename
+      puts $!
+      puts $!.backtrace.join($/)
+      try_marshal = true
+    ensure
+      $stdout.close
+      $stdout = out
+    end
+  else
+    try_marshal = true
+  end
+  if try_marshal
+    f = File.new(filename.tr("\\", "/"), "wb")
+    Marshal.dump data, f
+    f.flush
+    f.close
+  end
+end
+
+puts "converting #{ARGV[0]} to #{ARGV[1]}"
+data = load_from_file ARGV[0]
+save data, ARGV[1]