visualruby 1.0.12

data/bin/main/glade/VR_Remote_Gem_Tree.glade

@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<interface>
+  <requires lib="gtk+" version="2.16"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkMenu" id="popGem">
+    <property name="visible">True</property>
+    <child>
+      <object class="GtkMenuItem" id="popOpenRubygemsPage">
+        <property name="visible">True</property>
+        <property name="tooltip_text" translatable="yes">Open this gem's page on rubygems.org</property>
+        <property name="label" translatable="yes">Open rubygems Project Page</property>
+        <property name="use_underline">True</property>
+        <signal name="activate" handler="popOpenRubygemsPage_clicked"/>
+      </object>
+    </child>
+    <child>
+      <object class="GtkMenuItem" id="popOpenHomepage">
+        <property name="visible">True</property>
+        <property name="tooltip_text" translatable="yes">Open gem's homepage in the default web browser.</property>
+        <property name="label" translatable="yes">Open Homepage</property>
+        <property name="use_underline">True</property>
+        <signal name="activate" handler="popOpenHomepage_clicked"/>
+      </object>
+    </child>
+    <child>
+      <object class="GtkMenuItem" id="popYank">
+        <property name="visible">True</property>
+        <property name="tooltip_text" translatable="yes">Removes the gem from rubygems.org so nobody can download it.</property>
+        <property name="label" translatable="yes">Yank Gem From rubygems.org</property>
+        <property name="use_underline">True</property>
+        <signal name="activate" handler="popYank_clicked"/>
+      </object>
+    </child>
+  </object>
+  <object class="GtkWindow" id="window1">
+    <property name="window_position">center-on-parent</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="visible">True</property>
+            <child>
+              <object class="GtkLabel" id="label2">
+                <property name="visible">True</property>
+                <property name="label" translatable="yes">&lt;big&gt;&lt;big&gt;Contacting Rubygems.org...&lt;/big&gt;&lt;/big&gt;
+Please wait while the names of your gems are downloaded.  Yanking old versions of your gems, makes this process faster.</property>
+                <property name="use_markup">True</property>
+                <property name="wrap">True</property>
+              </object>
+              <packing>
+                <property name="padding">15</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkProgressBar" id="progressbar1">
+                <property name="visible">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="padding">20</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="padding">15</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/bin/tools/VR_Tools.rb

@@ -0,0 +1,120 @@
+module VR_Tools
+
+	def VR_Tools.popen(cmd)
+  	begin
+			IO.popen(cmd)
+		rescue
+			VR::Dialog.message_box("The following command couldn't run:\n\n#{cmd}\n\nCheck the path in Tools > Settings")
+		end
+	end
+
+#	def VR_Tools.sudo_command(command)
+#		@pass ||= ""
+#		if @pass.strip() == ""
+#			@pass = VR::Dialog.input_box("Enter System Password:")
+#		end
+#		result = command + "\n" + `echo #{@pass} | sudo -S #{command}`
+#		@pass = "" if result.include? "incorrect password"
+#		return result 
+#	end
+
+	def VR_Tools.create_desktop_launcher()
+		command = "vr " + Dir.pwd
+		name = File.basename(Dir.pwd) + " Project" 
+		  str = <<END
+
+#!/usr/bin/env xdg-open
+
+[Desktop Entry]
+Version=1.0
+Type=Application
+Terminal=false
+Icon[en_US]=gnome-panel-launcher
+Name[en_US]=#{name}
+Exec=#{command}
+Comment[en_US]=Opens a Visual Ruby project
+Name=#{name}
+Comment=Opens a Visual Ruby project
+Icon=gnome-panel-launcher
+
+END
+		return unless File.directory?(ENV["HOME"] + "/Desktop")
+		fn = ENV["HOME"] + "/Desktop/" + name + ".desktop"
+    File.open(fn,"w") { |f| f.puts(str) }
+		File.chmod(0755, fn)
+		VR::Dialog.message_box("Created launcher:\n" + name + "\non your computer's desktop")
+	end
+
+  def VR_Tools.back_up()
+		path = File.join(ENV["HOME"], "visualruby_backup", Dir.pwd.gsub(ENV["HOME"], ""))
+    t = Time.now
+    out_dir = path + "/" + Dir.pwd.split("/").last + " Backup " + t.month().to_s + '-' + t.day().to_s + "-" + t.year().to_s + " at " + t.strftime('%I %M%p')  
+    copy_recursively(Dir.pwd, out_dir) 
+		VR::Dialog.message_box("Files backed up to:  \n\n" + path) 
+  end
+
+	def VR_Tools.copy_recursively(from, out_dir)
+    Find.find(from) do |path|
+      next if path == from
+      rel_path = path.gsub(from, "")
+      if File.directory?(path) 
+        FileUtils.makedirs(out_dir + rel_path)   
+      else
+        if not File.directory?(out_dir + File.dirname(rel_path))
+          FileUtils.makedirs(out_dir + File.dirname(rel_path))
+        end
+        FileUtils.copy(path, out_dir + rel_path)
+      end
+    end
+	end
+
+	def self.create_gemspec()
+		main_file = $VR_ENV.run_command_line.split(" ")[1]
+		main_path = "."
+		bindir = "'.'" #( main_path == "bin") ? "'bin'" : "'#{main_path}', 'bin'" 
+		libdir = "'.'" #(main_path == "lib") ? "'lib'" : "'#{main_path}', 'lib'"
+		str = <<END
+Gem::Specification.new do |s|
+  s.name = "#{File.basename(Dir.pwd).downcase}"  # i.e. visualruby.  This name will show up in the gem list.
+  s.version = "0.0.1"  # i.e. (major,non-backwards compatable).(backwards compatable).(bugfix)
+	s.add_dependency "vrlib", ">= 0.0.1"
+	s.add_dependency "gtk2", ">= 0.0.1"
+	s.add_dependency "require_all", ">= 0.0.1"
+	s.has_rdoc = false
+  s.authors = ["Your Name"] 
+  s.email = "you@yoursite.com" # optional
+  s.summary = "Short Description Here." # optional
+  s.homepage = "http://www.yoursite.org/"  # optional
+  s.description = "Full description here" # optional
+	s.executables = ['#{main_file}']  # i.e. 'vr' (optional, blank if library project)
+	s.default_executable = ['#{main_file}']  # i.e. 'vr' (optional, blank if library project)
+	s.bindir = [#{bindir}]    # optional, default = bin
+	s.require_paths = [#{libdir}]  # optional, default = lib 
+	s.files = Dir.glob(File.join("**", "*.{rb,glade}"))
+	s.rubyforge_project = "nowarning" # supress warning message 
+end
+END
+		name =  Dir.pwd + "/" + File.basename(Dir.pwd).downcase + ".gemspec"
+		if File.file?(name)
+			return false if not VR::Dialog.ok_box("Do you want to overwrite existing #{name}?")
+		end
+		File.open(name, "w") { |f| f.puts(str) }
+		return name
+  end
+
+	#this works on Dir.pwd that's maybe different from project
+	def VR_Tools.replace_html_in_docs()
+		ar = YAML.load_file "rdoc_replace.yaml"	
+		Dir.glob("#{Dir.pwd}/doc/**/*.html") do |f|
+			str = File.open(f).read
+			ar.each do |pair|
+				str.gsub!(pair[0], pair[1])
+			end
+			File.open(f, "w") { |file| file.puts(str) }
+		end
+		FileUtils.cp "#{Dir.pwd}/rdoc.css", "#{Dir.pwd}/doc/rdoc.css" if File.file?("#{Dir.pwd}/rdoc.css") and File.directory?("#{Dir.pwd}/doc")
+	end
+
+end
+
+

data/skeleton/document/New.glade

@@ -0,0 +1,13 @@
+<?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="modal">True</property>
+    <signal name="destroy" handler="destroy_window"/>
+    <child>
+      <placeholder/>
+    </child>
+  </object>
+</interface>

data/skeleton/document/NewWindow.rb

@@ -0,0 +1,15 @@
+
+class MyClass #(change name)
+
+	include GladeGUI
+
+	#code that runs immediately before the #show method of this class
+	def before_show()
+		@var1 = "Hello World"
+	end	
+
+	def	widget__clicked(*args)
+		#code that runs when widget named "widget" in glade is clicked. 
+	end
+
+end

data/skeleton/project/bin/MyClass.rb

@@ -0,0 +1,15 @@
+
+class MyClass #(change name)
+
+	include GladeGUI
+
+	def before_show()
+		@button1 = "Hello World"
+	end	
+
+	def button1__clicked(*args)
+		@builder["button1"].label = @builder["button1"].label == "Hello World" ? "Goodbye World" : "Hello World"
+	end
+
+end
+

data/skeleton/project/bin/glade/MyClass.glade

@@ -0,0 +1,45 @@
+<?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="modal">True</property>
+    <property name="window_position">center-always</property>
+    <property name="default_width">300</property>
+    <property name="default_height">200</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="GtkHButtonBox" id="hbuttonbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkButton" id="button1">
+                <property name="label" translatable="yes">button</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="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/skeleton/project/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") 
+
+MyClass.new.show
+

data/visualruby_examples/active_record/.vr_settings.yaml

@@ -0,0 +1,47 @@
+--- !ruby/object:VR_ENV
+backup_path: /home/eric
+browser: firefox
+current_file: /home/eric/vrp/vrx/visualruby_examples/active_record/active_record.rb
+font_name: Monospace 10
+glade_path: glade-gtk2
+height: 674
+open_files:
+- /home/eric/vrp/vrx/visualruby_examples/active_record/bin/Person.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record/bin/ChoosePerson.rb
+- /home/eric/vrp/vrx/visualruby_examples/active_record/active_record.rb
+open_folders:
+- /home/eric/vrp/vrx/visualruby_examples/active_record
+- /home/eric/vrp/vrx/visualruby_examples/active_record/bin
+- /home/eric/vrp/vrx/visualruby_examples/active_record/bin/glade
+- /home/eric/vrp/vrx/visualruby_examples/active_record/db
+panel_pos: 453
+rdoc_command_line: rdoc -x README
+run_command_line: ruby active_record.rb
+tab_spaces: 2
+width: 934
+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_record/active_record.rb

@@ -0,0 +1,52 @@
+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 + "/lib/**/*.rb") 
+require_all Dir.glob(my_path + "/bin/**/*.rb") 
+
+ActiveRecord::Base.establish_connection(  
+:adapter => "sqlite3",    
+:database => "db/development.sqlite3",
+)
+
+ChoosePerson.new.show
+
+
+#ActiveRecord::Schema.define do
+#    create_table :people do |table|
+#      table.column :name, :string
+#      table.column :address, :string
+#			table.column :phone, :string
+#			table.column :email, :string
+#    end
+#end
+#
+#p = Person.create
+#p.name = "Beaufort Klinkscale"
+#p.address = "4675 St Bernard Wy, Lincoln, NE 83748"
+#p.phone = "384-4859"
+#p.email = "beaubeau@klink.com"
+#p.save
+#
+#p = Person.create
+#p.name = "Alex Frederickson"
+#p.address = "675 Westgate, Alexandria, VA 94844"
+#p.phone = "844-4839"
+#p.email = "alex@visualruby.net"
+#p.save
+#
+#p = Person.create
+#p.name = "Tony Williams"
+#p.address = "12 Harvard Ct., Hemet, CA 94849"
+#p.phone = "435-4439"
+#p.email = "bigtony@yahoooo.com"
+#p.save
+#
+#
+#

data/visualruby_examples/active_record/bin/ChoosePerson.rb

@@ -0,0 +1,17 @@
+
+class ChoosePerson < VR::ListView
+
+	include GladeGUI
+
+	def initialize()
+		super(:person => Person)  # Person class
+	end
+
+	def before_show()
+		@builder["scrolledwindow1"].add(self)
+		Person.all.each do |p|
+			row = add_row(:person => p)
+		end
+	end
+
+end

data/visualruby_examples/active_record/bin/Person.rb

@@ -0,0 +1,13 @@
+class Person < ActiveRecord::Base
+
+		include GladeGUI
+
+		def before_show
+			set_glade_all()
+		end
+
+		def to_s
+			"#{self.name}  (#{self.email})" 
+		end
+
+end

data/visualruby_examples/active_record/bin/glade/ChoosePerson.glade

@@ -0,0 +1,61 @@
+<?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="modal">True</property>
+    <property name="default_width">500</property>
+    <property name="default_height">300</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;Choose Person:&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="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="expand">True</property>
+                <property name="fill">True</property>
+                <property name="padding">20</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="padding">15</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>