wxruby3-shapes 0.9.0.pre.beta.3

data/samples/sample4/art/sample.xpm

@@ -0,0 +1,251 @@
+/* XPM */
+static char * sample_xpm[] = {
+"32 32 216 2",
+"  	c None",
+". 	c #872C2C",
+"+ 	c #A52827",
+"@ 	c #A42828",
+"# 	c #553131",
+"$ 	c #7D2D2D",
+"% 	c #3D3232",
+"& 	c #535331",
+"* 	c #AEAE26",
+"= 	c #85852C",
+"- 	c #ACAC26",
+"; 	c #88882C",
+"> 	c #9B2929",
+", 	c #A92626",
+"' 	c #F10D0C",
+") 	c #B32424",
+"! 	c #D91919",
+"~ 	c #A52727",
+"{ 	c #E51414",
+"] 	c #DC1817",
+"^ 	c #9F2828",
+"/ 	c #A5A527",
+"( 	c #F2F20B",
+"_ 	c #FFFF00",
+": 	c #F1F10C",
+"< 	c #AEAE25",
+"[ 	c #E7E712",
+"} 	c #BEBE22",
+"| 	c #999929",
+"1 	c #DE1716",
+"2 	c #A82626",
+"3 	c #EF0E0D",
+"4 	c #CA1E1E",
+"5 	c #C42020",
+"6 	c #EC1010",
+"7 	c #9E2828",
+"8 	c #B12525",
+"9 	c #E91211",
+"0 	c #922A2A",
+"a 	c #A8A827",
+"b 	c #EFEF0D",
+"c 	c #C5C520",
+"d 	c #FBFB03",
+"e 	c #A6A627",
+"f 	c #FAFA04",
+"g 	c #CACA1E",
+"h 	c #DDDD18",
+"i 	c #F8F806",
+"j 	c #B8B823",
+"k 	c #E3E315",
+"l 	c #9E2929",
+"m 	c #D01D1D",
+"n 	c #B72423",
+"o 	c #AD2625",
+"p 	c #DD1817",
+"q 	c #B22525",
+"r 	c #D71A1A",
+"s 	c #EBEB10",
+"t 	c #B0B025",
+"u 	c #C0C021",
+"v 	c #E6E613",
+"w 	c #97972A",
+"x 	c #A22828",
+"y 	c #BB2323",
+"z 	c #B82424",
+"A 	c #4A3232",
+"B 	c #842D2D",
+"C 	c #912B2B",
+"D 	c #5B3131",
+"E 	c #70702F",
+"F 	c #C6C620",
+"G 	c #8E8E2B",
+"H 	c #9A9A29",
+"I 	c #484832",
+"J 	c #A4A428",
+"K 	c #9D2828",
+"L 	c #E61211",
+"M 	c #E51212",
+"N 	c #DF1615",
+"O 	c #D21B1A",
+"P 	c #423232",
+"Q 	c #515131",
+"R 	c #E4E412",
+"S 	c #F3F307",
+"T 	c #E2E213",
+"U 	c #BEBE20",
+"V 	c #ECEC0C",
+"W 	c #B1B124",
+"X 	c #999928",
+"Y 	c #CF1D1D",
+"Z 	c #CD1E1D",
+"` 	c #D21C1C",
+" .	c #A42727",
+"..	c #ED0F0F",
+"+.	c #7E2D2D",
+"@.	c #92922B",
+"#.	c #FDFD01",
+"$.	c #D1D11C",
+"%.	c #E5E513",
+"&.	c #643030",
+"*.	c #E61313",
+"=.	c #EE0F0E",
+"-.	c #A92726",
+";.	c #C1C121",
+">.	c #ADAD25",
+",.	c #EEEE0E",
+"'.	c #5C5C31",
+").	c #F00D0C",
+"!.	c #AA2726",
+"~.	c #AF2525",
+"{.	c #EA1110",
+"].	c #32365A",
+"^.	c #333440",
+"/.	c #E2E215",
+"(.	c #F0F00D",
+"_.	c #C4C420",
+":.	c #F5F508",
+"<.	c #BCBC22",
+"[.	c #FCFC02",
+"}.	c #8C8C2B",
+"|.	c #B92323",
+"1.	c #E51413",
+"2.	c #633030",
+"3.	c #313A74",
+"4.	c #2D43AE",
+"5.	c #2E40A2",
+"6.	c #313975",
+"7.	c #77772E",
+"8.	c #F7F706",
+"9.	c #CBCB1E",
+"0.	c #BABA23",
+"a.	c #D81919",
+"b.	c #A62727",
+"c.	c #D41B1B",
+"d.	c #C91F1E",
+"e.	c #8F2B2B",
+"f.	c #323553",
+"g.	c #2C45BA",
+"h.	c #284CE0",
+"i.	c #2A4AD5",
+"j.	c #2C46C0",
+"k.	c #A3A328",
+"l.	c #DEDE17",
+"m.	c #772E2E",
+"n.	c #EC100F",
+"o.	c #AB2626",
+"p.	c #B12524",
+"q.	c #2B47C8",
+"r.	c #2D43AF",
+"s.	c #2453FF",
+"t.	c #2552FA",
+"u.	c #2D44B6",
+"v.	c #2C45BE",
+"w.	c #BEBE21",
+"x.	c #BFBF22",
+"y.	c #B2B224",
+"z.	c #6B2F2F",
+"A.	c #C6201F",
+"B.	c #2F409F",
+"C.	c #2551F8",
+"D.	c #2C44B9",
+"E.	c #2452FC",
+"F.	c #2F3E92",
+"G.	c #585831",
+"H.	c #8E8E2A",
+"I.	c #79792D",
+"J.	c #5C3030",
+"K.	c #333333",
+"L.	c #313971",
+"M.	c #2551F5",
+"N.	c #2A49D0",
+"O.	c #284EE6",
+"P.	c #294BD9",
+"Q.	c #294CDD",
+"R.	c #2650F1",
+"S.	c #323761",
+"T.	c #606030",
+"U.	c #294CDE",
+"V.	c #2D42AD",
+"W.	c #2D43B3",
+"X.	c #2A4AD6",
+"Y.	c #2C45BD",
+"Z.	c #303B7C",
+"`.	c #2650F0",
+" +	c #2650F3",
+".+	c #2B46C3",
+"++	c #284CDE",
+"@+	c #2A49D1",
+"#+	c #264FED",
+"$+	c #31396F",
+"%+	c #303D90",
+"&+	c #2B47C6",
+"*+	c #31386B",
+"=+	c #2E41A7",
+"-+	c #313A77",
+";+	c #303C86",
+">+	c #2551F7",
+",+	c #2D43B1",
+"'+	c #2E41A6",
+")+	c #2552FB",
+"!+	c #2552F9",
+"~+	c #2552F8",
+"{+	c #323765",
+"]+	c #2B48CB",
+"^+	c #2A49CF",
+"/+	c #274EE7",
+"(+	c #264FEE",
+"_+	c #2D42AE",
+":+	c #2650F2",
+"<+	c #294BDA",
+"[+	c #2C46C1",
+"}+	c #313A78",
+"|+	c #2D42AA",
+"1+	c #294BDC",
+"2+	c #2B48CA",
+"3+	c #2453FD",
+"                                                                ",
+"                                                                ",
+"                                                                ",
+"                                                                ",
+"                                                                ",
+"      . + + @ # $ + + + %             & * * * = & - * * ;       ",
+"    > , ' ' ) ! ~ { ' ] ^             / ( _ : < [ } _ _ < |     ",
+"    1 2 3 4 5 ' 6 7 3 8 9 0         a b c d e f _ g h i j k     ",
+"  l ' m n o ' ' ' p q ~ ' r         s _ < t b _ _ _ < u v _ w   ",
+"  x y z A z y y y y B C y y D     E F F G H F F F F } I c F J   ",
+"  K L L ^ M L L L L , N L O P     Q R S T U S S S S V W S S X   ",
+"    Y ' Z ` ' ' ' '  .' ..+.        @.#._ < _ _ _ _ $.%._ $.    ",
+"    &.*.=., ' ' ' ! 5 ' -.            } _ ;.( _ _ _ >._ ,.'.    ",
+"      C ).!.=.' ' ~.{.Z       ].^.      /.(._._ _ :.<.[.}.      ",
+"        |.` Z ' ' ~ 1.2.    3.4.5.6.    7.8.>._ _ 9.s 0.        ",
+"          a.b.' c.d.e.    f.g.h.i.j.      k.F ,._ < l.          ",
+"          m. .n.o.p.      q.r.s.t.u.v.      w.x.( y.E           ",
+"            z.A.$       B.C.D.s.s.r.E.F.    G.H._.I.            ",
+"              J.K.    L.M.N.O.s.s.P.Q.R.S.    K.T.              ",
+"              K.      U.s.V.s.s.s.E.W.s.X.                      ",
+"                    g.s.M.Y.s.s.s.s.W.E.s.V.                    ",
+"                  Z.`. +.+++ + + + +@+N. +#+$+                  ",
+"                  %+&+&+*+W.&+&+&+&+=+-+&+&+;+                  ",
+"                  6.E.>+,+'+)+s.s.!+=+r.E.~+{+                  ",
+"                    ]+^+/+(+,+s.s._+:+Q.<+[+                    ",
+"                    }+|+s.s.1+q.2+Q.s.3+=+{+                    ",
+"                      6._+_+_+$+$+_+_+_+*+                      ",
+"                                                                ",
+"                                                                ",
+"                                                                ",
+"                                                                ",
+"                                                                "};

data/samples/sample4/sample.rb

@@ -0,0 +1,180 @@
+# Wx::SF - Sample4
+# Copyright (c) M.J.N. Corino, The Netherlands
+
+require 'wx/shapes'
+
+
+class TestPanel < Wx::Panel
+
+  ID_RESIZE = Wx::ID_HIGHEST+1
+
+  def initialize(parent)
+    super(parent, size: [150, 100])
+    @big = false
+    btn_resize = Wx::Button.new(self, ID_RESIZE, 'Resize me!!!', [10, 10])
+
+    evt_button ID_RESIZE, :on_btn_resize
+
+    set_background_colour(Wx::Colour.new(100, 100, 200))
+  end
+
+  protected
+
+  def on_btn_resize(event)
+    if !@big
+      set_client_size(get_client_size + Wx::Size.new(50, 50))
+    else
+      set_client_size(get_client_size - Wx::Size.new(50, 50))
+    end
+
+    @big = !@big
+  end
+end
+
+class SFSample4Frame < Wx::Frame
+
+  module ID
+    MenuQuit = 1000
+    MenuAbout = 1001
+  end
+
+  def initialize(title)
+    super(nil, Wx::StandardID::ID_ANY, title, size: [800,600])
+
+    self.icon = Wx::Icon(:sample)
+
+    if Wx.has_feature?(:USE_MENUS)
+      # create a menu bar
+      mbar = Wx::MenuBar.new
+      file_menu = Wx::Menu.new
+      file_menu.append(ID::MenuQuit, "&Quit\tAlt-F4", "Quit the application")
+      mbar.append(file_menu, "&File")
+
+      help_menu = Wx::Menu.new
+      help_menu.append(ID::MenuAbout, "&About\tF1", "Show info about this application")
+      mbar.append(help_menu, "&Help")
+  
+      self.menu_bar = mbar
+
+      evt_menu(ID::MenuQuit, :on_quit)
+      evt_menu(ID::MenuAbout, :on_about)
+    end # wxUSE_MENUS
+
+    @control_type = 0
+
+    @diagram = Wx::SF::Diagram.new
+    # set some diagram manager properties if necessary...
+    # set accepted shapes (accept only Wx::SF::RectShape)
+    @diagram.clear_accepted_shapes
+    @diagram.accept_shape(Wx::SF::ControlShape)
+
+    # create shape canvas and associate it with shape manager
+    @canvas = Wx::SF::ShapeCanvas.new(@diagram, self)
+    # set some shape canvas properties if necessary...
+    @canvas.add_style(Wx::SF::ShapeCanvas::STYLE::GRID_USE)
+
+    evt_close :on_close
+
+    # connect (some) shape canvas events
+    @canvas.evt_left_down { |evt| self.on_left_click_canvas(evt) }
+    @canvas.evt_right_down { |evt| self.on_right_click_canvas(evt) }
+
+    if Wx.has_feature?(:USE_STATUSBAR)
+      # create a status bar with some information about the used wxWidgets version
+      create_status_bar(2)
+      set_status_text('Hello wxRuby ShapeFramework user!',0)
+      set_status_text("wxRuby #{Wx::WXRUBY_VERSION} #{Wx::PLATFORM} (wxWidgets #{Wx::WXWIDGETS_VERSION})", 1)
+    end # wxUSE_STATUSBAR
+
+    center
+  end
+
+  def create_gui_control
+    @control_type = (@control_type + 1 ) % 5
+  
+    case @control_type
+    when 0
+      Wx::Button.new(@canvas, label: 'Hello World!', size: [100, 50])
+    when 1
+      Wx::TextCtrl.new(@canvas, value: 'Hello World!', size: [150, 100], style: Wx::TE_MULTILINE)
+    when 2
+      Wx::Slider.new(@canvas, value: 50, min_value: 0, max_value: 100, size: [150, -1])
+    when 3
+      ctrl = Wx::Gauge.new(@canvas, range: 50, size: [100, -1])
+      ctrl.set_value(25)
+      ctrl
+    when 4
+      TestPanel.new(@canvas)
+    else
+      nil
+    end
+  end
+      
+  # Window event handlers
+
+  def on_close(_event)
+    destroy
+  end
+
+  def on_quit(_event)
+    destroy
+  end
+
+  def on_about(_event)
+    msg = "wxRuby ShapeFramework #{Wx::SF::VERSION}\n(wxRuby #{Wx::WXRUBY_VERSION} #{Wx::PLATFORM}; #{Wx::WXWIDGETS_VERSION})\n\n"
+
+    msg += "Welcome to wxRuby ShapeFramework Sample3 (c) Martin Corino, 2023\n"
+    msg += "(ported from wxSFShapeFramework original (c) Michal Bliznak, 2007 - 2013)\n\n"
+    msg += "Sample demonstrates possibility to manage GUI controls (widgets) by the wxSFControlShape.\n"
+    msg += "Usage:\n"
+    msg += " - Left mouse click operates with inserted GUI controls\n"
+    msg += " - Right mouse click inserts a GUI control to the canvas\n"
+    msg += " - DEL key removes selected shape\n"
+
+    Wx.message_box(msg, "wxRuby ShapeFramework Sample 4")
+  end
+
+  # event handlers for shape canvas
+
+  def on_left_click_canvas(event)
+    # HINT: perform your user actions here...
+
+    # ... and then process standard canvas operations
+    event.skip
+  end
+
+  def on_right_click_canvas(event)
+    # add new rectangular shape to the diagram ...
+    _, shape = @diagram.create_shape(Wx::SF::ControlShape, event.get_position)
+    # set some shape's properties...
+    if shape
+      # set accepted child shapes for the new shape
+      shape.clear_accepted_childs
+
+      # Some visual aspects can be set here:
+      shape.set_control_offset(5)
+      #shape.set_mod_border(Wx::TRANSPARENT_PEN)
+      #shape.set_mod_fill(Wx::Brush(Wx::RED, Wx::CROSSDIAG_HATCH))
+
+      # Assign managed GUI control to the canvas. Remember the control shape now owns the GUI control and it is
+      # deleted by the shape control in its destructor. If you want to remove the GUI control from the parent shape
+      # just assign a new control or nil value to it. You can also specify whether managed GUI control
+      # is resized in accordance to dimensions of its parent control shape or vice versa.
+      shape.set_control(create_gui_control, Wx::SF::FIT_SHAPE_TO_CONTROL)
+
+      # You can specify whether events generated by the managed control are processed by the shape canvas
+      # or/and the widget as well. Note that GUI controls differ in a way how they process events
+      # so the behaviour can be different for various widgets.
+      shape.set_event_processing(Wx::SF::ControlShape::EVTPROCESSING::MOUSE2CANVAS | Wx::SF::ControlShape::EVTPROCESSING::KEY2CANVAS)
+      #shape.set_event_processing(Wx::SF::ControlShape::EVTPROCESSING::MOUSE2GUI | Wx::SF::ControlShape::EVTPROCESSING::KEY2GUI)
+    end
+
+    # ... and process standard canvas operations
+    event.skip
+  end
+
+end
+
+Wx::App.run do
+  SFSample4Frame.new('wxShapeFramework Sample 4').show
+end

data/tests/lib/wxapp_runner.rb

@@ -0,0 +1,64 @@
+
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+require 'wx/core'
+
+module Wx::SF
+
+  module Test
+
+    class App < Wx::App
+      def initialize(test_runner, start_mtd)
+        super()
+        @test_runner = test_runner
+        @start_mtd = start_mtd
+      end
+
+      def on_init
+        @result = @start_mtd.bind(@test_runner).call
+        false
+      end
+
+      attr_reader :result
+    end
+
+    if defined? ::IntelliJ
+      require 'test/unit/ui/teamcity/testrunner'
+      BaseRunner = ::Test::Unit::UI::TeamCity::TestRunner
+    else
+      BaseRunner = ::Test::Unit::UI::Console::TestRunner
+    end
+
+    class Runner < BaseRunner
+
+      org_start_mtd = instance_method :start
+      define_method :start do
+        (app = Wx::SF::Test::App.new(self, org_start_mtd)).run
+        app.result
+      end
+
+    end
+
+  end
+
+end
+
+module Test
+  module Unit
+    AutoRunner.register_runner(:wxapp) do |auto_runner|
+      Wx::SF::Test::Runner
+    end
+    AutoRunner.default_runner = :wxapp
+    if defined? ::IntelliJ
+      class AutoRunner
+        alias :wx_initialize :initialize
+        private :wx_initialize
+
+        def initialize(*args)
+          wx_initialize(*args)
+          @runner = AutoRunner.default_runner
+        end
+      end
+    end
+  end
+end