bigtinker 0.94 → 0.95

data/code/superant.com.rwdshell/loadconfigurationrecord.rb

@@ -3,26 +3,19 @@
  
          require 'fileutils'
           
-               @a_rshellconfigurationfilename = "rwdshell.cnf" 
-        
+               rwdshellname = "rwdwshell-" + RwdShellVersion + ".cnf"
+               @a_rshellconfigurationfilename = rwdshellname 
+               
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, "rwdshell.cnf")
+	      fileName = File.join(ConfigurationDir, rwdshellname)
         
         
 	      fd = File.open(fileName,"r")
-	      @a_rshellconfigline1=        fd.readline.chomp
-	      @a_rshellconfigline2 =  fd.readline.chomp
-        @a_rshellconfigline3 = fd.readline.chomp
-          @a_rshellconfigline4 = fd.readline.chomp
-        @a_rshellconfigline5 = fd.readline.chomp
-         @a_rshellconfigline6 = fd.readline.chomp 
-          @a_rshellconfigline7 =fd.readline.chomp
-          @a_rshellconfigline8 = fd.readline.chomp
-           @a_rshellconfigline9 = fd.readline.chomp
-	 
+	      @a_rshellconfiguration=        fd.read
+	     
 
 
         fd.close

data/code/superant.com.rwdshell/loadconfigurationvariables.rb

@@ -1,13 +1,14 @@
    # this method loads the on screen variables into the running class
-   def loadrubyslippersconfigurationvariables
+   def loadrwdshellconfigurationvariables
+    rwdshellname = "rwdwshell" + RwdShellVersion + ".cnf"
    
-   configfiletoload = File.join(ConfigurationDir,"rubyslippers.cnf")
+   configfiletoload = File.join(ConfigurationDir, rwdshellname )
    begin
     load configfiletoload
-    @extrarsconfigdatadisplay = ""
-@newrsconfigurationresult = "Config Variables loaded"
+    @extrarshellconfigdatadisplay = ""
+@newrshellconfigurationresult = "Config Variables loaded"
 rescue
  @extrarsconfigdatadisplay = ""
- @newrsconfigurationresult = "loading error"
+ @newrshellconfigurationresult = "loading error"
  end
   end

data/code/{superant.com.rwdcalc/loadrubyrecord.rb → superant.com.rwdshell/loadrubyscriptrecord.rb}

@@ -2,16 +2,16 @@
   def loadrubyscriptrecord
  
          require 'fileutils'
-         $currentrubyname = @a_rubyscriptfilename 
+          currentscriptname = @a_rubyscriptfilename
 	      
         begin # exception trapped block
        
        
-	      fileName = $rubyscript_directory + "/" + $currentrubyname + ".rb"
+	      fileName = $shellscript_directory + "/" + currentscriptname + ".rb"
         
 	      fd = File.open(fileName,"r")
 	      @a_rubyscriptrecord  =        fd.read
-               @newrubyrecord = @a_rubyscriptrecord	      
+	      
         fd.close
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!

data/code/superant.com.rwdshell/rubyeval.rb

@@ -3,22 +3,25 @@
       self << str
     end
    def rubyeval
-     require 'Env'
+     
      require 'English'
-    commandtextruby = "%s " % [@a_rubyeval]
-     $tmpout = $stdout # save the original STDOUT
-     $stdout = $buffer
+#     $tmpout = $stdout # save the original STDOUT
+#     $stdout = $buffer
     begin      # begin rescue monitored block	
-	eval( commandtextruby )
 
-        @rubydisplay = $stdout
+    commandtextruby = "%s " % [@a_rubyeval]
+
+# @rubydisplay = "hello"
+ 
+ @rubydisplay  = eval( commandtextruby ).to_s
+
     
-    $stdout = $tmpout # restore STDOUT to normal
+
         
-	rescue # process exeption
-	$stdout = $tmpout # restore STDOUT to normal
-	 @rubydisplay = "\n" + "error in eval"
-	 end # end of rescue process  # of rescure monitored block        
+ rescue # process exeption
+	# $stdout = $tmpout # restore STDOUT to normal
+ @rubydisplay = "\n" + "error in eval"
+ end # end of rescue process  # of rescure monitored block        
 	
 
   end

data/code/superant.com.rwdshell/runrwdshellwindow.rb

@@ -1,12 +1,12 @@
-# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# Application Rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a contact book
 # For more information about  see http://www.rubyforge.net/projects/rwdapplications
   
   # call the window  
   def runrwdshellwindow
 
-   @rwd=window = "main"
-   @rwd_tab="scriptlister"
+   @rwd_window = "rwdshellwindow"
+   @rwd_tab="rwdshellruby"
    
    end   
    

data/code/{superant.com.words → superant.com.rwdshell}/rwdtinkerversion.rb

@@ -3,8 +3,8 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
-def rwdwordshelpaboutsetup
-return ["RwdWords","(c) 2004,2005 Steven Gibson ","Version #{RwdWordsVersion}"]
+def rwdshellhelpaboutsetup
+return ["RwdShell","(c) 2004,2005 Steven Gibson ","Version #{RwdShellVersion}"]
 end
 
-
+  

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

@@ -1,16 +1,16 @@
   # this method adds a new address record
-  def saverubyslippersconfiguration
+  def saverwdshellconfiguration
    require 'fileutils'
-   
-   newname = "rubyslippers.cnf" # grab the filename to create
-   newdata =@a_rsconfigline1.to_s + "\n" + @a_rsconfigline2.to_s + "\n" + @a_rsconfigline3.to_s + "\n" + @a_rsconfigline4.to_s + "\n" + @a_rsconfigline5.to_s + "\n" + @a_rsconfigline6.to_s + "\n" + @a_rsconfigline7.to_s + "\n" + @a_rsconfigline8.to_s + "\n" + @a_rsconfigline9.to_s + "\n"
+   rwdshellname = "rwdwshell-" + RwdShellVersion + ".cnf"
+   newname = rwdshellname # grab the filename to create
+   newdata =@a_rshellconfiguration
 	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )
         	fd = File.open(fileName,"w")
 	        fd.print(newdata) # save the record info to the file
 	        fd.close
-          @newconfigurationresult=newdata # show the record info in the browser
+          @newrshellconfigurationresult=newdata # show the record info in the browser
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!
         end # exception rescue

data/code/{superant.com.rwdcalc/saverubyscript.rb → superant.com.rwdshell/saverubyrecord.rb}

@@ -2,16 +2,15 @@
 def saverubyrecord # this method adds a new script file
   require 'fileutils'
   if @a_rubyscriptfilename   
-   newdata =@a_rubyscriptrecord.to_s     
+   newdata =@a_rubyscriptrecord.to_s    
 	 fullnewname = @a_rubyscriptfilename.to_s + ".rb"
- begin  # exception trapped block
-         fileName = File.join( $rubyscript_directory, fullnewname )
-         puts fileName
+        begin # exception trapped block
+         fileName = File.join( $shellscript_directory, fullnewname )
         	fd = File.open(fileName,"w")
 	        fd.print(newdata) # save the record info to the file
 	        fd.close
           @newrubyresult=newdata # show the record info in the browser
-   $currentscriptname = "%s" %   [@a_rubyscriptfilename] # grab the new filename to create
+   
 
        rescue 
             @newrubyresult = "\n" + "system error in createnew method"

data/code/{superant.com.rwdaddresses → superant.com.rwdshell}/test_cases.rb

@@ -3,26 +3,25 @@
 	
 require 'test/unit/testcase'
 require 'test/unit/assertions'
-include Test::Unit::Assertions
-include Test::Unit  
-def rwdaddresses_all_tests 
-	print "in rwdaddresses all tests\n"
-  $testrwdaddressestestcase = TestSuite.new
-	test_runrwdaddresses
+
+def rwdshell_all_tests 
+	print "in rwdshell all tests\n"
+  $testrwdshelltestcase = TestSuite.new
+	test_runrwdshell
 end
 
-def test_runrwdaddresses
+def test_runrwdshell
 
 
 	begin
   testasserts = 0
-  print "Starting rwdaddresses tests!\n"
+  print "Starting rwdshell tests!\n"
      runselectiontab
      assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
-    runrwdaddressesmenu10   
-    assert_equal("viewaddressesconfiguration",@rwd_tab) ; testasserts += 1    
-        loadrwdaddressesconfiguration
-    assert_equal("rwdaddresses.cnf",@a_adconfigurationfilename) ; testasserts += 1    
+    runrwdschedulemenu10   
+    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdscheduleconfiguration
+    assert_equal("rwdschedule.cnf",@a_schconfigurationfilename) ; testasserts += 1    
      
  $stderr.print "tests completed succesfully!\n"
  $stderr.print testasserts, " asserts performed\n"

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

@@ -0,0 +1,240 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+
+
+# integrate the new configuration files
+def initiateapplet(nametextlocal)
+	
+	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)
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
+	 
+       eval configfileload  #load  config file
+       
+    
+	
+	 rescue
+   
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - config load"
+          end
+        debuginitiate += 1
+end
+$tempdoc = " "
+  
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  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)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the  languagehashvariable 
+
+  
+  languagehashvariable  =  languagehashvariable + $tempdoc + ' :rwdtinker => "Rwdtinker" ) ;'
+
+  # END of en Lang building
+  $tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+  startlangdir = File.join(LangDir,$lang)
+  #get a list of the files and subdirectories on the starting directory only
+  alanghash = Array.new(Dir[startlangdir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the variable
+
+ languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
+ 
+  
+    
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+   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
+
+
+
+  

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,10 +12,23 @@ def installgemapplet
 			|entry|
 			zf.extract(entry.to_s, entry.to_s)
 		}
-		@installapplettext = Message[:applet_installed]  
-
-	rescue
-		@installapplettext = "unzip error - applet may not be installed correctly"
+		
+		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 
+
+				
+       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+	
 end
 

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

@@ -13,7 +13,7 @@ def findzipfiles(d)
 		if(!test(?d,x))
 			# only zip files
 			if x =~ /\.zip/
-				puts "#{x}"        #opens the file thats in fileName as read only
+				    #opens the file thats in fileName as read only
 				$zipsarray =  $zipsarray | ["#{x}"] 
 			end
 		end

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

@@ -16,7 +16,7 @@ def  listzipfilestoinstall
 	a.each do |x|
 		# only zip files
 		if x =~ /\.zip/
-			#  puts "#{x}"        #adds the file to the array to display on the screen
+			        #adds the file to the array to display on the screen
 			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
 		end
 

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

@@ -12,24 +12,7 @@ def loadconfigurationrecord
 		fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
 
 		fd = File.open(fileName,"r")
-		@a_configline1=        fd.readline.chomp
-		@a_configline2 =  fd.readline.chomp
-		@a_configline3 = fd.readline.chomp
-		@a_configline4 = fd.readline.chomp
-		@a_configline5 = fd.readline.chomp
-		@a_configline6 = fd.readline.chomp 
-		@a_configline7 =fd.readline.chomp
-		@a_configline8 = fd.readline.chomp
-    @a_configline9 = fd.readline.chomp
-		@a_configline10 = fd.readline.chomp 
-		@a_configline11 =fd.readline.chomp
-		@a_configline12 = fd.readline.chomp
-    @a_configline13 =fd.readline.chomp
-		@a_configline14 = fd.readline.chomp
-
-		while ! fd.eof?
-			@extraconfigdatadisplay = fd.readline
-		end
+		@a_configurationfile =        fd.read
 		fd.close
 	rescue SystemCallError, StandardError
 		$stderr.print "system call error: " + $!

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

@@ -18,11 +18,7 @@ def runhelpwindowtinkerwin2
 	end
 	if @rwd_tab == "editconfigurationfile"
 		$help_topic = "applet_tinkerbackeditconfiguration"
-
-	end
-	if @rwd_tab == "rwdremotecontrol"
-		$help_topic = "remote_control"
-
+	
 	end
 	if @rwd_tab == "superantcomremotezipsinstall"
 		$help_topic = "remotegemapplet_install"

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

@@ -3,8 +3,17 @@ def removeapplet
 	require 'fileutils'
 	nametext = "%s" % [@a_removeapplet]
 
+       fileName = "installed/" + nametext + ".inf"
+       @appletremoveresult = removeappletvariables(nametext)
+       
+       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
+
 	begin # exception trapped block
-		fileName = "installed/" + nametext + ".inf"
+		
 		count =  0
 		fd = File.open(fileName,"r") 
 
@@ -19,14 +28,18 @@ def removeapplet
 			count = 1
 		}
 		fd.close
+ 
+           
 
 		FileUtils.rm_rf( fileName)
-
-
-		@removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
-
+		
+		  
+		@removeapplettext = "applet files removed!" + " " + @appletremoveresult
+             
+             runbackwindowappletremove
+             
 	rescue
-		@removeapplettext = "\n" + "error"
+		@removeapplettext = " removeapplet" + "  .."
 
 	end # exception rescue