visualruby 1.0.12

data/visualruby_examples/active_record/bin/glade/Person.glade

@@ -0,0 +1,148 @@
+<?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">450</property>
+    <property name="height_request">230</property>
+    <property name="visible">True</property>
+    <property name="modal">True</property>
+    <signal name="destroy" handler="destroy_window"/>
+    <child>
+      <object class="GtkHBox" id="hbox1">
+        <property name="visible">True</property>
+        <child>
+          <object class="GtkVBox" id="vbox1">
+            <property name="width_request">450</property>
+            <property name="visible">True</property>
+            <child>
+              <object class="GtkLabel" id="label5">
+                <property name="visible">True</property>
+                <property name="yalign">0.4699999988079071</property>
+                <property name="label" translatable="yes">&lt;big&gt;&lt;big&gt;Person&lt;/big&gt;&lt;/big&gt;</property>
+                <property name="use_markup">True</property>
+              </object>
+              <packing>
+                <property name="padding">10</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkTable" id="table1">
+                <property name="visible">True</property>
+                <property name="n_rows">4</property>
+                <property name="n_columns">2</property>
+                <property name="column_spacing">5</property>
+                <property name="row_spacing">5</property>
+                <child>
+                  <object class="GtkLabel" id="label1">
+                    <property name="visible">True</property>
+                    <property name="xalign">1</property>
+                    <property name="label" translatable="yes">Name:</property>
+                  </object>
+                  <packing>
+                    <property name="x_options">GTK_FILL</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkLabel" id="label2">
+                    <property name="visible">True</property>
+                    <property name="xalign">1</property>
+                    <property name="label" translatable="yes">Address:</property>
+                  </object>
+                  <packing>
+                    <property name="top_attach">1</property>
+                    <property name="bottom_attach">2</property>
+                    <property name="x_options">GTK_FILL</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkLabel" id="label3">
+                    <property name="visible">True</property>
+                    <property name="xalign">1</property>
+                    <property name="label" translatable="yes">Phone Number:</property>
+                  </object>
+                  <packing>
+                    <property name="top_attach">2</property>
+                    <property name="bottom_attach">3</property>
+                    <property name="x_options">GTK_FILL</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkLabel" id="label4">
+                    <property name="visible">True</property>
+                    <property name="xalign">1</property>
+                    <property name="label" translatable="yes">Email:</property>
+                  </object>
+                  <packing>
+                    <property name="top_attach">3</property>
+                    <property name="bottom_attach">4</property>
+                    <property name="x_options">GTK_FILL</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkEntry" id="Person.name">
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="invisible_char">•</property>
+                  </object>
+                  <packing>
+                    <property name="left_attach">1</property>
+                    <property name="right_attach">2</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkEntry" id="Person.address">
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="invisible_char">•</property>
+                  </object>
+                  <packing>
+                    <property name="left_attach">1</property>
+                    <property name="right_attach">2</property>
+                    <property name="top_attach">1</property>
+                    <property name="bottom_attach">2</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkEntry" id="phone">
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="invisible_char">•</property>
+                  </object>
+                  <packing>
+                    <property name="left_attach">1</property>
+                    <property name="right_attach">2</property>
+                    <property name="top_attach">2</property>
+                    <property name="bottom_attach">3</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkEntry" id="email">
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="invisible_char">•</property>
+                  </object>
+                  <packing>
+                    <property name="left_attach">1</property>
+                    <property name="right_attach">2</property>
+                    <property name="top_attach">3</property>
+                    <property name="bottom_attach">4</property>
+                  </packing>
+                </child>
+              </object>
+              <packing>
+                <property name="padding">20</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="padding">20</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/visualruby_examples/active_record2/.vr_settings.yaml

@@ -0,0 +1,48 @@
+--- !ruby/object:VR_ENV
+backup_path: /home/eric
+browser: firefox
+current_file: /home/eric/vrp/vrx/visualruby_examples/active_record2/active_record2.rb
+font_name: Monospace 10
+glade_path: glade-gtk2
+height: 865
+open_files:
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/active_record2.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin/CompanyGUI.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin/Employee.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin/Paycheck.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin/Employer.rb
+open_folders:
+- /home/eric/vrp/vrx/visualruby_examples/active_record2
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin
+- /home/eric/vrp/vrx/visualruby_examples/active_record2/bin/glade
+panel_pos: 541
+rdoc_command_line: rdoc -x README
+run_command_line: ruby active_record2.rb
+tab_spaces: 2
+width: 1346
+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/active_record2/active_record2.rb

@@ -0,0 +1,142 @@
+require 'vrlib.rb'
+require 'active_record'
+
+#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") 
+
+ActiveRecord::Base.establish_connection(  
+:adapter => "sqlite3",   
+:database => "db/development.sqlite3"
+) 
+
+
+CompanyGUI.new.show
+
+# This code just populates the database
+
+#ActiveRecord::Schema.define do
+#    create_table :employers do |table|
+#      table.column :name, :string
+#      table.column :address, :string
+#			table.column :company_type, :string
+#    end
+#    create_table :employees do |table|
+#			table.column :employer_id, :integer
+#      table.column :name, :string
+#      table.column :address, :string
+#    end
+#    create_table :paychecks do |table|
+#			table.column :employee_id, :integer
+#      table.column :date, :date
+#      table.column :description, :string
+#			table.column :amount, :float
+#    end
+#
+#end
+#
+#p = Employer.create
+#p.name = "Hal's Lawnmowers"
+#p.address = "4675 St Bernard Wy, Lincoln, NE 83748"
+#p.company_type = "Home and Garden"
+#p.save
+#
+#e = p.employees.create
+#e.name = "Kenny Arthur"
+#e.address = "11430 W Foothill, San Mateo CA 90054"
+#e.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 12, 18)
+#c.description = "Cash Advance"
+#c.amount = 400
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 25)
+#c.description = "November Hours"
+#c.amount = -545.56
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 28)
+#c.description = "Payment"
+#c.amount = 900
+#c.save
+#
+#e = p.employees.create
+#e.name = "Albert Davidson"
+#e.address = "324 Sheffield Blvd, San Francisco CA 90048"
+#e.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 12, 28)
+#c.description = "Payment: Christmas Bonus"
+#c.amount = 500
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 25)
+#c.description = "November Hours"
+#c.amount = -755.56
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 28)
+#c.description = "Payment"
+#c.amount = 1000
+#c.save
+#
+#p = Employer.create
+#p.name = "99 cent Supermart"
+#p.address = "222 Cleveland Blvd, Foster City, CA 96858"
+#p.company_type = "Discount Stores"
+#p.save
+#
+#e = p.employees.create
+#e.name = "Richard King"
+#e.address = "490 S Brooks Blvd, San Francisco CA 90044"
+#e.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 9, 18)
+#c.description = "Payment: Overtime"
+#c.amount = 500
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 25)
+#c.description = "November Hours"
+#c.amount = -485.56
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 28)
+#c.description = "December Hours"
+#c.amount = -756.56
+#c.save
+#
+#
+#e = p.employees.create
+#e.name = "Angel Cervantes"
+#e.address = "1984 99th Blvd, Sacremento, CA 95558"
+#e.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 28)
+#c.description = "Payment: November"
+#c.amount = 750
+#c.save
+#
+#c = e.paychecks.create
+#c.date = DateTime.new(2011, 11, 25)
+#c.description = "November Hours"
+#c.amount = -855.56
+#c.save
+#
+#
+#

data/visualruby_examples/active_record2/bin/CompanyGUI.rb

@@ -0,0 +1,54 @@
+
+class CompanyGUI
+
+	include GladeGUI
+
+
+	def before_show()
+  	@employer_view = VR::ListView.new(:employer => Employer, :address => String, :company_type => String)
+  	@builder["scroll_employer"].add(@employer_view)
+		@employer_view.selection.signal_connect("changed") { employer_view__changed }
+		@employer_view.col_width(:employer => 160, :address => 340, :company_type => 180)
+
+  	@employee_view = VR::ListView.new(:employer => Employer, :employee => Employee, :address => String, :balance => String)
+  	@builder["scroll_employee"].add(@employee_view)
+		@employee_view.selection.signal_connect("changed") { employee_view__changed }
+		@employee_view.col_width(:employer => 160, :employee => 150, :address => 320)
+
+  	@paycheck_view = VR::ListView.new(:employee => Employee, :date => DateTime, :description => String, :amt => Paycheck)
+  	@builder["scroll_paycheck"].add(@paycheck_view)
+		@paycheck_view.col_width(:employee => 200, :date => 100, :description => 220, :amt => 100)
+
+		Employer.all.each do |e|
+			row = @employer_view.add_row
+			row[:employer] = e
+			row.load_object(e)
+		end
+
+		@employer_view.select_row(0)
+	end
+
+
+	def employer_view__changed
+		return unless row = @employer_view.selected_rows[0]
+		@employee_view.model.clear
+		Employee.where(:employer_id => row[:employer].id).each do |e|
+			row = @employee_view.add_row
+			row[:employee] = e
+			row.load_object(e)
+		end
+		@employee_view.select_row(0)
+	end
+
+	def employee_view__changed
+		return unless row = @employee_view.selected_rows[0]
+		@paycheck_view.model.clear
+		Paycheck.where(:employee_id => row[:employee].id).each do |e|
+			row = @paycheck_view.add_row
+			row.load_object(e) #this loads employee object
+			row[:amt] = e
+		end
+	end
+
+
+end

data/visualruby_examples/active_record2/bin/Employee.rb

@@ -0,0 +1,20 @@
+
+class Employee < ActiveRecord::Base
+	has_many :paychecks
+	belongs_to :employer
+
+	include GladeGUI
+
+	def visual_attributes
+		bal = balance().to_f
+		hash = { :text => name }
+		hash[:foreground] = (bal < 0) ? "white" : "black"
+    hash[:background] = (bal < 0) ? "red" : "white"
+		return hash
+	end
+
+	def balance()
+		Paycheck.sum(:amount, :conditions => "employee_id = #{id}").round(2).to_s
+	end
+
+end

data/visualruby_examples/active_record2/bin/Employer.rb

@@ -0,0 +1,11 @@
+
+class Employer < ActiveRecord::Base
+	has_many :employees
+
+	include GladeGUI
+
+	def to_s # this is what shows in the VR::ListView
+		name
+	end
+
+end

data/visualruby_examples/active_record2/bin/Paycheck.rb

@@ -0,0 +1,11 @@
+
+class Paycheck < ActiveRecord::Base
+	belongs_to :employee
+
+	include GladeGUI
+
+	def to_s
+		sprintf("%.2f", amount)
+	end
+
+end

data/visualruby_examples/active_record2/bin/glade/CompanyGUI.glade

@@ -0,0 +1,167 @@
+<?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">All Paychecks</property>
+    <property name="modal">True</property>
+    <property name="default_width">740</property>
+    <property name="default_height">700</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="label" translatable="yes">&lt;big&gt;&lt;big&gt;Paychecks For All Employees&lt;/big&gt;&lt;/big&gt;</property>
+                <property name="use_markup">True</property>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkLabel" id="label2">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="xalign">0.019999999552965164</property>
+                <property name="ypad">5</property>
+                <property name="label" translatable="yes">&lt;big&gt;Companies:&lt;/big&gt;</property>
+                <property name="use_markup">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkScrolledWindow" id="scroll_employer">
+                <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="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">2</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkLabel" id="label3">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="xalign">0.019999999552965164</property>
+                <property name="ypad">5</property>
+                <property name="label" translatable="yes">&lt;big&gt;Employees:&lt;/big&gt;</property>
+                <property name="use_markup">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">3</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkScrolledWindow" id="scroll_employee">
+                <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="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">4</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkLabel" id="label4">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="xalign">0.019999999552965164</property>
+                <property name="ypad">5</property>
+                <property name="label" translatable="yes">&lt;big&gt;Paychecks:&lt;/big&gt;</property>
+                <property name="use_markup">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">5</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkScrolledWindow" id="scroll_paycheck">
+                <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="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">6</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkHButtonBox" id="hbuttonbox1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="spacing">20</property>
+                <property name="layout_style">end</property>
+                <child>
+                  <object class="GtkButton" id="button2">
+                    <property name="label" translatable="yes">Done</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>
+                    <signal name="clicked" handler="destroy_window" swapped="no"/>
+                  </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="fill">True</property>
+                <property name="padding">10</property>
+                <property name="position">7</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>