visualruby 1.0.12

data/bin/main/VR_Main.rb

@@ -0,0 +1,313 @@
+
+class VR_Main 
+
+	include GladeGUI
+
+	attr_accessor :proj_path, :tabs, :shell, :builder, :file_tree	
+	
+  def initialize(argv)
+		@proj_path = argv[0] == "new" ? new_project(argv[1]) : argv[0]
+		@proj_path = @proj_path == nil ? Dir.pwd : @proj_path.chomp("/")
+		@proj_path = ENV["HOME"] unless File.split(@proj_path).length >= 2 and File.directory?(@proj_path)
+	end
+
+	def before_show
+#	  splash = Splash.new
+#		splash.show(self)
+		@file_tree = VR_File_Tree.new(self, File.expand_path(File.dirname(__FILE__) + "/../../img"))
+		@builder["scrolledwindowFileTree"].add(@file_tree) 
+
+		#add document notebook		
+    @tabs = VR_Tabs.new(self)  
+    @builder["vboxTabs"].add(@tabs) 
+
+		#add shell textview
+		@shell = VR_TextShell.new(@tabs)
+		@builder["scrollShell"].add(@shell) 
+
+		#add local gem tab
+		@gem_tree = VR_Local_Gem_Tree.new(self)
+		@builder['scrolledLocalGems'].add(@gem_tree) 
+		#add remote gem tab
+		@remote_gem_tree = VR_Remote_Gem_Tree.new(self)
+		@builder["scrolledRemoteGems"].add(@remote_gem_tree)
+
+		menuInstallExamples__activate if not File.directory?(File.join(ENV["HOME"],"","visualruby", "examples", "drag_drop"))
+
+		if Dir.entries(@proj_path).join == "..." #empty
+			VR_Tools.copy_recursively(File.dirname(__FILE__) + "/../../skeleton/project", @proj_path)
+		end
+
+		if not File.file?(@proj_path + "/" + VR_ENV::SETTINGS_FILE)
+			menuInstallExamples__activate if Dir.glob(ENV["HOME"] + File.join( "", "**", VR_ENV::SETTINGS_FILE)).size == 0
+			toolOpenFolder_clicked
+		else
+			load_project(@proj_path)
+		end
+#	  splash.destroy_window()cvnc
+#		show_window() if not $VR_ENV.nil?
+  end
+
+	def project_valid?(proj_path)
+		return false if proj_path.nil?
+		if not File.directory?(proj_path.to_s)
+			VR::Dialog.message_box("This folder is invalid:\n\n" + proj_path)
+			return false
+		end
+		if ENV["HOME"] == proj_path
+			return false
+		end
+		if Dir.entries(proj_path).join == "..." #empty
+			VR_Tools.copy_recursively(File.dirname(__FILE__) + "/../../skeleton/project", proj_path)
+			return true
+		elsif not File.file?(proj_path + "/" + VR_ENV::SETTINGS_FILE)
+			return VR::Dialog.ok_box("No Visual Ruby project file was found in this folder:\n " + proj_path +  "    Do you wan to open it anyway?")
+		end #success!
+ 		return true
+	end
+
+	def load_project(proj_path) #assumes valid_project? is true
+		FileUtils.cd(proj_path)
+		@builder['window1'].title = "VR: " + File.basename(Dir.pwd)
+		@builder["labelStatus"].label = Dir.pwd
+		$VR_ENV = VR_ENV.load_yaml()
+		$VR_ENV_GLOBAL = VR_ENV_GLOBAL.load_yaml()
+		@file_tree.refresh()
+		load_state()
+		@shell.buffer.text = ""
+	end
+
+	def new_project(proj_path)
+		return nil unless proj_path
+		path = File.join(Dir.pwd,proj_path)
+		FileUtils.mkdir(path) unless File.directory?(path)
+		return path
+	end
+
+
+
+	def toolBack_clicked 
+		@tabs.back()
+	end
+
+
+
+
+	def toolOpenFolder_clicked
+		save_state
+		return unless @tabs.try_to_save_all()
+		old_path = @proj_path
+		ProjectChooserGUI.new(self).show() #modal stops execution here, sets @proj_path
+#		return if @proj_path == old_path  #first time needs to be ok
+		if project_valid?(@proj_path)
+ 			@tabs.try_to_close_all()
+			load_project(@proj_path)
+		else
+			@proj_path = old_path
+		end	
+	end
+
+	def notebookTree_changed #file, gem notebook
+		case @builder['notebookTree'].page
+			when 1 then @gem_tree.refresh() 
+			when 2 then @remote_gem_tree.refresh(false) #false = don't force refresh
+		end
+	end 
+	
+	def window1_key_press(win, key)
+		case x = key.keyval
+		 	when 65474 then toolRun_clicked # F5
+#			when 115 then toolSave_clicked # Ctrl-S
+		end
+	end
+
+	def menuCreateLauncher__activate(*a)
+		VR_Tools.create_desktop_launcher
+	end
+
+	def menuCloseAll__activate(*a)
+		@tabs.try_to_close_all() 
+	end
+
+	def menuSettings__activate(*a)
+		$VR_ENV.show()
+	end
+
+	def menuGlobalSettings__activate(*a)
+		$VR_ENV_GLOBAL.show()
+		@tabs.update_style_all()
+	end
+
+	def menuWWWRubygems__activate(*a)
+		VR_Tools.popen("#{$VR_ENV_GLOBAL.browser} https://rubygems.org/users/new")
+	end
+
+	def menuSaveAll__activate(*a)
+		@tabs.try_to_save_all(false) # don't prompt 
+	end
+
+	def menuNew__activate(*a)
+    @tabs.load_tab()
+	end
+	def menuSaveAs__activate(*a)
+		@tabs.docs[@tabs.page].save_as()
+	end
+
+	def toolRefresh_clicked
+		case @builder['notebookTree'].page
+			when 0 then @file_tree.refresh()
+			when 1 then @gem_tree.refresh()
+			when 2 then @remote_gem_tree.refresh()
+		end
+	end
+
+	def toolSave_clicked()  # saves open tab
+		@tabs.docs[@tabs.page].try_to_save(false)
+	end	
+
+
+	#returns false to abort!
+
+	
+	def menuNewWindow__activate(*a)
+		fn = File.dirname(__FILE__) + "/../../skeleton/document/NewWindow.rb"
+		@tabs.load_tab()
+		@tabs.set_contents(File.open(fn).read)		
+	end
+
+	def menuNewProject__activate(*a)
+		save_state
+		return unless @tabs.try_to_save_all()
+		old_path = @proj_path
+		NewProjectGUI.new(self).show
+		if project_valid?(@proj_path)
+ 			@tabs.try_to_close_all()
+			load_project(@proj_path)
+		else
+			@proj_path = old_path
+		end	
+	end
+
+	def toolBackUp_clicked
+    return unless @tabs.try_to_save_all()
+#		path = File.join(ENV["HOME"], "visualruby_backup", Dir.pwd.gsub(ENV["HOME"], ""))
+		VR_Tools.back_up()
+#		VR::Dialog.message_box("Files backed up to:  \n\n" + path) 
+  end
+
+#	def toolBackUp_clicked
+#    return unless @tabs.try_to_save_all()
+#		path = $VR_ENV.backup_path
+#		return if path.nil?
+#    if File.directory?(path) and path.gsub('\\', '/').include?(ENV["HOME"])
+#			VR_Tools.back_up(Dir.pwd, path)
+#			VR::Dialog.message_box("Files backed up to:  \n\n" + path)
+#		else    
+#  		VR::Dialog.message_box("Backup path must be subdirecory of #{ENV['HOME']}:\n\n InValid: " +  path)
+#			menuSettings__activate
+#    end  
+#  end
+
+
+	def toolIndent_clicked
+		@tabs.docs[@tabs.page].indent($VR_ENV_GLOBAL.tab_spaces)
+  end
+
+	def toolUnIndent_clicked
+		@tabs.docs[@tabs.page].unindent($VR_ENV_GLOBAL.tab_spaces)
+  end
+
+	def toolComment_clicked
+		@tabs.docs[@tabs.page].comment()
+  end
+
+	def toolUnComment_clicked
+		@tabs.docs[@tabs.page].un_comment()
+	end
+
+	def toolRun_clicked
+   	run_command($VR_ENV.run_command_line)
+  end 		
+
+	def run_command(cmd)
+    save_state()
+    return unless @tabs.try_to_save_all(false) # false = don't prompt for changes to files
+		cur_dir = Dir.pwd
+    result = "\n#{cur_dir}$ #{cmd}\n"
+    result += `#{cmd} 2>&1`
+		FileUtils.cd(cur_dir)
+		@shell.hilight_links(result, true)
+	end
+
+  def save_state
+    return if $VR_ENV == nil
+    $VR_ENV.width, $VR_ENV.height = @builder["window1"].size()
+    $VR_ENV.panel_pos = @builder["panelMain"].position
+    $VR_ENV.open_folders = @file_tree.get_open_folders()
+    $VR_ENV.open_files = @tabs.get_open_fn()
+    $VR_ENV.current_file = @tabs.docs[@tabs.page].full_path_file
+    $VR_ENV.save_yaml()
+  end
+
+	def load_state
+    @builder["window1"].resize($VR_ENV.width, $VR_ENV.height)
+    @builder['panelMain'].set_position($VR_ENV.panel_pos)
+    @builder["window1"].visible = true
+    @tabs.open_file_names($VR_ENV.open_files)
+    @tabs.switch_to($VR_ENV.current_file)
+    @file_tree.open_folders($VR_ENV.open_folders)
+    @builder["window1"].show_all
+	end
+
+	def menuCreateGemspec__activate(*a)
+		if file_name = VR_Tools.create_gemspec()
+			@tabs.destroy_file_tab(file_name)
+  		@tabs.load_tab(file_name)
+  		@file_tree.insert(file_name)
+		end
+	end
+
+	def buttonNext_clicked
+		@shell.jump_to()
+	end
+
+	def buttonFind_clicked
+		str = @builder["entryFind"].text
+		str = str.length < 2 ? @tabs.docs[@tabs.page].selected_text() : str
+		return if str.length < 2
+		text = (@builder["radioOnDisk"].active?) ? @tabs.find_in_all(str) : @tabs.find_in_tabs(str)		
+		@shell.hilight_links(text, false)
+	end	
+
+	def buttonReplace_clicked
+		@tabs.docs[@tabs.page].replace(@builder["entryReplace"].text)
+	end
+
+	def entryFind_key_press(me, evt)
+		return if evt.keyval != 65293 #enter key
+		buttonFind_clicked
+	end
+
+	def menuTutorials__activate(*a)
+		VR_Tools.popen("#{$VR_ENV_GLOBAL.browser} http://www.visualruby.net")
+  end
+	
+	def menuInstallExamples__activate(*a)
+		path = File.join(ENV["HOME"], "", "visualruby", "examples")
+		VR_Tools.copy_recursively(File.expand_path(File.join(File.dirname(__FILE__),"","..","..","visualruby_examples")), path) 
+		VR::Dialog.message_box("The example projects are installed in:\n#{path}\nIf you want to uninstall them, just delete the folder.\n\nUse the /home/visualruby folder for all your visualruby projects.")			
+	end
+
+	#needed so tabs can be saved
+  def on_window1_delete_event
+		save_state
+    return true unless @tabs.try_to_save_all()
+    return false #ok to close
+  end
+
+	def destroy_window()    
+		super		    
+#		exit!  # note exit makes it not spit out buffer
+	end
+
+end

data/bin/main/VR_Remote_Gem_Tree.rb

@@ -0,0 +1,70 @@
+
+class VR_Remote_Gem_Tree < GemTree
+
+#	PIX = Gdk::Pixbuf.new(File.dirname(__FILE__) + '/../../img/rb.png')
+
+	include GladeGUI
+
+	def initialize(main)
+		super()
+		@main = main
+#		set_title(PIX => "Gems on rubygems.org")
+		@gems = Hash.new
+		load_glade(__FILE__, main)
+	end
+
+
+	def refresh(force = true)
+		return if @t
+		return unless force or not self.model.iter_first
+		return unless @api.get_key()
+		@t = Thread.new do 
+      @main.shell.buffer.text += "\nContacting rubygems.org..." 
+      self.model.clear
+      return unless @gems = @api.get_obj_url("/api/v1/gems.yaml")
+      @gems.each do |gem|
+        gem_info = @api.get_obj_url("/api/v1/versions/#{gem['name']}.yaml")
+        gem_info.each do |info|
+          self.add_row(:pix => RUBY_ICON, :gem => "#{gem['name']} (#{info['number']})") 
+      	end
+      end
+      @t.join
+		end
+		@t = false
+	end
+
+	def selected_gem
+		row = self.selection.selected[1].split(" (")
+#		ver = row[1].gsub(")","") 
+		@gems.detect { |gem| gem['name'] == row[0] } #and gem['version'] == ver}
+	end
+
+	def popOpenRubygemsPage_clicked 		
+		gem = selected_gem()
+		VR_Tools.popen("#{$VR_ENV_GLOBAL.browser} #{gem['project_uri']}")
+ 	end
+
+	def popOpenHomepage_clicked 
+		gem = selected_gem()
+		VR_Tools.popen("#{$VR_ENV_GLOBAL.browser} #{gem['homepage_uri']}")
+ 	end
+
+#  def remoteGemTree_rclicked(w, event)
+#    if event.event_type == Gdk::Event::BUTTON_RELEASE
+#      if event.button == 3   # right mouse button
+# 				@builder['popGemRemote'].popup(nil, nil, event.button, event.time)
+#      end
+#    end
+#  end
+
+	def popYank_clicked
+		name, ver = get_name_ver(selection.selected[1])
+		reply = @api.yank_gem(name, ver)
+		@main.shell.buffer.text = "Yanking gem: #{name} #{ver}\n" + reply
+		self.model.remove(selection.selected) if reply.include? "OK"
+	end
+
+end
+
+
+    #

data/bin/main/glade/NewProjectGUI.glade

@@ -0,0 +1,141 @@
+<?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">450</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;Create New Project&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="label" translatable="yes">Enter the name for your new project.  A directory will be created under your /home/visualruby directory with that name.  Use only letters and underscores. 
+
+You are free to move the project later.</property>
+                <property name="wrap">True</property>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkTable" id="table1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="n_rows">2</property>
+                <property name="n_columns">2</property>
+                <child>
+                  <object class="GtkEntry" id="entryFolderName">
+                    <property name="visible">True</property>
+                    <property name="can_focus">True</property>
+                    <property name="invisible_char">•</property>
+                    <property name="invisible_char_set">True</property>
+                    <property name="primary_icon_activatable">False</property>
+                    <property name="secondary_icon_activatable">False</property>
+                    <property name="primary_icon_sensitive">True</property>
+                    <property name="secondary_icon_sensitive">True</property>
+                  </object>
+                  <packing>
+                    <property name="left_attach">1</property>
+                    <property name="right_attach">2</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkLabel" id="label3">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <property name="xalign">1</property>
+                    <property name="label" translatable="yes">/home/visualruby/</property>
+                  </object>
+                </child>
+                <child>
+                  <object class="GtkHButtonBox" id="hbuttonbox1">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <property name="layout_style">spread</property>
+                    <child>
+                      <object class="GtkButton" id="buttonCreate">
+                        <property name="label" translatable="yes">Create Project</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="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">1</property>
+                      </packing>
+                    </child>
+                  </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>
+                  <placeholder/>
+                </child>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="padding">12</property>
+                <property name="position">2</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="padding">17</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/bin/main/glade/ProjectChooserGUI.glade

@@ -0,0 +1,140 @@
+<?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">700</property>
+    <property name="height_request">700</property>
+    <property name="visible">True</property>
+    <property name="can_focus">False</property>
+    <property name="title" translatable="yes">Select Visual Ruby Project Root</property>
+    <property name="modal">True</property>
+    <property name="default_width">800</property>
+    <property name="default_height">800</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>
+        <property name="spacing">10</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;Select from the existing projects, or open a new one.&lt;/big&gt;</property>
+            <property name="use_markup">True</property>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="padding">9</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkHBox" id="hbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkScrolledWindow" id="scrolledwindowProjTree">
+                <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">0</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkHButtonBox" id="hbuttonbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="spacing">11</property>
+            <property name="layout_style">center</property>
+            <child>
+              <object class="GtkCheckButton" id="checkBackup">
+                <property name="label" translatable="yes">Show Backup</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">False</property>
+                <property name="use_action_appearance">False</property>
+                <property name="draw_indicator">True</property>
+                <signal name="toggled" handler="checkBackup_toggled" swapped="no"/>
+              </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="GtkButton" id="buttonSelect">
+                <property name="label" translatable="yes">Select Folder</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="buttonSelect_clicked" swapped="no"/>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+            <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>
+                <signal name="clicked" handler="destroy_window" swapped="no"/>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">2</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="buttonOpen">
+                <property name="label" translatable="yes">Open</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">3</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">True</property>
+            <property name="padding">10</property>
+            <property name="position">2</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>