visualruby 1.0.12

data/visualruby_examples/child_window/bin/glade/ChildWindowDemo.glade

@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<interface>
+  <requires lib="gtk+" version="2.16"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkWindow" id="window1">
+    <property name="visible">True</property>
+    <property name="can_focus">False</property>
+    <property name="window_position">center-always</property>
+    <signal name="destroy" handler="destroy_window" swapped="no"/>
+    <child>
+      <object class="GtkHBox" id="hbox1">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <child>
+          <object class="GtkVBox" id="vbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkLabel" id="label1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="xpad">10</property>
+                <property name="ypad">10</property>
+                <property name="label" translatable="yes">Open as many child windows as you want.
+You can switch between windows because they're not modal.
+Then click the close button, to close everything.</property>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="padding">10</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkHButtonBox" id="hbuttonbox1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="spacing">10</property>
+                <child>
+                  <object class="GtkButton" id="buttonOpenChild">
+                    <property name="label" translatable="yes">Open Non-Modal Window</property>
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="receives_default">True</property>
+                    <property name="use_action_appearance">False</property>
+                  </object>
+                  <packing>
+                    <property name="expand">False</property>
+                    <property name="fill">False</property>
+                    <property name="position">0</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkButton" id="modalButton">
+                    <property name="label" translatable="yes">Open Modal Window</property>
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="receives_default">True</property>
+                    <property name="use_action_appearance">False</property>
+                  </object>
+                  <packing>
+                    <property name="expand">False</property>
+                    <property name="fill">False</property>
+                    <property name="position">1</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkButton" id="cancelButton">
+                    <property name="label" translatable="yes">Cancel</property>
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="receives_default">True</property>
+                    <property name="use_action_appearance">False</property>
+                  </object>
+                  <packing>
+                    <property name="expand">False</property>
+                    <property name="fill">False</property>
+                    <property name="position">2</property>
+                  </packing>
+                </child>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="padding">10</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="padding">20</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/visualruby_examples/child_window/bin/glade/MyChildClass.glade

@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<interface>
+  <requires lib="gtk+" version="2.16"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkWindow" id="window1">
+    <property name="visible">True</property>
+    <property name="can_focus">False</property>
+    <property name="title" translatable="yes">Title</property>
+    <property name="modal">True</property>
+    <signal name="destroy" handler="destroy_window" swapped="no"/>
+    <child>
+      <object class="GtkVBox" id="vbox1">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <child>
+          <object class="GtkLabel" id="MyChildClass.hello">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="xpad">80</property>
+            <property name="ypad">20</property>
+            <property name="label" translatable="yes">label</property>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkHButtonBox" id="hbuttonbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkButton" id="buttonCancel">
+                <property name="label" translatable="yes">Cancel</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="use_action_appearance">False</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="padding">10</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/visualruby_examples/child_window/main.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/ruby
+
+require 'vrlib'
+
+#make program output in real time so errors visible in VR.
+STDOUT.sync = true
+STDERR.sync = true
+
+my_path = File.expand_path(File.dirname(__FILE__))
+require_all Dir.glob(my_path + "/bin/**/*.rb") 
+
+ChildWindowDemo.new.show
+

data/visualruby_examples/drag_drop/.vr_settings.yaml

@@ -0,0 +1,19 @@
+--- !ruby/object:VR_ENV
+backup_path: /home/eric
+browser: firefox
+current_file: /home/eric/vrp/vrx/visualruby_examples/drag_drop/main.rb
+font_name: Monospace 10
+glade_path: glade-3
+height: 858
+open_files:
+- /home/eric/vrp/vrx/visualruby_examples/drag_drop/bin/DragDropDemo.rb
+- /home/eric/vrp/vrx/visualruby_examples/drag_drop/main.rb
+open_folders:
+- /home/eric/vrp/vrx/visualruby_examples/drag_drop
+- /home/eric/vrp/vrx/visualruby_examples/drag_drop/bin
+- /home/eric/vrp/vrx/visualruby_examples/drag_drop/bin/glade
+panel_pos: 594
+rdoc_command_line: rdoc -x README
+run_command_line: ruby main.rb
+tab_spaces: 2
+width: 1434

data/visualruby_examples/drag_drop/bin/DragDropDemo.rb

@@ -0,0 +1,45 @@
+
+class DragDropDemo
+
+	include GladeGUI
+
+	def before_show()
+		@treeview1 = "I'm a widget named textview2.\n\nTry dragging a file or the button onto me."
+		@view = VR::FileTreeView.new("./img")
+		@view.refresh()
+    @builder["scrolledwindow1"].add(@view)
+		@view.drag_to(@builder["textview1"])
+		@view.drag_to(@builder["button1"])
+		drag_to(@builder["button1"], @builder["textview1"])
+		drag_to(@builder["textview1"], @builder["button1"])
+	end	
+
+
+#    This executes when button1 receives a widget dropped on it.  When the button1 widget
+#    receives a drag_drop signal, an instance variable named dragged_widget is set automatically set
+#    by visualruby containing a reference to the dragged widget:
+
+	def button1__drag_drop(*args)
+		but1 = @builder["button1"]
+		if but1.dragged_widget.is_a?(Gtk::TextView)
+			but1.label = but1.dragged_widget.buffer.text.slice(0,15) 
+		elsif but1.dragged_widget.is_a?(VR::FileTreeView)
+			but1.label = @view.get_selected_path()
+		end
+	end
+
+	def textview1__drag_drop(*args)
+		tv1 = @builder["textview1"]
+		if tv1.dragged_widget == @view
+			path = @view.get_selected_path()
+			tv1.buffer.text = File.directory?(path) ? path :  File.read(path)
+		elsif tv1.dragged_widget.is_a?(Gtk::Button)
+			tv1.buffer.text = tv1.dragged_widget.label
+		end
+	end  
+
+end
+
+
+
+

data/visualruby_examples/drag_drop/bin/glade/DragDropDemo.glade

@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<interface>
+  <requires lib="gtk+" version="2.16"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkWindow" id="window1">
+    <property name="width_request">800</property>
+    <property name="height_request">400</property>
+    <property name="visible">True</property>
+    <property name="title" translatable="yes">Drag N Drop -- Visualruby</property>
+    <property name="modal">True</property>
+    <property name="window_position">center-always</property>
+    <signal name="destroy" handler="destroy_window"/>
+    <child>
+      <object class="GtkVBox" id="vbox1">
+        <property name="visible">True</property>
+        <child>
+          <object class="GtkHBox" id="hbox2">
+            <property name="visible">True</property>
+            <child>
+              <object class="GtkVBox" id="vbox2">
+                <property name="visible">True</property>
+                <property name="spacing">10</property>
+                <child>
+                  <object class="GtkFrame" id="frame1">
+                    <property name="width_request">520</property>
+                    <property name="visible">True</property>
+                    <property name="label_xalign">0</property>
+                    <property name="shadow_type">in</property>
+                    <child>
+                      <object class="GtkAlignment" id="alignment1">
+                        <property name="visible">True</property>
+                        <property name="top_padding">12</property>
+                        <property name="bottom_padding">13</property>
+                        <property name="left_padding">13</property>
+                        <property name="right_padding">13</property>
+                        <child>
+                          <object class="GtkLabel" id="label2">
+                            <property name="width_request">600</property>
+                            <property name="visible">True</property>
+                            <property name="xalign">0</property>
+                            <property name="yalign">0</property>
+                            <property name="label" translatable="yes">With visualruby, you can drag-n-drop any widget onto another widget.  Try dragging files or the button onto the textview in the middle of the screen.  Also, try dragging between the textview and the button.</property>
+                            <property name="wrap">True</property>
+                          </object>
+                        </child>
+                      </object>
+                    </child>
+                    <child type="label">
+                      <object class="GtkLabel" id="label1">
+                        <property name="visible">True</property>
+                        <property name="label" translatable="yes">&lt;b&gt;Instructions&lt;/b&gt;</property>
+                        <property name="use_markup">True</property>
+                      </object>
+                    </child>
+                  </object>
+                  <packing>
+                    <property name="expand">False</property>
+                    <property name="fill">False</property>
+                    <property name="padding">5</property>
+                    <property name="position">0</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkHBox" id="hbox3">
+                    <property name="visible">True</property>
+                    <property name="spacing">10</property>
+                    <child>
+                      <object class="GtkScrolledWindow" id="scrolledwindow1">
+                        <property name="visible">True</property>
+                        <property name="can_focus">True</property>
+                        <property name="hscrollbar_policy">automatic</property>
+                        <property name="vscrollbar_policy">automatic</property>
+                        <child>
+                          <placeholder/>
+                        </child>
+                      </object>
+                      <packing>
+                        <property name="position">0</property>
+                      </packing>
+                    </child>
+                    <child>
+                      <object class="GtkScrolledWindow" id="scrolledwindow2">
+                        <property name="visible">True</property>
+                        <property name="can_focus">True</property>
+                        <property name="hscrollbar_policy">automatic</property>
+                        <property name="vscrollbar_policy">automatic</property>
+                        <child>
+                          <object class="GtkTextView" id="textview1">
+                            <property name="visible">True</property>
+                            <property name="can_focus">True</property>
+                          </object>
+                        </child>
+                      </object>
+                      <packing>
+                        <property name="position">1</property>
+                      </packing>
+                    </child>
+                    <child>
+                      <object class="GtkVButtonBox" id="vbuttonbox1">
+                        <property name="visible">True</property>
+                        <property name="spacing">3</property>
+                        <property name="layout_style">end</property>
+                        <child>
+                          <object class="GtkButton" id="button1">
+                            <property name="label" translatable="yes">button1</property>
+                            <property name="visible">True</property>
+                            <property name="can_focus">True</property>
+                            <property name="receives_default">True</property>
+                          </object>
+                          <packing>
+                            <property name="expand">False</property>
+                            <property name="fill">False</property>
+                            <property name="position">0</property>
+                          </packing>
+                        </child>
+                      </object>
+                      <packing>
+                        <property name="expand">False</property>
+                        <property name="padding">10</property>
+                        <property name="position">2</property>
+                      </packing>
+                    </child>
+                  </object>
+                  <packing>
+                    <property name="position">1</property>
+                  </packing>
+                </child>
+              </object>
+              <packing>
+                <property name="padding">15</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="padding">15</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/visualruby_examples/drag_drop/main.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/ruby
+
+require 'vrlib'
+
+#make program output in real time so errors visible in VR.
+STDOUT.sync = true
+STDERR.sync = true
+
+#everything in these directories will be included
+my_path = File.expand_path(File.dirname(__FILE__))
+require_all Dir.glob(my_path + "/bin/**/*.rb") 
+
+DragDropDemo.new.show
+

data/visualruby_examples/listview/.vr_settings.yaml

@@ -0,0 +1,46 @@
+--- !ruby/object:VR_ENV
+backup_path: /home/eric
+browser: C:\Program Files\iexplorer\iexplore.exe
+current_file: /home/eric/vrp/vrx/visualruby_examples/listview/main.rb
+font_name: Monospace 10
+glade_path: glade-gtk2
+height: 831
+open_files:
+- /home/eric/vrp/vrx/visualruby_examples/listview/bin/SongListView.rb
+- /home/eric/vrp/vrx/visualruby_examples/listview/bin/SongListViewGUI.rb
+- /home/eric/vrp/vrx/visualruby_examples/listview/main.rb
+open_folders:
+- /home/eric/vrp/vrx/visualruby_examples/listview
+- /home/eric/vrp/vrx/visualruby_examples/listview/bin
+- /home/eric/vrp/vrx/visualruby_examples/listview/bin/glade
+panel_pos: 494
+rdoc_command_line: rdoc -x README
+run_command_line: ruby main.rb
+tab_spaces: 2
+width: 1190
+builder: !ruby/object:Gtk::Builder {}
+glade_box: !ruby/object:VR::SimpleComboBoxEntry {}
+browser_box: !ruby/object:VR::SimpleComboBoxEntry {}
+buttonChooseFolder: ! '...'
+vbox1: !ruby/object:Gtk::VBox {}
+label7: ! 'Editor Font:'
+label3: ! 'Back-up Path:'
+window1: !ruby/object:Gtk::Window {}
+hbuttonbox1: !ruby/object:Gtk::HButtonBox {}
+buttonCancel: Cancel
+label8: ! 'RDoc Command Line: '
+table1: !ruby/object:Gtk::Table {}
+buttonTryBrowser: Try
+buttonSave: Save
+hboxBrowser: !ruby/object:Gtk::HBox {}
+hboxGlade: !ruby/object:Gtk::HBox {}
+label1: <big><big><b>Visual Ruby Settings</b></big></big>
+label2: ! 'Browser Command Line:'
+label4: ! 'Spaces for Each Tab in Editor:'
+label5: ! 'Glade Command Line:'
+label6: ! 'Command Line when "Run" is pressed:'
+hbox1: !ruby/object:Gtk::HBox {}
+hbox2: !ruby/object:Gtk::HBox {}
+hbox3: !ruby/object:Gtk::HBox {}
+hbox4: !ruby/object:Gtk::HBox {}
+buttonTryGlade: Try

data/visualruby_examples/listview/bin/SongListView.rb

@@ -0,0 +1,89 @@
+##
+# This class contains all the code for the ListView itself.
+# It sets-up the columns and data.
+# The GUI class will make changes to the view/data.
+# All the GUI code is in SongListViewGUI.rb.  
+#
+
+class SongListView < VR::ListView
+
+
+	AUDIO_ICON = Gdk::Pixbuf.new(File.dirname(__FILE__) + "/audio-x-generic.png")
+
+
+	def initialize 
+		@cols = {}
+		@cols[:pix] = {:pix => Gdk::Pixbuf, :song => String } #two renderers in this column
+		@cols[:date] = DateTime
+		@cols[:artist] = String
+		@cols[:first_name] = String	  
+		@cols[:last_name] = String
+		@cols[:popular] = VR::ProgressCol
+		@cols[:buy] = VR::ComboCol
+		@cols[:quantity] = VR::SpinCol
+    @cols[:price] = VR::CurrencyCol
+		@cols[:check] = TrueClass
+		super(@cols)
+
+		col_sort_column_id(:artist => id(:last_name), :song => id(:song), :first_name=> id(:first_name))
+		col_sort_column_id(:last_name => id(:last_name), :popular => id(:popular), :buy=> id(:buy))
+		col_sort_column_id(:quantity => id(:quantity), :price => id(:price), :check => id(:check), :date => id(:date))
+
+		col_title(:first_name => "First", :last_name => "Last", :quantity => "Qty", :check => "Ok")
+		ren_width(:buy => 70, :popular => 80, :quantity => 40)
+		ren_attr(:price, :edit_inline => true)
+		ren_editable(true)
+	
+		# this block executes after ARTIST is edited ("edited" event).   
+		renderer(:artist).edited_callback = Proc.new { | model_col, iter |
+				names = iter[id(:artist)].split
+				iter[id(:first_name)] = names[0]
+				iter[id(:last_name)] = names[1]
+		}
+		
+		# this block must evaluate to true to allow updating.
+		renderer(:artist).validate_block = Proc.new { |text, model_col, iter, view| 
+			if text.split.size == 2 # insist on two names
+				true
+			else
+				VR::Dialog.message_box("You must enter two names.")
+				false
+			end 
+		} 
+		refresh()
+	end		
+
+	# this just loads the data into the model
+	def refresh()
+		data = get_data() # returns array of songs
+		(0..6).each do |i|
+			row = add_row()
+  		row[:pix] = AUDIO_ICON   
+  		row[:first_name] = data[i][0]
+  		row[:last_name] = data[i][1]
+  		row[:artist] = row[:first_name] + " " + row[:last_name]
+  		row[:song] = data[i][2]
+  		row[:quantity] = VR::SpinCol.new(0,0,100,1)
+			row[:price] = VR::CurrencyCol.new(2.99)
+  		row[:popular] = data[i][3]
+  		row[:buy] = VR::ComboCol.new("Buy", "Buy", "Rent", "Listen") # all rows use the same combobox
+  		row[:check] = false
+			row[:date] = data[i][4]
+		end
+	end
+
+	def get_data
+		rows = []
+		rows << ["Iggy", "Pop", "I Wanna Be Your Dog", 88, DateTime.new(1981,11,21)]
+		rows << ["Joe", "Cocker", "You Are So Beautiful", 91, DateTime.new(1973,12,7)]
+		rows << ["Elvis", "Costello", "Pump it Up", 77, DateTime.new(1982, 5, 5)]
+		rows << ["Paul", "McCartney", "Silly Love Songs", 69, DateTime.new(1979,7,13)]
+		rows << ["Dorothy", "Moore", "Misty Blue", 97, DateTime.new(1981, 1, 14)]
+		rows << ["Rod", "Stewart", "Hot Legs", 54, DateTime.new(1982, 9, 27)]
+		rows << ["Lionel", "Richie", "Three Times a Lady", 84, DateTime.new(1978, 1, 3)] 
+	end
+
+end
+
+
+

data/visualruby_examples/listview/bin/SongListViewGUI.rb

@@ -0,0 +1,67 @@
+
+class SongListViewGUI < SongListView
+
+	include GladeGUI
+
+	def before_show
+		@builder["scrolledwindow1"].add(self)
+	end
+
+	def self__row_activated(*argv)
+		return unless rows = selected_rows
+		row = rows[0]
+		VR::Dialog.message_box("You selected\n#{row[:song]}\nby  #{row[:artist]}")
+	end
+
+	def invisible__toggled(*argv)
+		v = !@builder["invisible"].active?
+		col_visible(:last_name => v, :first_name => v ) 
+	end
+
+	def radio__toggled(*argv)
+		ren_radio(:check => @builder["radio"].active?)
+		each_row { |r| r[:check] = false }
+		repaint
+	end
+
+	def background__toggled(*argv)
+		val = @builder["background"].active? ? "yellow" : "white"
+		ren_attr(:song, :background => val) # same as set_background( SONG => val)
+		repaint
+	end
+
+	def xalign__toggled(*argv)
+		val = @builder["xalign"].active? ? 1 : 0
+		ren_xalign(:artist => val)
+		repaint
+	end
+
+	def bold__toggled(*argv)
+		val = @builder["bold"].active? ? Pango::WEIGHT_BOLD : Pango::WEIGHT_NORMAL
+		ren_weight(:song => val) #number from 100 to 900, BOLD = 700
+		repaint	
+	end
+
+	def center__toggled(*argv)
+		val = @builder["center"].active? ? 0.5 : 0
+		col_alignment(:artist => val) 
+		repaint
+	end
+	
+	def editable__toggled(*argv)
+		ren_editable(!@builder["editable"].active?)		
+	end
+
+	def digits__toggled(*argv)
+		val = @builder["digits"].active? ? 1 : 0
+		ren_digits(:quantity => val)
+		repaint
+	end
+
+	def repaint
+		@builder["scrolledwindow1"].hide
+		@builder["window1"].show_all
+	end
+end
+
+