rwdgutenberg 0.03 → 0.04

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

@@ -1,24 +1,24 @@
 # This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
-  
 def superantcomremotegemlist
-  gemcommandoption = "search --remote "
-    gemfilename = "rwdzip"
-    commandtext = "gem search --remote rwdzip"  
-    commandtemp = $xpcommand  + commandtext
-    begin # exception trapped block
-         
-     tempremotegemappletsresult = `#{commandtemp}  2>&1`
-     @superantcomremotegemappletsfullresult = tempremotegemappletsresult
-     fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
-    
-  @superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
-      rescue SystemCallError, StandardError
-     @superantcomremotegemappletsresult  = "system call error: " + $!
-    end # exception rescue
+	gemcommandoption = "search --remote "
+	gemfilename = "rwdzip"
+	commandtext = "gem search --remote rwdzip"  
+	commandtemp = $xpcommand  + commandtext
+	begin # exception trapped block
+		
+		tempremotegemappletsresult = `#{commandtemp}  2>&1`
+		@superantcomremotegemappletsfullresult = tempremotegemappletsresult
+		fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+		
+		@superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+	rescue SystemCallError, StandardError
+		@superantcomremotegemappletsresult  = "system call error: " + $!
+	end # exception rescue
 end
- 
+
 def superantcomremotegemappletdirsname(inffile)
-  applet                = inffile
-  @superantcominstallremoteappletinput       = applet
-  
-end
+	applet                = inffile
+	@superantcominstallremoteappletinput       = applet
+	
+end
+

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

@@ -1,32 +1,33 @@
-  def removeapplet
-   require 'fileutils'
-    nametext = "%s" % [@a_removeapplet]
-	 
-        begin # exception trapped block
-   	 fileName = "installed/" + nametext + ".inf"
-        count =  0
-	fd = File.open(fileName,"r") 
-	       
-   	    
-   	    fd.each { |oneline|   
-         if count == 1
-        if File.exist?(oneline.chop)
-        FileUtils.rm_rf( oneline.chop)
-         end
-        
-         end
-         count = 1
-      }
-   fd.close
-   
-    FileUtils.rm_rf( fileName)
-    
-    
-   @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
- 
-        rescue
-           @removeapplettext = "\n" + "error"
-       
-   end # exception rescue
-
-  end
+# method to remove a tinker applet
+def removeapplet
+	require 'fileutils'
+	nametext = "%s" % [@a_removeapplet]
+
+	begin # exception trapped block
+		fileName = "installed/" + nametext + ".inf"
+		count =  0
+		fd = File.open(fileName,"r") 
+
+
+		fd.each { |oneline|   
+			if count == 1
+				if File.exist?(oneline.chop)
+					FileUtils.rm_rf( oneline.chop)
+				end
+
+			end
+			count = 1
+		}
+		fd.close
+
+		FileUtils.rm_rf( fileName)
+
+
+		@removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
+
+	rescue
+		@removeapplettext = "\n" + "error"
+
+	end # exception rescue
+
+end

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

@@ -0,0 +1,11 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the rwdtinker helpwindow  
+
+def runremotezipsinstall
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "superantcomremotezipsinstall"
+end   
+

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

@@ -1,12 +1,11 @@
 # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the rwdtinker helpwindow  
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the rwdtinker helpwindow  
+
+def runrwdtinkerbackwindow
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "rwdzipslister"
+end   
 
-  def runrwdtinkerbackwindow
-   @rwd_window = "tinkerbackwindow"
-   @rwd_tab = "rwdzipslister"
-   end   
-   

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

@@ -1,14 +1,13 @@
 # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-  
-  # return the version constant defined in the config file
-  def runrwdtinkerwin2version
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdTinkerWin2"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdtinkerwin2version
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdTinkerWin2"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+
+end
 
-   end
-  

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

@@ -1,18 +1,19 @@
-  # this method saves the configuration record
-  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"
-	 
-        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
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-    end
-  end
+# this method saves the configuration record
+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"
+
+		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
+		rescue SystemCallError, StandardError
+			$stderr.print "system call error: " + $!
+		end # exception rescue
+	end
+end
+

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

@@ -1,21 +1,22 @@
-  def viewappletcontents
-   require 'fileutils'
-   require 'extras/zip/zip'
-    nametext = "%s" % [@a_installapplet]
-	 
-        begin # exception trapped block
-   	 fullname =  nametext + ".zip"
-     fileName = File.join($zipslocation,fullname)
-  tempfilecontents = " "
-  zf = Zip::ZipFile.new(fileName)
- zf.sort.each {
-  |entry|
-      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
-                     }
-   @appletcontentstext = tempfilecontents 
-   
-       rescue
-            @installapplettext = "unzip error - error opening applet"
-        end # exception rescue
+#view contents of a tinker applet
+def viewappletcontents
+	require 'fileutils'
+	require 'extras/zip/zip'
+	nametext = "%s" % [@a_installapplet]
 
-  end
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+		fileName = File.join($zipslocation,fullname)
+		tempfilecontents = " "
+		zf = Zip::ZipFile.new(fileName)
+		zf.sort.each {
+			|entry|
+			tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+		}
+		@appletcontentstext = tempfilecontents 
+
+	rescue
+		@installapplettext = "unzip error - error opening applet"
+	end # exception rescue
+
+end

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

@@ -1,21 +1,24 @@
-  def viewgemappletcontents
-   require 'fileutils'
-   require 'extras/zip/zip'
-    nametext = "%s" % [@a_installapplet]
-	 
-        begin # exception trapped block
-   	 fullname =  nametext + ".zip"
-     
-  tempfilecontents = " "
-  zf = Zip::ZipFile.new(fullname)
- zf.sort.each {
-  |entry|
-      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
-                     }
-   @appletcontentstext = tempfilecontents 
-   
-       rescue
-            @installapplettext = "unzip error - error opening applet"
-        end # exception rescue
+#view gem info
+def viewgemappletcontents
+	require 'fileutils'
+	require 'extras/zip/zip'
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+
+		tempfilecontents = " "
+		zf = Zip::ZipFile.new(fullname)
+		zf.sort.each {
+			|entry|
+			tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+		}
+		@appletcontentstext = tempfilecontents 
+
+	rescue
+		@installapplettext = "unzip error - error opening applet"
+	end # exception rescue
+
+end
+
 
-  end

data/configuration/language.dist

@@ -1,4 +1,4 @@
-##VERSION:1.57
+##VERSION:1.62
 #language selection file
 ##NAME:$lang:0
 #$lang = "jp"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.57
+##VERSION:1.63
 $rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdgutenberg.dist

@@ -1,4 +1,4 @@
-##VERSION:0.03
+##VERSION:0.04
 ##NAME:$rwdgutenberg_directory:0
 $rwdgutenberg_directory = "Books"
 ##NAME:$gutenbergcommand:0
@@ -9,4 +9,4 @@ $booklocation = 0
 $booksteps = 14
 ##NAME:BookViewDisplay:0
  BookViewDisplay = 15
-RwdGutenbergVersion = "0.03"
+RwdGutenbergVersion = "0.04"

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.60
+##VERSION:1.64
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -11,5 +11,5 @@ LangDir = "lang"
   $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
-
-RwdTinkerVersion = "1.60"
+$rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
+RwdTinkerVersion = "1.64"

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.57
+##VERSION:1.63
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"RwdGutenberg - Tinker & RubyWebDialogs\">
+  <window name=\"main\" title=\"Tinker - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindowselectionbegin/selectiontabbegin/selectiontabbegin.rwd

@@ -3,14 +3,9 @@ $rwdguivar=
       <tab name=\"selectiontab\" caption=#{Message[:selection_panel]}>
 
       <table>
-      <row> <p align=\"right\">Open a new window with callable applets you have loaded</row>
+      <row> <p align=\"right\">Open a new location </row>
 
      </table>
-      <horizontal>
-      
-      <button caption=#{Message[:rwdtinker_help_window]} action=\"runhelpwindow\"/>
-      
-      
-     </horizontal>"
+"
 
 

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

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+    </horizontal>
+"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
- <row> <p align=\"center\">copyright s. gibson 2004</p></row>"
+ <row> <p align=\"center\">copyright s. gibson 2004,2005</p></row>"

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

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=selectiontab caption=\"Selection Tab\">
+<horizontal>
+<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+    </horizontal>
+    </tab>
+"

data/init.rb

@@ -24,251 +24,254 @@
 require "ev/rwd"
 require 'fileutils'
 require 'extras/rconftool'
-	
+
 $progdir = File::expand_path( File.dirname(__FILE__))
 
-        $tempdoc = " "
- 
- def findfiles(d)
-         a = Array.new(Dir[d].entries.sort)
-         #loop through and get the files names
-         a.each do |x|
-               #adjust the filters to the files you want to see...
-               if(!test(?d,x))
-               # only rwd files
-                  if x =~ /rb|rwd|txt/
-                    fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
-                    $tempdoc+=fileA.read    #reads the file into the doc string
-                    fileA.close    
-                  end
-               end
-          end
-  end
-  def loadguifile(d)
-         a = Array.new(Dir[d].entries.sort)
-         #loop through and get the files names
-         a.each do |x|
-            #adjust the filters to the files you want to see...
-            if(!test(?d,x))
-             # only rwd files
-              if x =~ /rb|rwd|txt/
-                
-		          load x      #opens the file thats in fileName and reads it
-		          $tempdoc += $rwdguivar # adds the file into the doc string
-              end
-            end
-          end
-  end 
-        
+$tempdoc = " "
+
+def findfiles(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only rwd files
+			if x =~ /rb|rwd|txt/
+				fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
+				$tempdoc+=fileA.read    #reads the file into the doc string
+				fileA.close    
+			end
+		end
+	end
+end
+def loadguifile(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only rwd files
+			if x =~ /rb|rwd|txt/
+
+				load x      #opens the file thats in fileName and reads it
+				$tempdoc += $rwdguivar # adds the file into the doc string
+			end
+		end
+	end
+end 
+
 # integrate the new configuration files
 MAINconfignew =  "rwdconfig.cnf"
 MAINconfigdist = "rwdconfig.dist"
 Rconftool::install(MAINconfigdist,MAINconfignew)
 
- Dir.chdir("configuration")    #changes the current working directory
-      
- fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
- @doc = ""
- fileList.length.times{               #opening of a block
-    configdist =fileList.pop                #pops the first item out of the Array
+#load main config file
+load 'rwdconfig.cnf'
+
+Dir.chdir("configuration")    #changes the current working directory
+
+fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
+@doc = ""
+fileList.length.times{               #opening of a block
+configdist =fileList.pop                #pops the first item out of the Array
 tempconfigfile = configdist.gsub(/\.dist$/, "")
 confignew = tempconfigfile + ".cnf"
 Rconftool::install(configdist,confignew)     #integrates new file with old 
   }       #closing block
- # END of configuration integration 
-Dir.chdir($progdir)
-
-# Read in the configuration files
- Dir.chdir("configuration")    #changes the current working directory
-      
- fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
- @doc = ""
- fileList.length.times{               #opening of a block
-    fileName=fileList.pop                #pops the first item out of the Array
-    load fileName     #loads the the config file thats in fileName 
+  # END of configuration integration 
+  Dir.chdir($progdir)
+
+  # Read in the configuration files
+  Dir.chdir("configuration")    #changes the current working directory
+
+  fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
+  @doc = ""
+  fileList.length.times{               #opening of a block
+  fileName=fileList.pop                #pops the first item out of the Array
+  load fileName     #loads the the config file thats in fileName 
   }       #closing block
- # END of configuration reading 
- 
- 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"
- 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 
+  # END of configuration reading 
+
+  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"
+  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 + "}  ; langmessage.each { |kk, vv| Message[kk] = vv }"
- 
- # END of en Lang building
+
+  # 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
+
+  # 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 )
-
- $tempdoc = " "
-
- # build the actual program from the code parts
- #get a list of the files and subdirectories on the starting directory only
-        a = Array.new(Dir[CodeDir].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))
-            # 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...
-                        findfiles(x + "/**")
-                end
-        end
-
-
-# load the program file
- tempcoderesult = eval( $tempdoc )
-
-# 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
-
-   # gui variable is done
-    guiRWD = $tempdoc
-   
-   require 'socket'		# Network stuff
-    host = "127.0.0.1"
-	 port = $port
-	 
-	 # Create a socket to listen on and bind it to the host and port 
-	 freeportfound = false
-   until freeportfound
-   begin
-		@socket = UDPSocket::new()
-		@socket.bind(host, port)
-    freeportfound = true
-$port = port
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		 puts "RWD Startup: Port #{port} on host #{host} is already in use."
-		port=port +1
-    puts "trying port: #{port}"
-	 # Rescue the "Address not available' error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "RWD Startup: Address #{host} is not available to bind."
-		port =port + 1
-	  puts "trying port: #{port}"
-   # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "RWD Startup: Access denied when binding interface addresses. ?"
-			port =port + 1
-       puts "trying port: #{port}"
-	 # Rescue all other errors
-	 rescue
-   puts "RWD Startup: An error occured."
-		port =port + 1
-     puts "trying port: #{port}"
-	 # Rescue all other errors
-	 end
 
-end
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+  temp = eval(   languagehashvariable )
+
+  $tempdoc = " "
+
+  # build the actual program from the code parts
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[CodeDir].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))
+		  # 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...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  # load the program file
+  tempcoderesult = eval( $tempdoc )
+
+  # 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
+
+  # gui variable is done
+  guiRWD = $tempdoc
+
+  require 'socket'		# Network stuff
+  host = "127.0.0.1"
+  port = $port
+
+  # Create a socket to listen on and bind it to the host and port 
+  freeportfound = false
+  until freeportfound
+	  begin
+		  @socket = UDPSocket::new()
+		  @socket.bind(host, port)
+		  freeportfound = true
+		  $port = port
+		  # Rescue the "Address in use" error
+	  rescue Errno::EADDRINUSE
+		  puts "RWD Startup: Port #{port} on host #{host} is already in use."
+		  port=port +1
+		  puts "trying port: #{port}"
+		  # Rescue the "Address not available' error
+	  rescue Errno::EADDRNOTAVAIL
+		  puts "RWD Startup: Address #{host} is not available to bind."
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue "permission denied errors
+	  rescue Errno::EACCES
+		  puts "RWD Startup: Access denied when binding interface addresses. ?"
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue all other errors
+	  rescue
+		  puts "RWD Startup: An error occured."
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue all other errors
+	  end
+
+  end
 
 
-RwdTinker.new(  guiRWD).serve(port) # start the main class and program
+  RwdTinker.new(  guiRWD).serve(port) # start the main class and program