wet-winobj 0.1-mswin32

data/tests/TestLabel.rb

@@ -0,0 +1,79 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestLabel < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Label Tester")
+            $st_panel = StaticPanel.new($common_wxw.get_frame) 
+            #st_panel = StatusPanel.new($common_wxw.get_frame)        
+            $common_wxw.show() 
+            $hwnd = $common_wxw.hwnd
+            $is_init = true
+        end            
+        #$common_wxw.main_loop        
+    end
+    
+    def test_get_by_text()
+        lbl1 = AppWindow.new($hwnd).win_label("text" => "S&ample")
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl1'))
+        lbl1 = AppWindow.new($hwnd).win_label("text" => "Second")
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl2'))
+        lbl1 = AppWindow.new($hwnd).win_label("text" => "Third")
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl3'))
+    end
+    
+    def test_get_by_text_regex()
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /^S\&/)
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl1'))
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /nd$/)
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl2'))
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /T.*d/)
+        assert_equal(lbl1.hwnd, $st_panel.hwnd('lbl3'))
+    end
+    
+    def test_get_text()
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /^S\&/)
+        assert_equal(lbl1.text, "S&ample")
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /nd$/)
+        assert_equal(lbl1.text, "Second")
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /T.*d/)
+        assert_equal(lbl1.text, "Third")
+    end
+    
+    def test_get_display_text()
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /^S\&/)
+        assert_equal(lbl1.display_text, "S&ample")
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /nd$/)
+        assert_equal(lbl1.display_text, "Second")
+        lbl1 = AppWindow.new($hwnd).win_label("text" => /T.*d/)
+        assert_equal(lbl1.display_text, "Third")
+    end
+    
+    def test_get_labelled()
+        #As of now you have to find the label only by first finding the  parent as
+        #Wet object
+        lbl1 = AppWindow.new($hwnd).win_label("text" => "S&ample")
+        ctl1 = lbl1.labelled_control
+        assert_equal($st_panel.hwnd('txt1'), ctl1.hwnd) 
+        
+        # Last label
+        lbl2 = AppWindow.new($hwnd).win_label("text" => "Third")
+        ctl2  = lbl2.labelled_control
+        assert_equal($st_panel.hwnd('cmb1'), ctl2.hwnd) 
+    end
+    
+    def test_get_labelled_negative_static_next()
+        lbl1 = AppWindow.new($hwnd).win_label("text" => "Second")
+        ctl1 = lbl1.labelled_control
+        #assert_nil(ctl1)
+        assert(false, "Get labelled control is not very smart yet!")
+    end
+    
+    def test_get_labelled_negative_control_in_another_container()
+        assert(false, "Get labelled control is not very smart yet!")
+    end    
+    
+end    

data/tests/TestRadio.rb

@@ -0,0 +1,82 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestRadio < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Radio Tester")
+            $radio_panel1 = RadioPanel.new($common_wxw.get_frame)             
+            $common_wxw.show() 
+            $hwnd = $common_wxw.hwnd
+            $is_init = true
+        end
+    end
+    
+    def test_get_by_text()
+        wtr = Window.new($hwnd).win_radio("text" => "First value")
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b1'))
+        wtr = Window.new($hwnd).win_radio("text" => "Third value")
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b3'))
+        wtr = Window.new($hwnd).win_radio("text" => "Fourth values")
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b4'))
+    end
+    
+    def test_get_by_text_regex()
+        wtr = Window.new($hwnd).win_radio("text" => /^Fir/)
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b1'))
+        wtr = Window.new($hwnd).win_radio("text" => /Th.*va.*e/)
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b3'))
+        wtr = Window.new($hwnd).win_radio("text" => /s$/)
+        assert_equal(wtr.hwnd,  $radio_panel1.hwnd('b4'))
+    end
+    
+    def test_get_text()
+        wtr = Window.new($hwnd).win_radio("text" => /^Fir/)
+        assert_equal(wtr.text,  'First value')
+        wtr = Window.new($hwnd).win_radio("text" => /Th.*va.*e/)
+        assert_equal(wtr.text,  'Third value')
+        wtr = Window.new($hwnd).win_radio("text" => /s$/)
+        assert_equal(wtr.text,  'Fourth values')
+    end
+    
+    def test_set()
+        b1 = WinRadio.new($radio_panel1.hwnd('b2'))
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        sleep 1
+        b1.set()        
+        assert($radio_panel1.is_set('b2'))
+        assert(!$radio_panel1.is_set('b1'))
+    end
+    
+    def test_set_different_group()
+        b1 = WinRadio.new($radio_panel1.hwnd('b2'))
+        b2 = WinRadio.new($radio_panel1.hwnd('b4'))
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        sleep 1
+        b1.set()
+        b2.set()
+        assert($radio_panel1.is_set('b4'))
+        assert(!$radio_panel1.is_set('b3'))
+        #Verify that setting a radio in one group has no effect  on other groups
+        assert($radio_panel1.is_set('b2'))
+        assert(!$radio_panel1.is_set('b1'))
+    end
+    
+    def test_is_set()
+        b1 = WinRadio.new($radio_panel1.hwnd('b2'))
+        b2 = WinRadio.new($radio_panel1.hwnd('b1'))
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        sleep 1
+        b1.set()
+        assert(b1.is_set())
+        assert(!b2.is_set())
+        
+    end
+    
+    def teardown()
+        $common_wxw.exit_main_loop
+    end
+    
+end

data/tests/TestWebEdit.rb

@@ -0,0 +1,100 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestWebEdit < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Edit Tester")
+            $tx_panel = EditPanel.new($common_wxw.get_frame) 
+            $common_wxw.show() 
+            $hwnd = $common_wxw.hwnd
+            $is_init = true
+        end
+    end
+    
+    def test_get_by_label()
+        txt1 = Window.new($hwnd).win_edit("label" => "Tex&t1")
+        assert_equal(txt1.hwnd, $tx_panel.hwnd('txt1'))
+        
+        txt2 = Window.new($hwnd).win_edit("label" => "Se&cond Text")
+        assert_equal(txt2.hwnd, $tx_panel.hwnd('txt2'))
+        
+        txt3 = Window.new($hwnd).win_edit("label" => "Thir&d")
+        assert_equal(txt3.hwnd, $tx_panel.hwnd('txt3'))
+        
+        txt4 = Window.new($hwnd).win_edit("label" => "Fourth te&xt")
+        assert_equal(txt4.hwnd, $tx_panel.hwnd('txt4'))
+    end
+    
+    def test_get_by_label_regex()
+        txt1 = Window.new($hwnd).win_edit("label" => /^Te/)
+        assert_equal(txt1.hwnd, $tx_panel.hwnd('txt1'))
+        
+        txt2 = Window.new($hwnd).win_edit("label" => /ext$/)
+        assert_equal(txt2.hwnd, $tx_panel.hwnd('txt2'))
+        
+        txt3 = Window.new($hwnd).win_edit("label" => /.*&d.*/)
+        assert_equal(txt3.hwnd, $tx_panel.hwnd('txt3'))
+        
+        txt4 = Window.new($hwnd).win_edit("label" => /F.*xt/)
+        assert_equal(txt4.hwnd, $tx_panel.hwnd('txt4'))
+    end
+    
+    def test_is_password()
+        txt1 = Window.new($hwnd).win_edit("label" => "Tex&t1")
+        assert(!txt1.is_password)
+        
+        txt3 = Window.new($hwnd).win_edit("label" => "Thir&d")
+        assert(txt3.is_password)
+        
+        txt4 = Window.new($hwnd).win_edit("label" => "Fourth te&xt")
+        assert(!txt4.is_password)
+    end
+    
+    def test_is_readonly()
+        txt1 = Window.new($hwnd).win_edit("label" => "Tex&t1")
+        assert(!txt1.is_readonly)
+        
+        txt3 = Window.new($hwnd).win_edit("label" => "Thir&d")
+        assert(!txt3.is_readonly)
+        
+        txt4 = Window.new($hwnd).win_edit("label" => "Fourth te&xt")
+        assert(txt4.is_readonly)
+    end
+    
+    def test_set()
+        txt1 = Window.new($hwnd).win_edit("label" => "Tex&t1")
+        txt1.set("new text")
+        assert_equal($tx_panel.get_text('txt1'), "new text")
+        
+        txt2 = Window.new($hwnd).win_edit("label" => "Thir&d")
+        txt2.set("password text")
+        assert_equal($tx_panel.get_text('txt3'), "password text")
+        
+        assert_equal($tx_panel.get_text('txt4'), "readonly")    
+    end
+    
+    def test_get()
+        txt1 = Window.new($hwnd).win_edit("label" => "Tex&t1")
+        assert_equal(txt1.text, "abcdef")
+        
+        txt2 = Window.new($hwnd).win_edit("label" => "Se&cond Text")
+        assert_equal(txt2.text, "")
+        
+        txt3 = Window.new($hwnd).win_edit("label" => "Thir&d")
+        assert_equal(txt3.text, "1234")
+        
+        txt4 = Window.new($hwnd).win_edit("label" => "Fourth te&xt")
+        assert_equal(txt4.text, "readonly")
+    end
+    
+    
+    def teardown()
+        $tx_panel.set_text('txt1', "abcdef")
+        $tx_panel.set_text('txt2', "") 
+        $tx_panel.set_text('txt3', "1234")
+    end
+    
+end

data/tests/wet-winobj-tests.rb

@@ -0,0 +1,325 @@
+require 'test/unit'
+require 'wxruby'
+require 'wet-winobj'
+include  Wx 
+include Wet::Winobjects
+
+WET_WIN_WIDTH = 640
+WET_WIN_HEIGHT = 480
+
+WET_B1 = 21
+WET_B2 = 22
+WET_B3 = 23
+WET_B4 = 24
+
+WET_CB1 = 31
+WET_CB2 = 32
+WET_CB3 = 33
+
+WET_RB1 = 41
+WET_RB2 = 42
+WET_RB3 = 43
+WET_RB4 = 44
+
+WET_ST1 = 51
+WET_ST2 = 52
+WET_ST3 = 53
+WET_ST4 = 54
+
+WET_ST_T1 = 1051
+WET_ST_T2 = 1052
+WET_ST_T3 = 1053
+WET_ST_T4 = 1054
+WET_ST_CM1  = 1151
+WET_ST_CM2  = 1152
+WET_ST_CM3  = 1153
+WET_ST_CM4  = 1154
+
+WET_TX1 = 61
+WET_TX2 = 62
+WET_TX3 = 63
+WET_TX4 = 64
+WET_TX_LBL1 = 1061
+WET_TX_LBL2 = 1062
+WET_TX_LBL3 = 1063
+WET_TX_LBL4 = 1064
+
+WET_CMB1 = 71
+WET_CMB2 = 72
+WET_CMB3 = 73
+WET_CMB4 = 74
+WET_CMB_LBL1 = 1071
+WET_CMB_LBL2 = 1072
+WET_CMB_LBL3 = 1073
+WET_CMB_LBL4 = 1074
+
+WET_RBOX1 = 1041
+WET_RBOX2 = 1042
+
+
+class WetWxWindow < App
+
+    def show(title, style = DEFAULT_FRAME_STYLE)        
+        @frame = Frame.new(nil, -1,  title, DEFAULT_POSITION, Size.new(WET_WIN_WIDTH, WET_WIN_HEIGHT), style)
+        @frame.show
+    end
+    
+    def hwnd
+        return @frame.get_handle
+    end
+    
+end
+
+class ControlWindow < App
+
+    def create(title) 
+        @frame = Frame.new(nil, -1, title, DEFAULT_POSITION, Size.new(WET_WIN_WIDTH, WET_WIN_HEIGHT))        
+    end 
+    
+    def get_frame()
+        return @frame
+    end
+    
+    def show()
+        @frame.show
+    end
+    
+    def hwnd
+        return @frame.get_handle
+    end    
+    
+end
+
+class WetRadioButton < RadioButton
+   def initialize(par, id, label, pos)
+        super(par, id, label, pos) 
+        evt_radiobutton(id) {|event| on_cb(event)}
+        @par = par
+    end
+    
+    def on_cb(event)
+        puts "clicked...#{event.get_id}"    
+        event.methods.each do |m|
+            puts m
+        end
+        
+    end
+end
+
+class RadioPanel < Panel
+    def initialize(parent, y=20)
+        super(parent)
+        box1 = RadioBox.new(self, WET_RBOX1, "", Point.new(0, 5), Size.new(200, 50), [], RA_HORIZONTAL)
+        
+        @b1 = WetRadioButton.new(box1, WET_RB1, "First value", Point.new(10, y))
+        @b2 = WetRadioButton.new(box1, WET_RB2, "Second value", Point.new(100, y))
+        
+        box2 = RadioBox.new(self, WET_RBOX2, "", Point.new(240, 5), Size.new(200, 50), [], RA_HORIZONTAL)
+        @b3 = WetRadioButton.new(box2, WET_RB3, "Third value", Point.new(10, y))
+        @b4 = WetRadioButton.new(box2, WET_RB4, "Fourth values", Point.new(100, y))
+        
+        @s = StatusPanel.new(self)
+    end
+    
+    def set_status(text)
+        @s.set_value(text)
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end
+    
+    def get_status()
+        return @s.get_value()
+    end
+    
+    def set(btn)
+        eval("@#{btn}.set_value(true)")
+    end
+    
+    def is_set(btn)
+        return eval("@#{btn}.get_value()")
+    end    
+    
+end
+
+
+class WetCheckBox < CheckBox
+   def initialize(par, id, label, pos)
+        super(par, id, label, pos) 
+        evt_checkbox(id) {|event| on_cb(event)}
+        @par = par
+    end
+    
+    def on_cb(event)
+        puts "clicked...#{event.is_checked}"
+        @par.set_status(event.get_id.to_s) 
+    end
+end
+
+class CBPanel < Panel
+    def initialize(parent)
+        super(parent)
+        @b1 = WetCheckBox.new(self, WET_CB1, "Is Ok", Point.new(10, 20))
+        @b2 = WetCheckBox.new(self, WET_CB2, "Pass?", Point.new(100, 20))
+        @b3 = WetCheckBox.new(self, WET_CB3, "Are you s&ure?", Point.new(200, 20))
+        @s = StatusPanel.new(self)
+    end
+    
+    def set_status(text)
+        @s.set_value(text)
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end
+    
+    def get_status()
+        return @s.get_value()
+    end
+    
+    def set_value(btn, val)
+        eval("@#{btn}.set_value(#{val})")
+    end
+    
+    def is_checked(btn)
+        return eval("@#{btn}.is_checked()")
+    end    
+    
+end
+
+class WetButton < Button
+
+        def initialize(par, id, label, pos)
+            super(par, id, label, pos) 
+            evt_button(id) {|event| onClick(event)}
+            @par = par
+        end
+        
+        def onClick(event)
+            puts "clicked...#{event.get_id}"
+            @par.set_status(event.get_id.to_s) 
+        end
+
+end
+
+class ButtonPanel < Panel
+        
+    def initialize(parent)
+        super(parent)
+        @b1 = WetButton.new(self, WET_B1, "OK", Point.new(10, 20))
+        @b2 = WetButton.new(self, WET_B2, "Cancel", Point.new(100, 20))
+        @b3 = WetButton.new(self, WET_B3, "In the middle", Point.new(200, 20))
+        @b4 = WetButton.new(self, WET_B4, "c&onfused", Point.new(300, 20))        
+        @s = StatusPanel.new(self)
+    end    
+    
+    def set_status(text)
+        @s.set_value(text)
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end
+    
+    def get_status()
+        return @s.get_value()
+    end    
+end
+
+
+class StaticPanel < Panel
+    def initialize(parent)
+        y = 20
+        super(parent, 600, Point.new(0, y), Size.new(WET_WIN_WIDTH-20, 50), STATIC_BORDER )
+        @lbl1 = StaticText.new(self, WET_ST1,  "S&ample", Point.new(5, 10))
+        @txt1 = TextCtrl.new(self, WET_ST_T1, "", Point.new(60, 10), Size.new(500, 20) )
+        y = 40
+        @lbl2 = StaticText.new(self, WET_ST2,  "Second", Point.new(5, y))
+        @lbl3 = StaticText.new(self, WET_ST3, "Third", Point.new(100, y))
+        
+        @cmb1 = ComboBox.new(self, WET_ST_CM3,  "", Point.new(160, y), Size.new(200, 20))
+        
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end    
+end
+
+class EditPanel < Panel
+    def initialize(parent)
+        super(parent)
+        @lbl1 = StaticText.new(self, WET_TX_LBL1, "Tex&t1", Point.new(10, 20), Size.new(50, 20))
+        @txt1 = TextCtrl.new(self, WET_TX1, "abcdef", Point.new(70, 20), Size.new(100, 20) )
+        @lbl2 = StaticText.new(self, WET_TX_LBL2, "Se&cond Text", Point.new(200, 20))
+        @txt2 = TextCtrl.new(self, WET_TX2, "", Point.new(300, 20), Size.new(100, 20) )
+        @lbl3 = StaticText.new(self, WET_TX_LBL3, "Thir&d", Point.new(10, 50))
+        @txt3 = TextCtrl.new(self, WET_TX3, "1234", Point.new(70, 50), DEFAULT_SIZE, TE_PASSWORD)
+        @lbl4 = StaticText.new(self, WET_TX_LBL4, "Fourth te&xt", Point.new(10, 80))
+        @txt4 = TextCtrl.new(self, WET_TX4, "readonly", Point.new(70, 80), DEFAULT_SIZE , TE_READONLY)    
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end    
+    
+    def get_text(txt)
+        return eval("@#{txt}.get_value()")
+    end
+    
+    def set_text(txt, val)
+        return eval("@#{txt}.set_value(val)")
+    end
+
+end
+
+class ComboPanel < Panel
+    def initialize(parent)
+        super(parent)
+        @lbl1 = StaticText.new(self, WET_CMB_LBL1, "Tex&t1", Point.new(10, 20), Size.new(50, 20))
+        @cmb1 = ComboBox.new(self, WET_CMB1, "abcdef", Point.new(70, 20), Size.new(100, 20) )
+        @lbl2 = StaticText.new(self, WET_CMB_LBL2, "Se&cond Text", Point.new(200, 20))
+        @cmb2 = ComboBox.new(self, WET_CMB2, "", Point.new(300, 20), Size.new(100, 20) )
+        @lbl3 = StaticText.new(self, WET_CMB_LBL3, "Thir&d", Point.new(10, 50))
+        @cmb3 = ComboBox.new(self, WET_CMB3, "1234", Point.new(70, 50))
+        @lbl4 = StaticText.new(self, WET_CMB_LBL4, "Cho&ice box", Point.new(200, 50))
+        @cmb4 = Choice.new(self, WET_CMB4, Point.new(300, 50), Size.new(100, 20) , \
+                      ["one", "two", "three", "four"])
+    end
+    
+    def hwnd(btn)
+        return eval("@#{btn}.get_handle()")
+    end    
+    
+    def get_value(cmb)
+        return eval("@#{cmb}.get_value()")
+    end
+    
+    def set_value(cmb, val)
+        return eval("@#{cmb}.set_value(val)")
+    end
+end
+
+class StatusPanel < Panel
+
+    def initialize(parent)
+        y = 60    
+        super(parent, 600, Point.new(0, y), Size.new(WET_WIN_WIDTH-20, 50), STATIC_BORDER )
+        @s1 = StaticText.new(self, 601,  "S&tatus", Point.new(5, 10))
+        @t1 = TextCtrl.new(self, 602, "", Point.new(60, 10), Size.new(500, 20) )
+    end
+    
+    def set_value(text)
+        @t1.set_value(text) 
+    end
+    
+    def get_value()
+        @t1.get_value()
+    end
+
+end
+
+class CheckPanel < Panel
+
+end