rubyslippers 1.06 → 1.07

data/code/01rwdcore/01rwdcore.rb

@@ -4,11 +4,15 @@
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
 # This class is the top class for the RwdTinker application 
 
+$DEBUG=false
+$VERBOSE=false
+
 class RwdTinker  < RWDialog
 
 	def main
 		@rwd_window = "main"
 		@result = "idle"
+
 		@display= "idle"
 		if TestNow 
 

data/code/01rwdcore/openhelpwindow.rb

@@ -1,6 +1,6 @@
 # this code is to call the help window
 def runhelpwindow
-	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
 	if @rwd_window == "main"
 		if @rwd_tab == "documentsrwdtinkerone"

data/code/01rwdcore/rwdtinkerversion.rb

@@ -4,7 +4,7 @@
 
 # return the version constant defined in the config file
 def tinkerhelpaboutsetup
-return ["RwdTinker","(c) 2004 Steven Gibson ","Version #{RwdTinkerVersion}"]
+return ["RwdTinker","(c) 2004-2008 Steven Gibson ","Version #{RwdTinkerVersion}"]
 end
 
 def runrwdtinkerversion

data/code/superant.com.rubyslippers/0uninstallapplet.rb

@@ -1,4 +1,4 @@
-def wrubyslippers_1_06()
+def wrubyslippers_1_07()
 
 $tinkerdocumentsarray.delete_if {|x| x == "HowTo_RubySlippers.txt"}
 $tinkerhelpaboutarray.delete_if {|x| x == "RubySlippers"}

data/code/superant.com.rubyslippers/gemserve.rb

@@ -1,8 +1,5 @@
 
 def gemservescan
-require "ev/ruby"
-require "ev/net"
-require "ev/rwd"
 
 exit	if $rwd_exit
 

data/code/superant.com.rubyslippers/gemwhich.rb

@@ -1,7 +1,7 @@
 #gemwhich command
   def rungemwhichcommand
    
-    commandtext = "gem which " + @a_gemwhichcommandinput.to_s + " " + @a_gemcommandoptioninput.to_s
+    commandtext = "gemwhich " + @a_gemwhichcommandinput.to_s + " " + @a_gemcommandoptioninput.to_s
     commandtemp = $xpcommand  + commandtext
     begin # exception trapped block
          

data/code/superant.com.rubyslippers/test_cases.rb

@@ -3,8 +3,7 @@
 	
 require 'test/unit/testcase'
 require 'test/unit/assertions'
-include Test::Unit::Assertions
-include Test::Unit  
+  
 def rubyslippers_all_tests 
 	print "in rubyslippers all tests\n"
   $testrubyslipperstestcase = TestSuite.new

data/code/superant.com.rwdtinkerbackwindow/initiateapplets.rb

@@ -26,94 +26,40 @@
 # integrate the new configuration files
 def initiateapplet(nametextlocal)
 	
-begin
+	debuginitiate = 0
+	
+	if $DEBUG
+ $stderr.puts "starting config load with: #{nametextlocal}"
+        end
+
 
   Dir.chdir($progdir )    #changes the current working directory
 	  
   @confignew =  "configuration/" + "#{nametextlocal}.cnf"
   @configdist =  "configuration/" + "#{nametextlocal}.dist"
   Rconftool::install(@configdist,@confignew)
- 
-  configfileload = File.open(@confignew){|f| f.read}
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
 	 
        eval configfileload  #load  config file
        
-     setuphelpaboutoptions # update the help about list
-       setuptinkerdocuments # update the document pull down list
-       runhelpwindow   # update the help menu
-        showjumplinkoptions # update the application link menu
-	runrwdtinkerbackwindow # back to applet window
+    
 	
-	# build the actual GUI from the gui parts
-  $tempdoc = " "
-  #get a list of the files and subdirectories on the starting directory only
-  a = Array.new(Dir[GuiDir].entries.sort)
-  #loop through the list, ignore the files and add all new directories found
-  a.each do |x|
-	  #if a directory...
-	  if(test(?d,x))
-		  #use this new dir find to add to the original list of directories
-		  @@root = x + "/**"
-		  #adds the new ones to the array
-		  b = Dir[@@root].entries.sort
-		  b.each do |x|
-			  if(test(?d,x))
-				  a.push(x)  #appends to the end of the array...
-			  end
-		  end
-	  end
-  end
-  a.each do |x|
-	  #if it is a file...
-	  if(!test(?d,x)) 
-		  a.delete(x)
-
-	  else #it is a directory...
-		  loadguifile(x + "/**")
-	  end
-  end
-
-$rwd_gui_tinker = $tempdoc
-
-# now load in the code files
-
-$tempdoc  = ""
-tempcodeinstallline  = ""
-
-         @fileName = "installed/" + nametextlocal + ".inf"
-	
-  tmpfilearray = File.readlines(@fileName)
-  
-  tmpfilearray.each do |line|
-	  
-       tempcodeinstallline = line.chomp
-       if tempcodeinstallline.include?('code/')
-	     findfiles(tempcodeinstallline  + "/**")
-            tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
-       end
-end 
-  
-# resultend =  tempcodeinstallline .index("\n",resultstart)
- tempresult  = @fileName
- 
-return " applet loading successful " + tempresult 
-
- rescue
+	 rescue
    
-    return " initiateapplet .."
-
-  end
-
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - config load"
+          end
+        debuginitiate += 1
 end
-
-=begin
-
-
+$tempdoc = " "
+  
   Dir.chdir($progdir) # change back to top program directory
 
   # build the English Language hash file from the parts
-  languagehashvariable = 'Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
-  langmessage = {' + "\n"
+  languagehashvariable = 'Message.update('
   startlangdir = File.join(LangDir,"en")
   #get a list of the files and subdirectories on the starting directory only
   alanghash = Array.new(Dir[startlangdir].entries.sort)
@@ -143,7 +89,9 @@ end
 
 
   #writes the contents of doc into the  languagehashvariable 
-  languagehashvariable  =  languagehashvariable + $tempdoc + "}  ; langmessage.each { |kk, vv| Message[kk] = vv }"
+
+  
+  languagehashvariable  =  languagehashvariable + $tempdoc + ' :rwdtinker => "Rwdtinker" ) ;'
 
   # END of en Lang building
   $tempdoc = " "
@@ -179,22 +127,114 @@ end
 
 
   #writes the contents of doc into the variable
-  languagehashvariable =  languagehashvariable  + " ; Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
-
 
+ languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
+ 
+  
+    
   $tempdoc = " "
 
   Dir.chdir($progdir) # change back to top program directory
 
-  temp = eval(   languagehashvariable )
+   temp = eval(   languagehashvariable )
 
+  
+  tempguistorage = $rwd_gui_tinker # if gui load fails restore old
+  begin # error trap
+  
+	# build the actual GUI from the gui parts
   $tempdoc = " "
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[GuiDir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  a.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  #use this new dir find to add to the original list of directories
+		  @@root = x + "/**"
+		  #adds the new ones to the array
+		  b = Dir[@@root].entries.sort
+		  b.each do |x|
+			  if(test(?d,x))
+				  a.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  a.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x)) 
+		  a.delete(x)
 
- 
+	  else #it is a directory...
+		  loadguifile(x + "/**")
+		  
+		  
+	  end
+  end
+
+$rwd_gui_tinker = $tempdoc
 
+  
+ rescue
+    $rwd_gui_tinker = tempguistorage # restore old gui
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - gui building"
+          end
+
+        debuginitiate += 1
+end
+
+begin # error trap
+# now load in the code files
+
+$tempdoc  = ""
+tempcodeinstallline  = ""
+
+         @fileName = "installed/" + nametextlocal + ".inf"
 	
+  tmpfilearray = File.readlines(@fileName)
+  
+  tmpfilearray.each do |line|
+	  
+       tempcodeinstallline = line.chomp
+       if tempcodeinstallline.include?('code/')
+	     findfiles(tempcodeinstallline  + "/**")
+            tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
+       end
+end 
+
+
+ rescue
+    if $DEBUG
+              $stderr.puts  "error in initiateapplets - code building"
+          end
+        debuginitiate += 1
+    
+
+  end
+  
+ setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+
+ # resultend =  tempcodeinstallline .index("\n",resultstart)
+ tempresult  = @fileName
+ 
+return " applet loading successful " + tempresult 
+
+
+  
+       if  debuginitiate > 0
+         return " initiateapplet .."
+       else
+	   return " initiateapplet success"
+	end
+
+end
 
 
-=end
 
   

data/code/superant.com.rwdtinkerbackwindow/installgemapplet.rb

@@ -1,7 +1,7 @@
 # install rwdtinker applet from a long directory location 
 def installgemapplet
 	require 'fileutils'
-	require 'extras/zip/zip'
+	require 'lib/zip/zip'
 	nametext = "%s" % [@a_installapplet]
 
 	begin # exception trapped block
@@ -12,6 +12,16 @@ def installgemapplet
 			|entry|
 			zf.extract(entry.to_s, entry.to_s)
 		}
+		
+		rescue
+		
+	if $DEBUG
+	$stderr.puts "unzip error - applet may not be installed correctly"
+       end
+        @installapplettext = " .. "
+	
+	end # exception rescue
+	
 		@nametextbase = File.basename(nametext)
 		@returninitateresults = initiateapplet(@nametextbase)
 		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 
@@ -19,9 +29,6 @@ def installgemapplet
 				
        RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
 
-	rescue
-		@installapplettext = "unzip error - applet may not be installed correctly"
-		
-	end # exception rescue
+	
 end
 

data/code/superant.com.rwdtinkerbackwindow/viewappletcontents.rb

@@ -1,7 +1,7 @@
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'
-	require 'extras/zip/zip'
+	require 'lib/zip/zip'
 	nametext = "%s" % [@a_installapplet]
 
 	begin # exception trapped block

data/code/superant.com.rwdtinkerbackwindow/viewgemappletcontents.rb

@@ -1,7 +1,7 @@
 #view gem info
 def viewgemappletcontents
 	require 'fileutils'
-	require 'extras/zip/zip'
+	require 'lib/zip/zip'
 	nametext = "%s" % [@a_installapplet]
 
 	begin # exception trapped block

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.72
+##VERSION:1.76
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -14,5 +14,5 @@ LangDir = "lang"
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
 Browser_Exe = 'mozilla '
 $tinkerdocumentsarray +=["HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
-RwdTinkerVersion = "1.72"
+RwdTinkerVersion = "1.76"
 

data/configuration/wrubyslippers-1.07.dist

@@ -0,0 +1,24 @@
+##VERSION:1.07
+##NAME:$gemdirectory:0
+#$gemdirectory = "c:\\ruby\\lib\\ruby\\gems\\1.8"  # XP machine
+$gemdirectory = "/usr/lib/ruby/gems/1.8/gems" # Linux machine
+##NAME:$gemspecificationsdirectory:0
+#$gemspecificationsdirectory = "c:\\ruby\\lib\\ruby\\gems\\1.8\\specifications" # XP
+$gemspecificationsdirectory = "/usr/lib/ruby/gems/1.8/specifications"
+##NAME:$xpcommand:0
+#$xpcommand = "cmd /C "  # XP machines with cmd shell
+$xpcommand = " "     # Linux machines
+##NAME:$gemspec_directory:0
+$gemspec_directory = "/usr/lib/ruby/gems/1.8/specifications"
+##NAME:$gembuild_directory:0
+$gembuild_directory = "/usr/src/rubygems"
+$tinkerdocumentsarray += ["HowTo_RubySlippers.txt"]
+##NAME:$testharnessarray:0
+$testharnessarray += ["rubyslippers_all_tests"]
+$tinkerhelpaboutarray += ["RubySlippers"]
+##NAME: JumpLink:0
+JumpLink.update(:RubyslippersWindow=>"runrubyslippersbackwindow",:GemCommands=>"runrubyslippersmenu1",   :GemspecUtilities =>"runrubyslippersmenu8",  :RubyslippersConfiguration=>"runrubyslippersmenu10" )
+##NAME:$rwdjumplink:0
+$rwdjumplink +=["RubyslippersWindow","GemCommands","GemspecUtilities","RubyslippersConfiguration"]
+##NAME: RubySlippersVersion:0
+RubySlippersVersion = "1.07"

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"RubySlippers - RwdTinker\">
+  <window name=\"main\" title=\"RubySlippers - Gem interface for rwdtinker\">
 <tabs>"

data/gui/frontwindowselections/{superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd → jumplinkcommands.rwd}

@@ -2,7 +2,7 @@ $rwdguivar=
 "
 <horizontal>
 <button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
-
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
 </horizontal>
  <table>
       <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>

data/gui/tinkerbackwindows/superant.com.rubyslippers/75gemwhich.rwd

@@ -8,8 +8,7 @@ $rwdguivar=
     </table>
     
     <horizontal>
-      <button caption=\"Search\" action=\"rungemwhichcommand\"/>
-      <button caption=\"show Gem environment \" action=\"showgemenvironment\"/>
+      <button caption=\"Find Gemwhich \" action=\"rungemwhichcommand\"/>
       <button caption=\"Help\" action=\"runhelpwindowrubyslippers\"/>
     </horizontal>
     <table>
@@ -18,5 +17,4 @@ $rwdguivar=
       </p></row>
       </table>
       <p>%gemwhichresult%</p>
-      <p>%viewgemcommandresult%</p>
 	</tab>"

data/gui/tinkerbackwindows/superant.com.rubyslippers/90gemserverscan.rwd

@@ -6,10 +6,10 @@ $rwdguivar=
     </horizontal>
 <p>%showgemservescanresult%</p> 
  <table>
-      <row> <p align=\"right\">If the gem doc server is not running, you can start it with the command gem server at a command prompt </row>
+      <row> <p align=\"right\">If the gem doc server is not running, you can start it with the command gem_server at a command prompt </row>
     </table>
       <horizontal>
-      <row> <p align=\"right\">If the gem doc server is running (on port 8808) you can click below</row>
+      <row> <p align=\"right\">If the gem doc server is running you can click below</row>
       <a href=GemDocuments.html>View Doc files for installed Gems</a></p></row>
   </horizontal>
   	</tab>"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/81jumplinkcommands.rwd

@@ -3,7 +3,7 @@ $rwdguivar=
 <tab name=selectiontab caption=#{Message[:selection_tab]}>
 <horizontal>
 <button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
-
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
 </horizontal>
  <table>
       <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>

data/init.rb

@@ -21,9 +21,9 @@
 #* at "smalllinux@gmail.com".
 #***********************************************************************/
 
-require "ev/rwd"
+require "lib/rwd/rwd"
 require 'fileutils'
-require 'extras/rconftool'
+require 'lib/rconftool'
 
 $progdir = File::expand_path( File.dirname(__FILE__))
 

data/installed/{wrubyslippers-1.06.inf → wrubyslippers-1.07.inf}

@@ -6,5 +6,10 @@ code/superant.com.rubyslippersbackwindow
 tests/gemspec-wrubyslippers
 tests/makedist-wrubyslippers.rb
 rwd_files/HowTo_RubySlippers.txt
-configuration/wrubyslippers-1.06.dist
-configuration/wrubyslippers-1.06.cnf
+lang/en/rubyslippers/languagefile.rb
+lang/es/rubyslippers/languagefile.rb
+lang/fr/rubyslippers/languagefile.rb
+lang/jp/rubyslippers/languagefile.rb
+lang/nl/rubyslippers/languagefile.rb
+configuration/wrubyslippers-1.07.dist
+configuration/wrubyslippers-1.07.cnf

data/lang/en/rwdcore/languagefile.rb

@@ -12,10 +12,9 @@
  :fill_record => '"Fill Record"',
    :help       => '"Help"',
  :help_about => '"Help About"',
-   :installgem  => '"Install Gem"'  ,
  :install_applet => '"install (rwdtinker) applet"',  
  :jumptoapplication_location => '"Jump to Application Location"', 
- :list_applets   => '"List Applets"',
+ :list_applets   => '"Remove Applets"',
  :listappletsinthegem_directory => '"List applets in the Gem Directory"',
  :listappletsavailablefor_installation => "List applets available for installation",   
   :list_files => '"List Files"',          
@@ -43,8 +42,8 @@
   
  :save     => "Save" ,   
  :save_changes   => '"Save Changes"',
- :selection_panel => '"Selection Panel"',
- :selection_tab => '"Selection Tab"',
+ :selection_panel => '"Menu Panel"',
+ :selection_tab => '"Menu Tab"',
  :tinker_logo         => "Tinker Logo",
  :tinkerback_window => '"Tinker Back Window"',
  :viewapplet_contents => '"View Applet Contents"',

data/lang/es/rubyslippers/languagefile.rb

@@ -1,10 +1,7 @@
-# rubyslippers lang file
-:list_installed_gems => "list installed gems",
-:installgem => "install gem" ,
-:gemfiles => "gem files installed",
-:viewgem => "view gem data" ,
-:gem_name  => "gem name" ,
-:opengemspec  => "view gem data",
-:gemcommands => "gem commands" ,
-:gemdocs => "gem docs scan",
-
+  :gemcommands => '"Gem Commands"',   
+   :gemfiles => '"Gem Files"'   ,  
+   :gemdocs  => '"Gem Documents"'  ,  
+   :gem_name  => '"Gem Name"'        ,
+  :view_gem    => '"View Gem"',  
+  :viewgem    => '"View Gem"',  
+   :installgem  => '"Install Gem"'  ,

data/lang/es/rwdcore/languagefile-es.rb

@@ -10,13 +10,8 @@
  :edit             =>   "Editar" , 
  :file_name => '"Fila Nombre:"',
  :fill_record => '"Fill Record"',
-  :gem_commands => '"Comando de Gems"',   
-  :gem_files => '"Gem Archivos"'   ,  
-  :gem_docs  => '"Gem Documentos"'    ,  
-  :gem_name  => '"Gem Nombre"'      ,
   :help       => '"Ayuda"',
  :help_about => '"Ayuda sobre"',
-  :install_gem  =>  '"instale Gem"' ,
  :install_applet => '"instale (rwdtinker) applet"',  
  :jumptoapplication_location => '"Jump to Application Location"', 
  :list_applets   => '"List Applets"',
@@ -61,7 +56,6 @@
  :view_platform => '"view platform"', 
  :viewplatform_information => '"View Platform Information"',  
  :view_event => '"Ver evento"',       
- :view_gem    => '"Ver Gem"',  
  :viewinstall_text => '"Ver Texto"'   ,
  :viewlistinstall_files => '"View List of Installed Files"', 
  :view_photo => '"Ver Photo"' ,  

data/lang/fr/rubyslippers/languagefile.rb

@@ -1,10 +1,6 @@
-# rubyslippers lang file
-:list_installed_gems => "list installed gems",
-:installgem => "install gem" ,
-:gemfiles => "gem files installed",
-:viewgem => "view gem data" ,
-:gem_name  => "gem name" ,
-:opengemspec  => "view gem data",
-:gemcommands => "gem commands" ,
-:gemdocs => "gem docs scan",
-
+  :gemcommands => '"Gem Commands"',   
+   :gemfiles => '"Gem Files"'   ,  
+   :gemdocs  => '"Gem Documents"'  ,  
+   :gem_name  => '"Gem Name"'        ,
+  :view_gem    => '"View Gem"',  
+   :installgem  => '"Install Gem"'  ,

data/lang/jp/rubyslippers/languagefile.rb

@@ -1,10 +1,6 @@
-# rubyslippers lang file
-:list_installed_gems => "list installed gems",
-:installgem => "install gem" ,
-:gemfiles => "gem files installed",
-:viewgem => "view gem data" ,
-:gem_name  => "gem name" ,
-:opengemspec  => "view gem data",
-:gemcommands => "gem commands" ,
-:gemdocs => "gem docs scan",
-
+  :gemcommands => '"Gem Commands"',   
+   :gemfiles => '"Gem Files"'   ,  
+   :gemdocs  => '"Gem Documents"'  ,  
+   :gem_name  => '"Gem Name"'        ,
+  :view_gem    => '"View Gem"',  
+   :installgem  => '"Install Gem"'  ,

data/lang/nl/rubyslippers/languagefile.rb

@@ -1,10 +1,6 @@
-# rubyslippers lang file
-:list_installed_gems => "list installed gems",
-:installgem => "install gem" ,
-:gemfiles => "gem files installed",
-:viewgem => "view gem data" ,
-:gem_name  => "gem name" ,
-:opengemspec  => "view gem data",
-:gemcommands => "gem commands" ,
-:gemdocs => "gem docs scan",
-
+  :gemcommands => '"Gem Commands"',   
+   :gemfiles => '"Gem Files"'   ,  
+   :gemdocs  => '"Gem Documents"'  ,  
+   :gem_name  => '"Gem Name"'        ,
+  :view_gem    => '"View Gem"',  
+   :installgem  => '"Install Gem"'  ,