wxruby3 0.9.0.pre.beta.8-x64-mingw-ucrt

data/samples/bigdemo/wxFontDialog.rbw

@@ -0,0 +1,200 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems'
+rescue LoadError
+end
+require 'wx'
+
+class FontTestPanel < Wx::Panel
+  def initialize(parent, log)
+    super(parent, -1)
+    @log = log
+    btn = Wx::Button.new(self, -1, "Select Font")
+    evt_button(btn.get_id) { |event| on_select_font(event) }
+
+    @sampleText = Wx::TextCtrl.new(self, -1, "Sample Text")
+    @curFont = @sampleText.get_font
+    @curClr = Wx::BLACK
+
+    fgs = Wx::FlexGridSizer.new(2, 2, 5, 5)
+    fgs.add_growable_col(1)
+    fgs.add_growable_row(0)
+
+    fgs.add(btn, 0, Wx::ALIGN_CENTRE_VERTICAL)
+    fgs.add(@sampleText, 10, Wx::GROW)
+
+    fgs.add(15, 15)
+    fgs.add(15, 15) # an empty row
+
+    fgs.add(Wx::StaticText.new(self, -1, "PointSize: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @ps = Wx::StaticText.new(self, -1, "")
+    font = @ps.get_font
+    font.set_weight(Wx::FONTWEIGHT_BOLD)
+    @ps.set_font(font)
+    fgs.add(@ps, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    fgs.add(Wx::StaticText.new(self, -1, "Family: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @family = Wx::StaticText.new(self, -1, "")
+    @family.set_font(font)
+    fgs.add(@family, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    fgs.add(Wx::StaticText.new(self, -1, "Style: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @style = Wx::StaticText.new(self, -1, "")
+    @style.set_font(font)
+    fgs.add(@style, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    fgs.add(Wx::StaticText.new(self, -1, "Weight: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @weight = Wx::StaticText.new(self, -1, "")
+    @weight.set_font(font)
+    fgs.add(@weight, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    fgs.add(Wx::StaticText.new(self, -1, "Face: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @face = Wx::StaticText.new(self, -1, "")
+    @face.set_font(font)
+    fgs.add(@face, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    fgs.add(15, 15)
+    fgs.add(15, 15) # an empty row
+
+    fgs.add(Wx::StaticText.new(self, -1, "Wx::NativeFontInfo: "), 0, Wx::ALIGN_CENTRE_VERTICAL)
+    @nfi = Wx::StaticText.new(self, -1, "")
+    @nfi.set_font(font)
+    fgs.add(@nfi, 0, Wx::ALIGN_CENTRE_VERTICAL)
+
+    # give it some border space
+
+    sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+    sizer.add(fgs, 0, Wx::GROW | Wx::ALL, 25)
+
+    set_sizer(sizer)
+    sizer.fit(self)
+    @sizer = fgs
+    update_ui
+  end
+
+  def update_ui
+    @sampleText.set_font(@curFont)
+    # layout is called so that if the user changes the size of the Font, the text control will be properly displayed
+    # to show the whole font - just comment out this line, to see the font size change without corresponding changes
+    # to the text control :-)
+    # As a postscript, it is interesting to note that if I call layout at the end of this method, it causes all of the
+    # labels to appear BLANK, showing nothing.  Through trial and error, I moved it here, and found that it resized the
+    # text control properly and set the text of the labels too - I don't know why that is though?
+    @sizer.layout
+    @ps.set_label(@curFont.get_point_size.to_s)
+    @family.set_label(map_font_value_to_name(@curFont.get_family))
+    @style.set_label(map_font_value_to_name(@curFont.get_style, :style))
+    @weight.set_label(map_font_value_to_name(@curFont.get_weight, :weight))
+    @face.set_label(@curFont.get_face_name)
+    @nfi.set_label(@curFont.get_native_font_info_desc.to_s)
+
+  end
+
+  def on_select_font(evt)
+    data = Wx::FontData.new
+    # data.enable_effects(true)
+    data.set_colour(@curClr) # set colour
+    data.set_initial_font(@curFont)
+
+    dlg = Wx::FontDialog.new(self, data)
+    if dlg.show_modal == Wx::ID_OK
+      data = dlg.get_font_data
+      font = data.get_chosen_font
+      colour = data.get_colour
+      @log.write_text("You selected: " + font.get_face_name + ", " + font.get_point_size.to_s + " points, color (" +
+                        get_rgb_string(colour))
+      @curFont = font
+      @curClr = colour
+      update_ui
+    end
+  end
+
+  def map_font_value_to_name(constant, option = :family)
+    case option
+    when :family
+      case constant
+      when Wx::FONTFAMILY_DEFAULT
+        return "Wx::FONTFAMILY_DEFAULT"
+      when Wx::FONTFAMILY_DECORATIVE
+        return "Wx::FONTFAMILY_DECORATIVE"
+      when Wx::FONTFAMILY_ROMAN
+        return "Wx::FONTFAMILY_ROMAN"
+      when Wx::FONTFAMILY_SCRIPT
+        return "Wx::FONTFAMILY_SCRIPT"
+      when Wx::FONTFAMILY_SWISS
+        return "Wx::FONTFAMILY_SWISS"
+      when Wx::FONTFAMILY_MODERN
+        return "Wx::FONTFAMILY_MODERN"
+      when Wx::FONTFAMILY_TELETYPE
+        return "Wx::FONTFAMILY_TELETYPE"
+      else
+        return "Unknown (#{constant})"
+      end
+    when :style
+      case constant
+      when Wx::FONTSTYLE_NORMAL
+        return "Wx::FONTSTYLE_NORMAL"
+      when Wx::FONTSTYLE_SLANT
+        return "Wx::FONTSTYLE_SLANT"
+      when Wx::FONTSTYLE_ITALIC
+        return "Wx::FONTSTYLE_ITALIC"
+      else
+        return "Unknown (#{constant})"
+      end
+    when :weight
+      case constant
+      when Wx::FONTWEIGHT_INVALID
+        return "Wx::FONTWEIGHT_INVALID"
+      when Wx::FONTWEIGHT_THIN
+        return "Wx::FONTWEIGHT_THIN"
+      when Wx::FONTWEIGHT_EXTRALIGHT
+        return "Wx::FONTWEIGHT_EXTRALIGHT"
+      when Wx::FONTWEIGHT_MEDIUM
+        return "Wx::FONTWEIGHT_MEDIUM"
+      when Wx::FONTWEIGHT_NORMAL
+        return "Wx::FONTWEIGHT_NORMAL"
+      when Wx::FONTWEIGHT_LIGHT
+        return "Wx::FONTWEIGHT_LIGHT"
+      when Wx::FONTWEIGHT_BOLD
+        return "Wx::FONTWEIGHT_BOLD"
+      when Wx::FONTWEIGHT_SEMIBOLD
+        return "Wx::FONTWEIGHT_SEMIBOLD"
+      when Wx::FONTWEIGHT_EXTRABOLD
+        return "Wx::FONTWEIGHT_EXTRABOLD"
+      when Wx::FONTWEIGHT_HEAVY
+        return "Wx::FONTWEIGHT_HEAVY"
+      when Wx::FONTWEIGHT_EXTRAHEAVY
+        return "Wx::FONTWEIGHT_BOLD"
+      else
+        return "Unknown (#{constant})"
+      end
+    end
+  end
+
+  def get_rgb_string(color)
+    red = color.red.to_s
+    green = color.green.to_s
+    blue = color.blue.to_s
+    return "(%s, %s, %s)" % [red, green, blue]
+  end
+end
+
+module Demo
+  def Demo.run(frame, nb, log)
+    win = FontTestPanel.new(nb, log)
+    return win
+
+  end
+
+  def Demo.overview
+    return "This class allows you to use the system font chooser dialog."
+  end
+end
+
+if __FILE__ == $0
+  run_solo_lib = File.join(File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxFrame.rbw

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+include Wx
+
+class MyFrame < Frame
+    def initialize
+        super(nil, -1, "Wx::Frame demonstration", 
+            DEFAULT_POSITION, Size.new(350,200), DEFAULT_FRAME_STYLE)
+        panel = Panel.new(self, -1)
+        
+        button = Button.new(panel, -1, "Close me", Point.new(15,15))
+        evt_button( button.get_id ) { on_close_me }
+        evt_close { | e | on_close_window(e) }
+    end
+    
+    def on_close_me
+        close(true)
+    end
+
+    def on_close_window(event)
+
+      event.skip
+    end
+end
+
+module Demo
+    def Demo.run(frame, nb, log)
+        win = MyFrame.new
+        frame.otherWin = win
+        win.center_on_parent(Wx::BOTH)
+        win.show(true)
+    end
+    
+    def Demo.overview
+        return "This is the wxFrame Overview!"
+    
+    end
+end
+
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxGauge.rbw

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+class TestPanel < Wx::Panel
+  def initialize(parent, log)
+    super(parent, -1)
+    @log = log
+    @count = 0
+    
+    Wx::StaticText.new( self, -1, "This example shows the wxGauge control.", 
+                        Wx::Point.new(45,15))
+    
+    @g1 = Wx::Gauge.new( self, -1, 50, 
+                         Wx::Point.new(110,50), Wx::Size.new(250,25))
+
+    @g2 = Wx::Gauge.new( self, -1, 50, 
+                         Wx::Point.new(110,95), Wx::Size.new(250,25), 
+                         Wx::GA_HORIZONTAL|Wx::GA_SMOOTH)
+
+    @g3 = Wx::Gauge.new( self, -1, 50, 
+                         Wx::Point.new(110, 140), Wx::Size.new(25,250), 
+                         Wx::GA_VERTICAL)
+
+    # start a timer to move the gauges forward every 1/4 s
+    timer = Wx::Timer.new(self, 5001)
+    evt_timer(5001) { move_gauges }
+    timer.start(250)
+  end
+  
+  # advance the gauges
+  def move_gauges
+    @count +=1 
+    if @count > 50 
+      @count = 0
+    end
+    @g1.set_value(@count)
+    @g2.set_value(@count)
+    @g3.set_value(@count)
+  end
+end
+
+module Demo
+  def Demo.run(frame, nb, log)
+    win = TestPanel.new(nb, log)
+    return win
+  end
+  
+  def Demo.overview
+    return "A gauge is a horizontal or vertical bar which shows a quantity (often time). "
+  end
+end
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxGenericDirCtrl.rbw

@@ -0,0 +1,74 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+class TestPanel < Wx::Panel
+    def initialize(parent, log)
+        super(parent, -1, Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, Wx::NO_FULL_REPAINT_ON_RESIZE)
+        @log = log
+        
+        txt1 = Wx::StaticText.new(self, -1, "style=0")
+        dir1 = Wx::GenericDirCtrl.new(self, -1, '/', Wx::DEFAULT_POSITION, Wx::Size.new(200,225), 0)
+
+        txt2 = Wx::StaticText.new(self, -1, "Wx::DIRCTRL_DIR_ONLY")
+        dir2 = Wx::GenericDirCtrl.new(self, -1, '/', Wx::DEFAULT_POSITION, Wx::Size.new(200,225), Wx::DIRCTRL_DIR_ONLY)
+
+        txt3 = Wx::StaticText.new(self, -1, "Wx::DIRCTRL_SHOW_FILTERS")
+        dir3 = Wx::GenericDirCtrl.new(self, -1, '/', Wx::DEFAULT_POSITION, Wx::Size.new(200,225), Wx::DIRCTRL_SHOW_FILTERS,
+                                "All files (*.*)|*.*|Ruby files (*.rb)|*.rb")
+
+        sz = Wx::FlexGridSizer.new(3, 5, 5)
+        sz.add(35, 35)  # some space above
+        sz.add(35, 35)
+        sz.add(35, 35)
+
+        sz.add(txt1)
+        sz.add(txt2)
+        sz.add(txt3)
+
+        sz.add(dir1, 0, Wx::EXPAND)
+        sz.add(dir2, 0, Wx::EXPAND)
+        sz.add(dir3, 0, Wx::EXPAND)
+
+        sz.add(35,35)  # some space below
+
+        sz.add_growable_row(2)
+        sz.add_growable_col(0)
+        sz.add_growable_col(1)
+        sz.add_growable_col(2)
+
+        set_sizer(sz)
+        set_auto_layout(true)
+    end
+end
+
+module Demo
+
+    def Demo.run(frame, nb, log)
+        win = TestPanel.new(nb, log)
+        return win
+    end
+    
+    def Demo.overview
+        return <<EOS
+This control can be used to place a directory listing (with optional files)
+on an arbitrary window. The control contains a TreeCtrl window representing 
+the directory hierarchy, and optionally, a Choice window containing a list 
+of filters.
+EOS
+    end
+
+end
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxGrid.rbw

@@ -0,0 +1,66 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+$buttonDefs = {
+    814 => ['GridSimple',      ' Simple wxGrid'] # , catching all events '] ,
+    # 815 => ['GridStdEdRend',   ' wxGrid showing Editors and Renderers '],
+    # 818 => ['GridHugeTable',   ' A wxGrid with a HUGE table [100 MILLION cells!] '],
+    # 817 => ['GridCustTable',   ' wxGrid using a custom Table, with non-string data '],
+    # 819 => ['GridEnterHandler',' Remapping keys to behave differently '],
+    # 820 => ['GridCustEditor',  ' Shows how to create a custom Cell Editor '],
+    # 821 => ['GridDragable',    ' A wxGrid with dragable rows and columns '],
+    # 822 => ['GridDragAndDrop', 'Shows how to make a grid a drop target for files'],
+    }
+
+class ButtonPanel < Wx::Panel
+    def initialize(parent, log)
+        super(parent, -1)
+        @log = log
+        
+        box = Wx::BoxSizer.new(Wx::VERTICAL)
+        box.add(20,30)
+        keys = $buttonDefs.keys.sort
+        keys.each do |key| 
+            text = $buttonDefs[key][1]
+            btn = Wx::Button.new(self, key, text)
+            box.add(btn, 0, Wx::ALIGN_CENTER | Wx::ALL, 10)
+            evt_button(key) {|event| on_button(event)}
+        end
+        set_sizer(box)
+    end
+    
+    def on_button(event)
+        modName = $buttonDefs[event.get_id][0]
+        mod_file = File.join(File.dirname(__FILE__), modName + ".rbw")
+        load mod_file
+        
+        frame = GridDemo::TestFrame.new(nil, @log)
+        frame.show
+    end
+end
+
+module Demo
+    def Demo.run(frame,nb,log)
+        win = ButtonPanel.new(nb, log)
+        return win
+    end
+    
+    def Demo.overview
+        "A simple grid."
+    end
+end
+
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxHtmlHelpController.rbw

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+
+class TestPanel < Wx::Panel
+  def initialize(parent, log)
+    super(parent, -1, Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, 
+          Wx::NO_FULL_REPAINT_ON_RESIZE)
+    @log = log
+
+    b = Wx::Button.new(self, -1, 'Give me some help!', 
+                   Wx::Point.new(50,50))
+
+    evt_button(b.get_id) { on_button }
+  end
+
+  def on_button
+    help = Wx::HtmlHelpController.instance
+    help_file = File.join( File.dirname(__FILE__), 'helpfile.htb')
+    exit if not File.exists?(help_file)
+    help.add_book( File.expand_path(help_file), false )
+    help.display_contents
+  end
+end
+        
+module Demo
+  def Demo.run(frame, nb, log)
+    TestPanel.new(nb, log)
+  end
+    
+  def Demo.overview
+    "Wx::HtmlHelpController is a sophisticated viewer for online help\n" +
+    "documentation in HTML format. It uses a format based on the Microsoft\n" + 
+    "HTML Help format, but is available on all platforms. It includes a\n" +
+    "contents page, index and keyword search."
+  end
+end
+
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxListBox.rbw

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+class FindPrefixListBox < Wx::ListBox
+    def initialize(parent, id, pos=Wx::DEFAULT_POSITION, size=Wx::DEFAULT_SIZE, choices=[], style=0)
+        super(parent, id, pos, size, choices, style)
+        @typedText = ""
+        @log = parent.log
+        evt_key_down {|event| on_key(event)}
+    end
+    
+    def find_prefix(prefix)
+        @log.write_text("Looking for prefix: " + prefix.to_s)
+        if prefix
+            prefix.downcase!
+            length = prefix.length
+            0.upto(get_count) do |x|
+                text = get_string(x).to_s.downcase
+                if text[0,length] == prefix
+                    @log.write_text("Prefix " + prefix + " is found.")
+                    return x
+                end
+            end
+        end
+        @log.write_text("Prefix " + prefix + " is not found.")
+        return -1
+    end
+    
+    def on_key(event)
+        key = event.get_key_code
+        if key >= 32 and key <= 127
+            @typedText += key.chr
+            item = find_prefix(@typedText)
+            if item != -1
+                set_selection(item)
+            end
+        elsif key == Wx::K_BACK # backspace removes one character and backs up
+            @typedText = @typedText[0..-2]
+            if not @typedText
+                set_selection(0)
+            else
+                item = find_prefix(@typedText)
+                if item != -1
+                    set_selection(item)
+                end
+            end
+            
+        else
+            @typedText = ""
+            event.skip
+        end
+    end
+    
+    def on_key_down(event)
+        
+    end
+end
+
+class TestListBox < Wx::Panel
+    attr_reader :log
+    def initialize(parent, log)
+        @log = log
+        super(parent, -1)
+        
+        sampleList = %w(zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen)
+        
+        Wx::StaticText.new(self, -1, "This example uses the wxListBox control.", Wx::Point.new(45,10))
+        
+        Wx::StaticText.new(self, -1, "Select one:", Wx::Point.new(15,50), Wx::Size.new(65,18))
+        @lb1 = Wx::ListBox.new(self, 60, Wx::Point.new(80,50), Wx::Size.new(80,120), sampleList, Wx::LB_SINGLE)
+        evt_listbox(@lb1.get_id) {|event| on_evt_listbox(event)}
+        evt_listbox_dclick(@lb1.get_id) {|event| on_evt_listbox_dclick(event)}
+        @lb1.set_selection(3)
+        @lb1.append("with data", "This one has data")
+        @lb1.set_client_data(2, "This one has data")
+        
+        Wx::StaticText.new(self, -1, "Select many:", Wx::Point.new(200,50), Wx::Size.new(65,18))
+        @lb2 = Wx::ListBox.new(self, 70, Wx::Point.new(280,50), Wx::Size.new(80,120), sampleList, Wx::LB_EXTENDED)
+        evt_listbox(@lb2.get_id) {|event| on_evt_multi_listbox(event)}
+        @lb2.evt_right_up {|event| on_evt_right_button(event)}
+        @lb2.set_selection(0)
+        
+        sampleList += ["test a", "test aa", "test aab", "test ab", "test abc", "test abcc", "test abcd"]
+        sampleList.sort!
+        Wx::StaticText.new(self, -1, "Find typed prefix:", Wx::Point.new(15,250))
+        fp = FindPrefixListBox.new(self, -1, Wx::Point.new(110,250), Wx::Size.new(80,120), sampleList, Wx::LB_SINGLE)
+        fp.set_selection(0)
+    end
+    
+    def on_evt_listbox(event)
+        @log.write_text("evt_listbox: #{event.get_string}, #{event.is_selection}, #{event.get_selection}, #{event.get_client_data}")
+    end
+    
+    def on_evt_listbox_dclick(event)
+        @log.write_text("evt_listbox_dclick: " + @lb1.get_selection.to_s)
+        @lb1.delete(@lb1.get_selection)
+    end
+    
+    def on_evt_multi_listbox(event)
+        @log.write_text("evt_multi_listbox: (" + 
+                         @lb2.get_selections.join(',') + ")")
+    end
+    
+    def on_evt_right_button(event)
+        @log.write_text("evt_right_button: " + event.get_position.to_s)
+        if event.get_event_object.get_id == 70
+            selections = @lb2.get_selections
+            selections.reverse!
+            selections.each do |index|
+                @lb2.delete(index)
+            end
+        end
+    end
+end
+
+module Demo
+    def Demo.run(frame,nb,log)
+        win = TestListBox.new(nb, log)
+        return win
+    end
+    
+    def Demo.overview
+        "A listbox is used to select one or more of a list of strings. The strings are displayed in a scrolling box, with the selected string(s) marked in reverse video. A listbox can be single selection (if an item is selected, the previous selection is removed) or multiple selection (clicking an item toggles the item on or off independently of other selections)."
+    end
+end
+
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end