wxruby3-shapes 0.9.0.pre.beta.3

data/samples/sample1/sample.rb

@@ -0,0 +1,263 @@
+# Wx::SF - Sample1
+# Copyright (c) M.J.N. Corino, The Netherlands
+
+require 'wx/shapes'
+
+class SFSample1Frame < Wx::Frame
+
+  module ID
+    MenuQuit = 1000
+    MenuAbout = 1001
+    MenuLogMouseEvent = 1002
+    MenuLogHandleEvent = 1003
+    MenuLogKeyEvent = 1004
+    MenuLogChildDropEvent = 1005
+  end
+
+  def initialize(title)
+    super(nil, Wx::StandardID::ID_ANY, title, size: [800,600])
+
+    self.icon = Wx::Icon(:sample)
+
+    # initialize event types
+    @event_type_info = {
+      Wx::SF::EVT_SF_SHAPE_LEFT_DOWN => "Shape was clicked by LMB (wxEVT_SF_SHAPE_LEFT_DOWN )",
+      Wx::SF::EVT_SF_SHAPE_LEFT_DCLICK => "Shape was double-clicked by LMB (wxEVT_SF_SHAPE_LEFT_DOWN )",
+      Wx::SF::EVT_SF_SHAPE_RIGHT_DOWN => "Shape was clicked by RMB (wxEVT_SF_SHAPE_RIGHT_DOWN )",
+      Wx::SF::EVT_SF_SHAPE_RIGHT_DCLICK => "Shape was double-clicked by RMB (wxEVT_SF_SHAPE_RIGHT_DOWN )",
+      Wx::SF::EVT_SF_SHAPE_DRAG_BEGIN => "Shape has started to be dragged (wxEVT_SF_SHAPE_DRAG_BEGIN )",
+      Wx::SF::EVT_SF_SHAPE_DRAG => "Shape is dragging (wxEVT_SF_SHAPE_DRAG )",
+      Wx::SF::EVT_SF_SHAPE_DRAG_END => "Shape's dragging was finished (wxEVT_SF_SHAPE_DRAG_END )",
+      Wx::SF::EVT_SF_SHAPE_HANDLE_BEGIN => "Shape handle has started to be dragged (wxEVT_SF_SHAPE_HANDLE_BEGIN )",
+      Wx::SF::EVT_SF_SHAPE_HANDLE => "Shape handle is dragging (wxEVT_SF_SHAPE_HANDLE )",
+      Wx::SF::EVT_SF_SHAPE_HANDLE_END => "Shape handle's dragging was finished (wxEVT_SF_SHAPE_HANDLE_END )",
+      Wx::SF::EVT_SF_SHAPE_KEYDOWN => "Key was pressed (wxEVT_SF_SHAPE_KEYDOWN )",
+      Wx::SF::EVT_SF_SHAPE_MOUSE_ENTER => "Mouse has entered shape's area (wxEVT_SF_SHAPE_MOUSE_ENTER)",
+      Wx::SF::EVT_SF_SHAPE_MOUSE_OVER => "Mouse is moving over shape's area (wxEVT_SF_SHAPE_MOUSE_OVER)",
+      Wx::SF::EVT_SF_SHAPE_MOUSE_LEAVE => "Mouse has leaved shape's area (wxEVT_SF_SHAPE_MOUSE_LEAVE)",
+      Wx::SF::EVT_SF_SHAPE_CHILD_DROP => "Child shape has been assigned to shape (wxEVT_SF_SHAPE_CHILD_DROP)",
+      Wx::SF::EVT_SF_LINE_HANDLE_ADD => "Line handle has been created (wxEVT_SF_LINE_HANDLE_ADD)",
+      Wx::SF::EVT_SF_LINE_HANDLE_REMOVE => "Line handle has been removed (wxEVT_SF_LINE_HANDLE_REMOVE)"
+    }
+
+    evt_close :on_close
+
+    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")
+  
+      @log_menu = Wx::Menu.new
+      @log_menu.append_check_item(ID::MenuLogMouseEvent, "Log &mouse events")
+      @log_menu.append_check_item(ID::MenuLogHandleEvent, "Log &handle events")
+      @log_menu.append_check_item(ID::MenuLogKeyEvent, "Log &keyboard events")
+      @log_menu.append_check_item(ID::MenuLogChildDropEvent, "Log &child drop event")
+      mbar.append(@log_menu, "&Log")
+  
+      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
+
+    main_sizer = Wx::FlexGridSizer.new(2, 0, 0, 0)
+    main_sizer.add_growable_col(0)
+    main_sizer.add_growable_row(0)
+    main_sizer.set_flexible_direction(Wx::Orientation::BOTH)
+    main_sizer.set_non_flexible_grow_mode(Wx::FlexSizerGrowMode::FLEX_GROWMODE_SPECIFIED)
+
+    @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::RectShape)
+    @diagram.accept_shape(Wx::SF::CurveShape)
+    
+    # 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_SHOW)
+    @canvas.add_style(Wx::SF::ShapeCanvas::STYLE::GRID_USE)
+
+    # 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) }
+
+    # connect (some) shape events (for full list of available shape/shape canvas events see Wx::SF reference documentation).
+    @canvas.evt_sf_shape_left_down { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_left_dclick { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_right_down { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_right_dclick { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_drag_begin { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_drag { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_drag_end { |evt| self.on_shape_mouse_event(evt) }
+  
+    @canvas.evt_sf_shape_mouse_enter { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_mouse_over { |evt| self.on_shape_mouse_event(evt) }
+    @canvas.evt_sf_shape_mouse_leave { |evt| self.on_shape_mouse_event(evt) }
+  
+    @canvas.evt_sf_shape_handle_begin { |evt| self.on_shape_handle_event(evt) }
+    @canvas.evt_sf_shape_handle { |evt| self.on_shape_handle_event(evt) }
+    @canvas.evt_sf_shape_handle_end { |evt| self.on_shape_handle_event(evt) }
+    @canvas.evt_sf_line_handle_add { |evt| self.on_shape_handle_event(evt) }
+    @canvas.evt_sf_line_handle_remove { |evt| self.on_shape_handle_event(evt) }
+  
+    @canvas.evt_sf_shape_keydown { |evt| self.on_shape_key_event(evt) }
+  
+    @canvas.evt_sf_shape_child_drop { |evt| self.on_shape_child_drop_event(evt) }
+  
+    @canvas.evt_sf_line_done { |evt| self.on_line_finished(evt) }
+
+    main_sizer.add(@canvas, 1, Wx::EXPAND, 0)
+
+    @text_log = Wx::TextCtrl.new(self, size: [-1, 150], style: Wx::TE_MULTILINE)
+    @text_log.set_font(Wx::Font.new(8, Wx::FONTFAMILY_SWISS, Wx::FONTSTYLE_NORMAL, Wx::FONTWEIGHT_NORMAL, false, 'Sans'))
+    @text_log.set_min_size(Wx::Size.new(-1, 150))
+
+    main_sizer.add(@text_log, 0, Wx::EXPAND, 0)
+
+    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
+
+    set_sizer(main_sizer)
+    layout
+    center
+  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 Sample1 (c) Martin Corino, 2023\n"
+    msg += "(ported from wxSFShapeFramework original (c) Michal Bliznak, 2007 - 2013)\n\n"
+    msg += "Sample demonstrates basic Wx::SF functionality.\n"
+    msg += "Usage:\n"
+    msg += " - Left mouse click operates with inserted shapes\n"
+    msg += " - Right mouse click inserts a rectangular shape to the canvas\n"
+    msg += " - Right mouse click onto the shape + CTRL key starts interactive line connection \n"
+    msg += " - DEL key removes selected shape\n"
+
+    Wx.message_box(msg, "wxRuby ShapeFramework Sample 1")
+  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)
+    if event.control_down
+      # create connection line
+      @canvas.start_interactive_connection(Wx::SF::CurveShape, event.get_position)
+    else
+      # add new rectangular shape to the diagram ...
+      _err, shape = @diagram.create_shape(Wx::SF::RectShape, event.get_position)
+      # set some shape's properties...
+      if shape
+        # set accepted child shapes for the new shape
+        shape.accept_child(Wx::SF::RectShape)
+        # set accepted connections for the new shape
+        shape.accept_connection(Wx::SF::ACCEPT_ALL)
+        shape.accept_src_neighbour(Wx::SF::RectShape)
+        shape.accept_trg_neighbour(Wx::SF::RectShape)
+        # enable emitting of shape events
+        shape.add_style(Wx::SF::Shape::STYLE::EMIT_EVENTS)
+      end
+    end
+    # ... and process standard canvas operations
+    event.skip
+  end
+
+  # event handlers for shapes
+
+  def on_shape_mouse_event(event)
+    if @log_menu.is_checked(ID::MenuLogMouseEvent)
+      @text_log.append_text("#{@event_type_info[event.get_event_type]}, ID: #{event.get_id}, Mouse position: #{event.get_mouse_position.x},#{event.get_mouse_position.y}\n")
+    end
+  end
+
+  def on_shape_handle_event(event)
+    if @log_menu.is_checked(ID::MenuLogHandleEvent)
+      hnd_type =case event.handle.type
+                when Wx::SF::Shape::Handle::LEFTTOP
+                  "left-top"
+                when Wx::SF::Shape::Handle::TOP
+                  "top"
+                when Wx::SF::Shape::Handle::RIGHTTOP
+                  "right-top"
+                when Wx::SF::Shape::Handle::LEFT
+                  "left"
+                when Wx::SF::Shape::Handle::RIGHT
+                  "right"
+                when Wx::SF::Shape::Handle::LEFTBOTTOM
+                  "left-bottom"
+                when Wx::SF::Shape::Handle::BOTTOM
+                  "bottom"
+                when Wx::SF::Shape::Handle::RIGHTBOTTOM
+                  "right-bottom"
+                when Wx::SF::Shape::Handle::LINECTRL
+                  "line-control"
+                else
+                  ''
+                end
+  
+      @text_log.append_text("%s, Shape ID: %d, Handle type: %d (%s), Delta: %d,%d\n" % [
+                                    @event_type_info[event.get_event_type],
+                                    event.get_id,
+                                    event.get_handle.get_type,
+                                    hnd_type,
+                                    event.get_handle.get_delta.x,
+                                    event.get_handle.get_delta.y])
+    end
+  end
+
+  def on_shape_key_event(event)
+    if @log_menu.is_checked(ID::MenuLogKeyEvent)
+      @text_log.append_text("%s, Shape ID: %d, Key code: %d\n" % [
+                                    @event_type_info[event.get_event_type],
+                                    event.get_id,
+                                    event.get_key_code])
+    end
+  end
+
+  def on_shape_child_drop_event(event)
+    if @log_menu.is_checked(ID::MenuLogChildDropEvent)
+      @text_log.append_text("%s, Shape ID: %d, Child ID: %d\n" % [
+                                    @event_type_info[event.get_event_type],
+                                    event.get_id,
+                                    event.get_child_shape.get_id])
+    end
+  end
+
+  def on_line_finished(event)
+    event.get_shape.add_style(Wx::SF::Shape::STYLE::EMIT_EVENTS) if event.get_shape
+  end
+
+end
+
+Wx::App.run do
+  SFSample1Frame.new('wxShapeFramework Sample 1').show
+end

data/samples/sample2/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/sample2/sample.rb

@@ -0,0 +1,133 @@
+# Wx::SF - Sample2
+# Copyright (c) M.J.N. Corino, The Netherlands
+
+require 'wx/shapes'
+require_relative 'sample_shape'
+require_relative 'sample_canvas'
+
+class SFSample2Frame < Wx::Frame
+
+  class LOGTYPE < Wx::Enum
+    MouseEvent = self.new(1002)
+    HandleEvent = self.new(1003)
+    KeyEvent = self.new(1004)
+    ChildDropEvent = self.new(1005)
+  end
+
+  class << self
+    def log(logtype, msg)
+      main_frame = Wx.get_app.get_top_window
+
+      if main_frame.log_menu.is_checked(logtype.to_i)
+        main_frame.text_log.append_text(msg)
+      end
+    end
+  end
+
+  module ID
+    MenuQuit = 1000
+    MenuAbout = 1001
+    MenuLogMouseEvent = 1002
+    MenuLogHandleEvent = 1003
+    MenuLogKeyEvent = 1004
+    MenuLogChildDropEvent = 1005
+  end
+
+  def initialize(title)
+    super(nil, Wx::StandardID::ID_ANY, title, size: [800,600])
+
+    self.icon = Wx::Icon(:sample)
+
+    evt_close :on_close
+
+    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")
+  
+      @log_menu = Wx::Menu.new
+      @log_menu.append_check_item(ID::MenuLogMouseEvent, "Log &mouse events")
+      @log_menu.append_check_item(ID::MenuLogHandleEvent, "Log &handle events")
+      @log_menu.append_check_item(ID::MenuLogKeyEvent, "Log &keyboard events")
+      @log_menu.append_check_item(ID::MenuLogChildDropEvent, "Log &child drop event")
+      mbar.append(@log_menu, "&Log")
+  
+      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
+
+    main_sizer = Wx::FlexGridSizer.new(2, 0, 0, 0)
+    main_sizer.add_growable_col(0)
+    main_sizer.add_growable_row(0)
+    main_sizer.set_flexible_direction(Wx::Orientation::BOTH)
+    main_sizer.set_non_flexible_grow_mode(Wx::FlexSizerGrowMode::FLEX_GROWMODE_SPECIFIED)
+
+    @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(SampleShape)
+
+    # create shape canvas and associate it with shape manager
+    @canvas = SampleCanvas.new(@diagram, self)
+
+    main_sizer.add(@canvas, 1, Wx::EXPAND, 0)
+
+    @text_log = Wx::TextCtrl.new(self, size: [-1, 150], style: Wx::TE_MULTILINE)
+    @text_log.set_font(Wx::Font.new(8, Wx::FONTFAMILY_SWISS, Wx::FONTSTYLE_NORMAL, Wx::FONTWEIGHT_NORMAL, false, 'Sans'))
+    @text_log.set_min_size(Wx::Size.new(-1, 150))
+
+    main_sizer.add(@text_log, 0, Wx::EXPAND, 0)
+
+    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
+
+    set_sizer(main_sizer)
+    layout
+    center
+  end
+
+  attr_reader :log_menu, :text_log
+
+  # 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 Sample1 (c) Martin Corino, 2023\n"
+    msg += "(ported from wxSFShapeFramework original (c) Michal Bliznak, 2007 - 2013)\n\n"
+    msg += "Sample demonstrates basic Wx::SF functionality.\n"
+    msg += "wxRuby SF event handlers are overridden in user-defined canvas and shape class.\n\n"
+    msg += "Usage:\n"
+    msg += " - Left mouse click operates with inserted shapes\n"
+    msg += " - Right mouse click inserts a rectangular shape to the canvas\n"
+    msg += " - DEL key removes selected shape\n"
+
+    Wx.message_box(msg, "wxRuby ShapeFramework Sample 2")
+  end
+
+end
+
+Wx::App.run do
+  SFSample2Frame.new('wxShapeFramework Sample 1').show
+end

data/samples/sample2/sample_canvas.rb

@@ -0,0 +1,35 @@
+# Wx::SF - Sample2 SampleCanvas class
+# Copyright (c) M.J.N. Corino, The Netherlands
+
+require 'wx/shapes'
+
+class SampleCanvas < Wx::SF::ShapeCanvas
+  def initialize(diagram, parent)
+    super
+	  add_style(STYLE::GRID_SHOW)
+    add_style(STYLE::GRID_USE)
+  end
+
+  # override required wxSF virtual functions
+  def on_left_down(event)
+    # HINT: perform your user actions here...
+
+    # perform standard operations
+    super
+  end
+
+  def on_right_down(event)
+    # HINT: perform your user actions here...
+
+    # add new custom shape to the diagram ...
+    _, shape = get_diagram.create_shape(SampleShape, event.get_position)
+    # set some shape's properties...
+    if shape
+        # set accepted child shapes for the new shape
+        shape.accept_child(SampleShape)
+    end
+
+    # perform standard operations
+    super
+  end
+end