rubyslippers 1.04 → 1.06

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

@@ -3,9 +3,9 @@ def saveconfigurationrecord
 	require 'fileutils'
 	if @a_configurationfilename
 		newname = "%s" %   [@a_configurationfilename] # grab the filename to create
-		newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s + "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.to_s + "\n"
+		newdata =@a_configurationfile
 
-		begin # exception trapped block
+          begin # exception trapped block
 			fileName = File.join( ConfigurationDir, newname )
 			fd = File.open(fileName,"w")
 			fd.print(newdata) # save the record info to the file

data/configuration/language.dist

@@ -1,7 +1,8 @@
-##VERSION:1.62
+##VERSION:1.69
 #language selection file
 ##NAME:$lang:0
 #$lang = "jp"
 $lang= "en"
 #$lang= "nl"
 #$lang= "es"
+#$lang= "fr"

data/configuration/rubyslippers.dist

@@ -1,17 +1,2 @@
-##VERSION:1.04
-##NAME:$gemdirectory:0
-#$gemdirectory = "c:\\ruby\\lib\\ruby\\gems\\1.8"  # XP machine
-$gemdirectory = "/usr/lib/ruby/gems/1.8" # 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/src/rubygems"
-##NAME:$gembuild_directory:0
-$gembuild_directory = "/usr/src/rubygems"
-##NAME:$testharnessarray:0
-$testharnessarray += ["rubyslippers_all_tests"]
-RubySlippersVersion = "1.04"
+##VERSION:1.06
+RubySlippersVersion = "1.06"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.63
-$rwdapplicationidentity = "rubyslippers gem frontend"
+##VERSION:1.69
+$rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.68
+##VERSION:1.72
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -9,7 +9,10 @@ LangDir = "lang"
   $help_topic = "general_help"
    $helptopicsarray = [ "general_help","network_help"]
   $prevouswindow ="main" 
-   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]   # remote control code not actived 2007
  $port = 7705
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
-RwdTinkerVersion = "1.68"
+Browser_Exe = 'mozilla '
+$tinkerdocumentsarray +=["HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
+RwdTinkerVersion = "1.72"
+

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.69
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add
@@ -7,11 +7,11 @@ $zipslocation = "zips" # location of applets to add
  $xpcommand = " "  # Linux machines
 # $xpcommand =  "cmd /C "  # XP machines with cmd shell
 ##NAME:$gemdirectory_withgemfiles:0
- $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+ $gemdirectory_withgemfiles = "/var/lib/gems/1.8/gems"
 # $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
 ##NAME:$geminstalled_directory:0
 # $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
- $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
+ $geminstalled_directory = "/var/lib/gems/1.8/gems" # Debian Linux
 
 RwdTinkerWin2Version = "0.8"
 

data/configuration/wrubyslippers-1.06.dist

@@ -0,0 +1,17 @@
+##VERSION:1.06
+##NAME:$gemdirectory:0
+$gemdirectory = "/var/lib/gems/1.8" # Linux machine #$gemdirectory = "c:\\ruby\\lib\\ruby\\gems\\1.8"  # XP machine
+##NAME:$gemspecificationsdirectory:0
+$gemspecificationsdirectory = "/var/lib/gems/1.8/specifications" # $gemspecificationsdirectory = "c:\\ruby\\lib\\ruby\\gems\\1.8\\specifications" # XP
+##NAME:$xpcommand:0
+$xpcommand = " "     # Linux machines #$xpcommand = "cmd /C "  # XP machines with cmd shell
+##NAME:$gemspec_directory:0
+$gemspec_directory = "/var/lib/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",  :GemspecEditor=>"runrubyslippersmenu7",  :GemspecUtilities =>"runrubyslippersmenu8",  :RubyslippersConfiguration=>"runrubyslippersmenu10" )

data/ev/net.rb

@@ -784,8 +784,8 @@ class HTTPServer
               end
 
               if (not remote) or (remote and (auth.nil? or auth.empty? or authenticate(auth, realm, req, resp)))
-                $stderr.puts "#{count2} #{Time.new.strftime("%Y-%m-%d %H:%M:%S")} #{ip} #{req.user} #{req.request.to_s.strip}"
-
+            #    $stderr.puts "#{count2} #{Time.new.strftime("%Y-%m-%d %H:%M:%S")} #{ip} #{req.user} #{req.request.to_s.strip}"
+             1 == 1
                 begin
                   yield(req, resp)
                 rescue Exception => e

data/ev/rwd.rb

@@ -635,7 +635,7 @@ class RWDWindow
 
   def initialize(rwd, window=nil)
     rwd	= rwd.join("\n")	if rwd.kind_of?(Array)
-
+  
     if @@windows[rwd].nil?
       @@windows[rwd]		= {}
       @@helpwindows[rwd]	= {}
@@ -666,6 +666,8 @@ class RWDWindow
 
     vars	= vars.deep_dup
 
+begin # error wrap
+
     vars.each do |key, value|
       if not key.empty?
         if value.respond_to? "to_s"
@@ -721,6 +723,12 @@ class RWDWindow
 
     html
   end
+  
+  rescue 
+  if $DEBUG
+  $stderr.puts  "error in RWDWindow - render method"
+  end
+  end
 end
 
 class RWDMessage < RWDWindow
@@ -763,8 +771,10 @@ class RWDDone < RWDWindow
 end
 
 class RWDialog
+	
   def initialize(xml)
-    @rwd_xml			= xml
+    @rwd_xml			=  $rwd_gui_tinker
+    # change from default ev - was xml
     @rwd_exitbrowser		= false
     @rwd_history		= []
     @rwd_ignore_vars		= []
@@ -818,6 +828,7 @@ class RWDialog
     help		= false
     back		= false
     tab			= ""
+    @rwd_progress_thread = nil
     @rwd_msgtype	= nil	if @rwd_progress_thread.nil?
     @rwd_download	= nil
     @rwd_download_file	= nil
@@ -833,7 +844,7 @@ class RWDialog
 		# Copy the vars from the window to vars. vars wil later on be copied to instance variables.
 
     post.sort.each do |key, value|
-      puts "Post: #{key} -> #{value.from_html.inspect}"	if $rwd_debug
+      puts  "Post: #{key} -> #{value.from_html.inspect}"	if $rwd_debug
 
       vars[key]	= value.from_html
     end
@@ -910,7 +921,7 @@ class RWDialog
 
       if (not back) or @rwd_call_after_back.include?(@rwd_action)
         unless @rwd_action =~ /^rwd_/
-          puts "Method: #{@rwd_action}(#{@rwd_args.join(", ")})"	if $rwd_debug
+          puts  "Method: #{@rwd_action}(#{@rwd_args.join(", ")})"	if $rwd_debug
           if methods.include?(@rwd_action)
             method(@rwd_action).call(*@rwd_args)
           else
@@ -948,7 +959,7 @@ class RWDialog
 		# just ignore.
 
     vars.sort.each do |key, value|
-      puts "Pre: #{key} -> #{value.inspect}"	if $rwd_debug
+      puts  "Pre: #{key} -> #{value.inspect}"	if $rwd_debug
     end
 
 
@@ -971,11 +982,20 @@ class RWDialog
             res << RWDError.new(@rwd_msg).render(pda)	if @rwd_msgtype == "error"
             res << @rwd_msg				if @rwd_msgtype == "text"
           else
-            puts "Window: #{@rwd_window}"		if $rwd_debug
-            puts "Tab: #{@rwd_tab}"		if $rwd_debug
-
-            res << RWDWindow.new(@rwd_xml, @rwd_window).render(pda, @rwd_refresh_action, vars, @rwd_switches, help, @rwd_tab)
-          end
+           puts   "Window: #{@rwd_window}"		if $rwd_debug
+            puts  "Tab: #{@rwd_tab}"		if $rwd_debug
+
+begin # error block
+      if @rwd_window.empty? 
+	      @rwd_window = "main"
+	      end
+            res << RWDWindow.new($rwd_gui_tinker, @rwd_window).render(pda, @rwd_refresh_action, vars, @rwd_switches, help, @rwd_tab)
+rescue
+ if $DEBUG
+ $stderr.puts  "error in render"
+ end
+ end
+end
         end
       end
     end

data/extras/zip/zip.rb

@@ -1047,8 +1047,9 @@ module Zip
 
     def write_file(entry, destPath, continueOnExistsProc = proc { false })
       if File.exists?(destPath) && ! yield(entry, destPath)
-	raise ZipDestinationFileExistsError,
-	  "Destination '#{destPath}' already exists"
+
+#	raise ZipDestinationFileExistsError,
+	$stderr.puts  "Destination '#{destPath}' already exists"
       end
       File.open(destPath, "wb") { 
 	  |os|

data/gui/00coreguibegin/applicationguitop.rwd

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

data/gui/frontwindow0/viewlogo/cc0openphoto.rwd

@@ -0,0 +1,22 @@
+$rwdguivar=  
+	
+"	
+	<tab name=\"viewtinkerlogo\" caption=\"Tinker\">
+
+    <table>
+      <row> <p align=\"right\">#{Message[:tinker_logo]}</row>
+
+    </table>
+    <image src=\"tinker.png\"> </image>
+    <table>
+      <row> <p></row>
+
+    </table>
+      <horizontal>
+      
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
+      
+      
+     </horizontal>
+
+	</tab>"

data/gui/frontwindowselectionbegin/selectiontabbegin/{selectiontabbegin.rwd → 00selectiontabbegin.rwd}

@@ -1,6 +1,6 @@
 $rwdguivar=
 "	
-      <tab name=\"selectiontab\" caption=#{Message[:selection_panel]}>
+      <tab name=\"selectiontab\" caption=#{Message[:menu_panel]}>
 
       <table>
       <row> <p align=\"right\">Open a new location </row>

data/gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
 
 </horizontal>
  <table>
@@ -10,6 +10,6 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
     </horizontal>
 "

data/gui/frontwindowtdocuments/superant.com.documents/tinkerdocuments.rwd

@@ -0,0 +1,14 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showdocument_list]} action=\"setuptinkerdocuments\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_tinkerdocumentinput\">  %%tinkerdocumentsarray%% </select>
+
+   </table>
+<horizontal>
+      <button caption=#{Message[:open_document]} action=\"runopentinkerdocument\"/>
+  </horizontal>
+"

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzdocumentend.rwd

@@ -0,0 +1,8 @@
+$rwdguivar=
+"     
+<horizontal>       
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
+      
+    </horizontal>
+	</tab>"
+	

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzzzhelpscreenstart.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"main\" title=#{Message[:help_about]}>"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/helpabouttab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
+    </horizontal>
+"

data/gui/helpaboutzend/superant.com.helpaboutend/zhelpscreenstart2.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"tinkerbackwindow\" title=#{Message[:help_about]}>"

data/gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpabout2.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
+    </horizontal>
+"

data/gui/{tinkerbackwindows/superant.com.rubyslippersbackwindow/m99selection.rwd → helpaboutzend/superant.com.helpaboutend/zzzzhelpscreen2end.rwd}

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
-	</tab>"
+</helpwindow>"

data/gui/tinkerbackwindows/superant.com.rubyslippers/00rubyslipperstop.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"<application>
+  <window name=\"rubyslippersmain\" title=\"RubySlippers for RubyGem\">
+<tabs>"