libguib 1.1.0

data/src/fxobjects.rb

@@ -0,0 +1,253 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+if __FILE__ == $0
+  require "fox"
+end
+
+def loadImageToString filename
+  data = nil
+  File.open(filename, "rb") { |f| data = f.read }
+  data.unpack1("h#{data.size * 2}")
+end
+
+def loadImageFromString s, icon_class = Fox::FXPNGIcon
+  raise TypeError unless $fxapp
+  imgdata = [s].pack("h#{s.size * 2}")
+  img = icon_class.new($fxapp, imgdata, Fox::IMAGE_KEEP | Fox::IMAGE_SHMI | Fox::IMAGE_SHMP)
+  img.create
+  img
+end
+
+def load_dummy
+  raise TypeError unless $fxapp
+  imgdata = "9805e474d0a0a1a0000000d0948444250000000100000001803000000082d2f035000000a247548547342756164796f6e6024596d65600d4f60293026456260223030343021363a33363a3133302b2031303037c63ded4000000704794d454704d2090f0627041559b9c00000090078495370000b0210000b021102ddde7cf000000407614d41400001bf8b0cf16500000003305c44554000000ffefeffff0f0ffc1c1ffcbcbff7878ff5b5bffc5c5ff7979ff9292ffadadff2f2fff7171ff4747ffb4b4ff6e6eff8383bfe98b0d000000104725e43500046e8d66000000b59444144587ad58ec1ee008028040069333b223d7ff7adec6a39c5b57f38d8f406a3992ea61d0508294b382bda9d373840c595953630f0c1c930ece73e940ee8506f8dc0446f14600fddfa260877711b0c50971c4f5ff898f7819b1678020e2a25402a2000000009454e444ea240628"
+  imgdata = [imgdata].pack("h#{imgdata.size * 2}")
+  $dummy_img = img = Fox::FXPNGIcon.new($fxapp, imgdata, Fox::IMAGE_KEEP | Fox::IMAGE_SHMI | Fox::IMAGE_SHMP)
+  img.create
+  img
+end
+
+def hasExtension(filename, ext)
+  File.basename(filename, ext) != File.basename(filename)
+end
+
+# Load the named image file
+def loadImage(file)
+  img = load_dummy unless $dummy_img
+
+  unless File.exist? file
+    return img
+  end
+  begin
+    opts = Fox::IMAGE_KEEP | Fox::IMAGE_SHMI | Fox::IMAGE_SHMP
+    if hasExtension(file, ".gif")
+      img = Fox::FXGIFIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".bmp")
+      img = Fox::FXBMPIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".xpm")
+      img = Fox::FXXPMIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".png")
+      img = Fox::FXPNGIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".jpg")
+      img = Fox::FXJPGIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".pcx")
+      img = Fox::FXPCXIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".tif")
+      img = Fox::FXTIFIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".tga")
+      img = Fox::FXTGAIcon.new($fxapp, nil, opts)
+    elsif hasExtension(file, ".ico")
+      img = Fox::FXICOIcon.new($fxapp, nil, opts)
+    end
+    unless img
+      puts("Unsupported image type: #{file}")
+      return img
+    end
+    Fox::FXFileStream.open(file, Fox::FXStreamLoad) { |stream| img.loadPixels(stream) }
+    img.filename = file
+    img.create
+  rescue Exception
+    puts "load Image: #{$!}"
+  end
+  img
+end
+
+module FX
+  class Icon
+    def initialize filename
+      if filename
+        @filename = filename
+        @img = loadImage(filename)
+      end
+    end
+    attr_accessor :img
+
+    def to_s
+      @filename
+    end
+
+    def self.LoadFromString s, icon_class = Fox::FXPNGIcon
+      icon = Icon.new nil
+      icon.img = loadImageFromString s, icon_class
+      icon
+    end
+  end
+
+  # color object (united fox functions)
+  class Color
+    attr_accessor :r, :g, :b, :a
+    # construct by red, green, blue and (optionally) alpha value
+    def initialize r = 0, g = 0, b = 0, a = nil
+      @r, @g, @b, @a = r, g, b, a
+    end
+
+    # returns Fox::FXColor value
+    def to_FXColor
+      @a ? Fox::FXRGBA(@r, @g, @b, @a) : Fox::FXRGB(@r, @g, @b)
+    end
+
+    # get value from FXColor
+    def from_FXColor c
+      @r = Fox::FXREDVAL(c)
+      @g = Fox::FXGREENVAL(c)
+      @b = Fox::FXBLUEVAL(c)
+      @a = Fox::FXALPHAVAL(c)
+      self
+    end
+
+    # get value according to Fox colorname
+    def from_name(name)
+      from_FXColor(Fox.fxcolorfromname(name))
+      self
+    end
+
+    # encode binary string representation
+    def serialize
+      Fox.fxencodeColorData(to_FXColor)
+    end
+
+    # decode from binary string representation
+    def deserialize(data)
+      from_FXColor(Fox.fxdecodeColorData(data))
+      self
+    end
+
+    # returns human readable string representation
+    def to_s
+      (@a ? [@r, @g, @b, @a] : [@r, @g, @b]).join(",")
+    end
+
+    # reads value from human readable string representation
+    def from_s s
+      s = "0, 0, 0, 0" if s.size < 5
+      @r, @g, @b, @a = s.split(",").collect { |c| c.to_i }
+      self
+    end
+  end
+
+  # font object. cannot be substituted for FXFont
+  class Font
+    # param is either a Fox::FXFontDesc or a string representation
+    def initialize
+      @fd = Fox::FXFontDesc.new
+    end
+    attr_accessor :fd
+    # human readable string representation
+    def to_s
+      @fd.to_s
+    end
+
+    def from_s s
+      @fd.from_s s
+      self
+    end
+
+    def to_FXFont
+      f = Fox::FXFont.new $fxapp, @fd
+      f.create
+      f
+    end
+
+    def from_FXFont f
+      @fd = f.fontDesc
+      self
+    end
+  end
+end # module
+
+class Fox::FXIcon
+  attr_accessor :filename
+  def to_s
+    filename || ""
+  end
+end
+
+class Fox::FXFontDesc
+  # ~ alias :_initialize_ :initialize
+  # ~ def initialize
+  # ~ _initialize_
+  # ~ from_s "Tahoma|80|400|1|0|0|0"
+  # ~ end
+  # human readable string representation
+  def to_s
+    [face,
+      size,
+      weight,
+      slant,
+      encoding,
+      setwidth,
+      flags].join("|")
+  end
+
+  # parse human readable string representation
+  def from_s(s)
+    # ~ begin
+    a = s.split("|")
+    self.face = a[0]
+    self.size = a[1].to_i
+    self.weight = a[2].to_i
+    self.slant = a[3].to_i
+    self.encoding = a[4].to_i
+    self.setwidth = a[5].to_i
+    self.flags = a[6].to_i
+    # ~ rescue Exception
+    # ~ puts "error parsing string representation: #{$!}"
+    # ~ puts $!.backtrace.join($/)
+    # ~ return nil
+    # ~ end
+    self
+  end
+
+  # initialize from other font desc or string representation
+  def init fd
+    if fd.is_a? Fox::FXFontDesc
+      self.face = fd.face
+      self.size = fd.size
+      self.weight = fd.weight
+      self.slant = fd.slant
+      self.encoding = fd.encoding
+      self.setwidth = fd.setwidth
+      self.flags = fd.flags
+    elsif fd.is_a? String
+      from_s fd
+    end
+  end
+end
+
+class Fox::FXFont
+  def to_s
+    fontDesc.to_s
+  end
+end
+
+class Fox::FXIcon
+  attr_accessor :filename
+  def to_s
+    filename || ""
+  end
+end
+
+if __FILE__ == $0
+  s = loadImageToString "icon_not_found.png"
+  puts s == "9805e474d0a0a1a0000000d0948444250000000100000001803000000082d2f035000000a247548547342756164796f6e6024596d65600d4f60293026456260223030343021363a33363a3133302b2031303037c63ded4000000704794d454704d2090f0627041559b9c00000090078495370000b0210000b021102ddde7cf000000407614d41400001bf8b0cf16500000003305c44554000000ffefeffff0f0ffc1c1ffcbcbff7878ff5b5bffc5c5ff7979ff9292ffadadff2f2fff7171ff4747ffb4b4ff6e6eff8383bfe98b0d000000104725e43500046e8d66000000b59444144587ad58ec1ee008028040069333b223d7ff7adec6a39c5b57f38d8f406a3992ea61d0508294b382bda9d373840c595953630f0c1c930ece73e940ee8506f8dc0446f14600fddfa260877711b0c50971c4f5ff898f7819b1678020e2a25402a2000000009454e444ea240628"
+end

data/src/main-window.rb

@@ -0,0 +1 @@
+

data/src/make.rb

@@ -0,0 +1,196 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+# spag/hettizer:
+# packs everything into one executable ruby script
+STDOUT.sync = true
+
+$program_src_dir = "./"
+$program_release_dir = "../"
+$program_file = "__FX__.rb"
+$output_file = "lib/libGUIb16.rb"
+$zip = false
+
+$DEBUG = false
+
+$debugstring = '"##{$program_working_dir}/#{filename}:#{i}:  "'
+
+$exclusion_names = [ # won't be inserted
+  /paths/,
+  /fox(\/)?/,
+  /etc\.so/,
+  /properties/,
+  /code-gen/,
+  /^FX/,
+  /fxruby/
+]
+$force_require = [ # files that are not implicitely required can be forced to be "included" here
+  # "FileSelector-extension",
+  "PathSelector-extension"
+]
+$required_files = [] # will be required bevore generation of the release script
+$files_to_be_copied = [ # will be copied to release dir; $V marks directory
+]
+$require_paths = ["", "FX"]
+
+$path_replacements = {
+  #	"pp"=>ENV["RUBY_HOME"]+"/..todo../pp"
+}
+
+# ####################################
+
+def prepare
+  Dir.chdir($program_src_dir)
+  $required_files.each { |file|
+    require file
+  }
+
+  $required_files = []
+end
+
+def winPath(path)
+  path.tr("/", "\\")
+end
+
+def check_exclusions filename
+  $exclusion_names.each { |regex|
+    if filename&.match?(regex)
+      puts "#### excluded: #{filename}"
+      return true
+    end
+  }
+  false
+end
+
+$inside_unittest_block = false
+
+def check_exist filename
+  if File.exist?(filename)
+    filename
+  else
+    $require_paths.each { |path|
+      newname = File.join path, filename
+      return newname if File.exist? newname
+    }
+    raise "! File not found: " + filename
+  end
+end
+
+# simulates require
+def fill_in f, require_string
+  filename = eval(require_string)
+  return unless filename
+  filename += ".rb" unless /(\.rb$)|(\.rbw$)/.match?(filename)
+  if check_exclusions(filename)
+    f.print "###### excluded: \n" if $DEBUG
+    f.print "require " + require_string, "\n"
+    return
+  end
+  f.print "# require " + filename, "\n" if $DEBUG
+  puts "REQUIRE-STRING: #{require_string}"
+  filename = check_exist(filename)
+  return if $required_files.member? filename
+  puts "\tFILENAME: #{filename}"
+  $required_files << filename
+  f1 = File.open(filename, "r")
+  i = 0
+  for line in f1.readlines
+    i += 1
+    if $inside_unittest_block and line.strip =~ /end/
+      $inside_unittest_block = false
+      next
+    end
+    break if /#\s*MAKE_CUTOFF/.match?(line)
+    next if /#\s*MAKE_DROP/.match?(line.strip)
+    next if $inside_unittest_block
+    next if line.strip.empty?
+    next if /^#/.match?(line.strip)
+    next if /^;/.match?(line.strip)
+    next if /^dbg/.match?(line.strip)
+    next if /^assert/.match?(line.strip)
+    if /^if __FILE__/.match?(line.strip)
+      $inside_unittest_block = true
+      next
+    end
+    next if /\sif __FILE__/.match?(line.strip)
+    unless /require(\s|\().*((".*")|('.*'))/.match?(line)
+      f.print line.chomp, "\n"
+      f.print eval($debugstring), "\n" if $DEBUG and line.strip =~ /end/
+      next
+    end
+    require_string = line.strip.gsub("require", "")
+    fill_in f, require_string
+  end
+end
+
+def make_dir dir
+  Dir.mkdir dir
+rescue Exception
+  puts "mkdir: " + $!
+end
+
+def delete_release
+  cmd = "rd /s /q #{winPath($program_release_dir)}"
+  puts "> " + cmd
+  puts "> " + `#{cmd}`
+  make_dir($release_dir)
+end
+
+def copy file
+  isdir = (file =~ /\$V/)
+  if isdir
+    file.gsub!("$V", "")
+    cmd = "xcopy /I /R #{winPath(file)} #{winPath($program_release_dir + File.basename(file))}"
+  else
+    cmd = "copy #{winPath(file)} #{winPath($program_release_dir + File.basename(file))}"
+  end
+  puts "> " + cmd
+  puts "\t" + `#{cmd}`
+end
+
+def zippe
+  f = File.open($program_release_dir + $gz_output_file, "wb")
+  g = File.open($program_release_dir + $output_file, "rb")
+  f.write(Zlib::Deflate.deflate(g.read, Zlib::BEST_COMPRESSION))
+  f.close
+  g.close
+end
+
+# delete_release
+# make_dir $program_release_dir
+
+puts "###### generating #{$output_file}:"
+# klartext output file
+File.open($program_release_dir + $output_file, "wb") { |g|
+  g.puts "# libGUIb: Copyright (c) by Meinrad Recheis aka Henon, 2006"
+  g.puts "# THIS SOFTWARE IS PROVIDED IN THE HOPE THAT IT WILL BE USEFUL"
+  g.puts "# WITHOUT ANY IMPLIED WARRANTY OR FITNESS FOR ANY PURPOSE."
+  prepare
+  # input
+  # ~ File.open( $program_file, "r"){|f|
+  # make it
+  fill_in g, "'#{$program_file}'"
+  $force_require.each { |name| fill_in g, "'#{name}'" }
+  #		File.open("../build/included_files.rb", "w"){|h|
+  #			h.puts $required_files.inspect.split.join("\n")
+  #		}
+  puts "###### copying files"
+  $files_to_be_copied.each { |fname|
+    copy(fname)
+  }
+  # ~ }
+}
+if $zip
+  require "zlib"
+  zippe
+end
+
+# installing:
+Dir.chdir $program_release_dir
+if PLATFORM.match?(/win32/)
+  `ruby install.rb`
+else
+  pw = File.read("pw")
+  io = IO.popen("sudo -S ruby install.rb", "w")
+  sleep 1
+  io.puts pw
+end

data/src/middle-right-mouse.rb

@@ -0,0 +1,51 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+module MiddleBtn
+  def handleMMB_Events
+    FXMAPFUNC(Fox::SEL_MIDDLEBUTTONPRESS, 0, :onMiddleBtnPress)
+    FXMAPFUNC(Fox::SEL_MIDDLEBUTTONRELEASE, 0, :onMiddleBtnRelease)
+  end
+
+  def onMiddleBtnPress(sender, sel, evt)
+    if enabled?
+      if !target.nil? && (target.handle(self, MKUINT(selector, Fox::SEL_MIDDLEBUTTONPRESS), evt) != 0)
+        return 1
+      end
+    end
+    0
+  end
+
+  def onMiddleBtnRelease(sender, sel, evt)
+    if enabled?
+      if !target.nil? && (target.handle(self, MKUINT(selector, Fox::SEL_MIDDLEBUTTONRELEASE), evt) != 0)
+        return 1
+      end
+    end
+    0
+  end
+end
+
+module RightBtn
+  def handleRMB_Events
+    FXMAPFUNC(Fox::SEL_MIDDLEBUTTONPRESS, 0, :onMiddleBtnPress)
+    FXMAPFUNC(Fox::SEL_MIDDLEBUTTONRELEASE, 0, :onMiddleBtnRelease)
+  end
+
+  def onRightBtnPress(sender, sel, evt)
+    if enabled?
+      if !target.nil? && (target.handle(self, MKUINT(selector, Fox::SEL_RIGHTBUTTONPRESS), evt) != 0)
+        return 1
+      end
+    end
+    0
+  end
+
+  def onRightBtnRelease(sender, sel, evt)
+    if enabled?
+      if !target.nil? && (target.handle(self, MKUINT(selector, Fox::SEL_RIGHTBUTTONRELEASE), evt) != 0)
+        return 1
+      end
+    end
+    0
+  end
+end

data/src/radio_group.rb

@@ -0,0 +1,46 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+require "event_listener"
+
+module FX
+  class RadioGroup
+    __sends__ :event_selected
+    def initialize
+      @radio_widgets = []
+      @selected = nil
+    end
+    attr_reader :radio_widgets
+    def add_radio(radio_widget, &block)
+      @radio_widgets << radio_widget
+      radio_widget.connect(Fox::SEL_COMMAND) {
+        select(radio_widget)
+        yield if block
+      }
+    end
+    alias_method :<<, :add_radio
+    def select radio_widget
+      @selected = radio_widget
+      event_selected @selected
+      for w in @radio_widgets
+        begin
+          w.state = (w == @selected) # only the selected widget is checked.
+        rescue Exception
+          # this is necessary to prevent a radiomutex from crashing
+          # after a radiobutton has been deleted in foxGUIb
+          puts $!
+        end
+      end
+    end
+
+    attr_reader :selected
+  end
+end # fx
+
+if __FILE__ == $0
+  $app = FX::App.new "", ""
+  FX::MainWindow.new($app) {
+  }
+
+  $app.create
+  $app.run
+end

data/src/radio_matrix.rb

@@ -0,0 +1,95 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+if __FILE__ == $0
+  Dir.chdir ".."
+  require "FX"
+end
+
+module RadioGroup1
+  def RadioGroup1_initialize
+    @RadioGroup1_initialized = true
+    @RadioGroup1_listeners ||= []
+  end
+
+  def radio_command w
+    RadioGroup1_initialize unless @RadioGroup1_initialized
+    return if @selected_radio_widget == w
+    if @selected_radio_widget
+      @selected_radio_widget.set_radio_state false
+    end
+    @selected_radio_widget = w
+    @RadioGroup1_listeners.each { |l|
+      l.on_event(@selected_radio_widget)
+    }
+  end
+  attr_accessor :selected_radio_widget, :RadioGroup1_listeners
+end
+
+module RadioWidget
+  def radio_initialize col = FX::Color.new(255, 255, 255)
+    @radio_initialized = true
+    @radioBackColor = FX::Color.new.from_FXColor(backColor)
+    @radioSelectColor ||= col
+    @state = false
+    connect(SEL_LEFTBUTTONPRESS, method(:lmb_press))
+  end
+  attr_accessor :radioSelectColor, :radioSelectColor
+  def set_radio_state state
+    @state = state
+    change_radio_selection
+  end
+
+  def change_radio_selection
+    self.backColor = @state ? @radioSelectColor.to_FXColor : @radioBackColor.to_FXColor
+  end
+  attr_accessor :state, :group, :lmbdown
+
+  def lmb_press(*args)
+    if @group and @group.respond_to?(:radio_command)
+      set_radio_state true
+      @group.radio_command(self)
+    else
+      set_radio_state(!@state)
+    end
+    @lmbdown = true
+    0
+  end
+end
+
+module FX
+  class RadioMatrix < Fox::FXMatrix
+    include RadioGroup1
+    def initialize(p)
+      super
+    end
+  end
+
+  class RadioLabel < Label
+    include RadioWidget
+    def initialize(p)
+      super
+      radio_initialize
+    end
+  end
+end
+
+# unit test
+if __FILE__ == $0
+  $stdout.sync = true
+  app = App.new
+  w = MainWindow.new app
+  RadioMatrix.new(w) { |lm|
+    lm.matrixStyle = MATRIX_BY_COLUMNS
+    lm.numColumns = 3
+    10.times { |i|
+      RadioLabel.new(lm) { |l|
+        l.group = lm
+        l.text = i.to_s
+        l.img = "FX/icon_not_found.png"
+      }
+    }
+  }
+  w.show(0)
+  app.create
+  app.run
+end

data/src/relative-path.rb

@@ -0,0 +1,14 @@
+# Copyright (c) 2004-2006 by Henon (meinrad dot recheis at gmail dot com)
+
+def rel_path(a, b)
+  raise TypeError unless a.is_a? String and b.is_a? String
+  a.tr!("\\", "/")
+  b.tr!("\\", "/")
+  a = a.split("/")
+  b = b.split("/")
+  i = 0
+  while (a[i] == b[i]) && (i < a.size)
+    i += 1
+  end
+  "../" * (a.size - i) + b[i..-1].join("/")
+end