rwddemo 0.91 → 0.92

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

@@ -1,21 +1,19 @@
 # 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 Ruby constant 
-  def runrubyversion
-   @rubyversion = "Version " + VERSION
-   end
-   
-   # return the platform constan
-   def runviewplatform
-   @platformdisplay = "Platform is " + RUBY_PLATFORM
-   end
-   
-   # return Rwdtinker version to diagnostic tab
-   def rwdtinkerversiondiagnostic
-   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
-   end
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+require 'resolv'
+require 'date'
+
+# return the platform information
+def runviewplatform
+	@platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+	@platformdisplay =  @platformdisplay + "Ruby Version " + VERSION + "\n" 
+	@platformdisplay  = @platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+	@platformdisplay = @platformdisplay + "program directory " + $progdir + "\n"
+	@platformdisplay = @platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+	@platformdisplay = @platformdisplay  + "application name " +  $rwdapplicationidentity   + "\n"
+	@platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+
+end
 
- 

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

@@ -1,24 +1,25 @@
 # code in install rwdtinker applets - now uses ruby.zip module
-  def installapplet
-   
-    nametext = "%s" % [@a_installapplet]
+def installapplet
 
-        begin # exception trapped block
+	nametext = "%s" % [@a_installapplet]
 
+	begin # exception trapped block
 
-   require 'extras/zip/zip'
-   	 fullname =  nametext + ".zip"
-     fileName = File.join($zipslocation,fullname)
 
-  zf = Zip::ZipFile.new(fileName)
- zf.sort.each {
-  |entry|
-      zf.extract(entry.to_s, entry.to_s)
-                     }
-   @installapplettext = Message[:applet_installed]  
-   
-       rescue
-            @installapplettext = "unzip error - applet may not be installed correctly"
-        end # exception rescue
+		require 'extras/zip/zip'
+		fullname =  nametext + ".zip"
+		fileName = File.join($zipslocation,fullname)
+
+		zf = Zip::ZipFile.new(fileName)
+		zf.sort.each {
+			|entry|
+			zf.extract(entry.to_s, entry.to_s)
+		}
+		@installapplettext = Message[:applet_installed]  
+
+	rescue
+		@installapplettext = "unzip error - applet may not be installed correctly"
+	end # exception rescue
+
+end
 
-  end

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

@@ -1,20 +1,21 @@
 # install rwdtinker applet from a long directory location 
-  def installgemapplet
-   require 'fileutils'
-   require 'extras/zip/zip'
-    nametext = "%s" % [@a_installapplet]
-	 
-        begin # exception trapped block
-   	 fullname =  nametext + ".zip"
-     
-         zf = Zip::ZipFile.new(fullname)
-         zf.sort.each {
-         |entry|
-         zf.extract(entry.to_s, entry.to_s)
-                     }
-         @installapplettext = Message[:applet_installed]  
-   
-       rescue
-            @installapplettext = "unzip error - applet may not be installed correctly"
-        end # exception rescue
-  end
+def installgemapplet
+	require 'fileutils'
+	require 'extras/zip/zip'
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+
+		zf = Zip::ZipFile.new(fullname)
+		zf.sort.each {
+			|entry|
+			zf.extract(entry.to_s, entry.to_s)
+		}
+		@installapplettext = Message[:applet_installed]  
+
+	rescue
+		@installapplettext = "unzip error - applet may not be installed correctly"
+	end # exception rescue
+end
+

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

@@ -1,19 +1,20 @@
 # download gem of rwdtinker applet
-  def superantcominstallremotegemapplet
-   require 'fileutils'
-   
-    tempnametext = "%s" % [@superantcominstallremoteappletinput]
-	 temparray = tempnametext.split(/ /)
-   nametext  = temparray[0]
-        begin # exception trapped block
-   	 
-  	
-	        commandline = $xpcommand + "gem install " + nametext
-         
-         @superantcominstallremotegemappletresult = `#{commandline}`
-   
-       rescue
-            @superantcominstallremotegemappletresult  = "error during gem install!"
-        end # exception rescue
-
-  end
+def superantcominstallremotegemapplet
+	require 'fileutils'
+	
+	tempnametext = "%s" % [@superantcominstallremoteappletinput]
+	temparray = tempnametext.split(/ /)
+	nametext  = temparray[0]
+	begin # exception trapped block
+		
+		
+		commandline = $xpcommand + "gem install " + nametext
+		
+		@superantcominstallremotegemappletresult = `#{commandline}`
+		
+	rescue
+		@superantcominstallremotegemappletresult  = "error during gem install!"
+	end # exception rescue
+	
+end
+

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

@@ -1,12 +1,12 @@
 # this code is to list the gem directories that are installed
 def superantcomshowgemfiledirs
- 
-  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
-  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+
+	fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+	@superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
 end
- 
+
 def superantcomshowgemappletdirsname(inffile)
-  applet                = inffile
-  @a_gemfiledirsinput       = applet
-  
+	applet                = inffile
+	@a_gemfiledirsinput       = applet
+
 end

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

@@ -1,54 +1,53 @@
 # this code is to list the zips
-
-
 def fillzipappletname(inffile)
-  applet                = inffile.gsub(/\.zip$/, "")
-  @a_installapplet = applet
-  
+	applet                = inffile.gsub(/\.zip$/, "")
+	@a_installapplet = applet
+	
+end
+
+def findzipfiles(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 zip files
+			if x =~ /\.zip/
+				puts "#{x}"        #opens the file thats in fileName as read only
+				$zipsarray =  $zipsarray | ["#{x}"] 
+			end
+		end
+	end
 end
 
- def findzipfiles(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 zip files
-                  if x =~ /\.zip/
-                    puts "#{x}"        #opens the file thats in fileName as read only
-                   $zipsarray =  $zipsarray | ["#{x}"] 
-                  end
-               end
-          end
-  end
-  
 def listgemzips
- startlangdir = $geminstalled_directory
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        p alanghash
-        #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...
-                        findzipfiles(x + "/**")
-                end
-        end
-         @zipslistresult = $zipsarray.rwd_method("fillzipappletname")
-      end  
+	startlangdir = $geminstalled_directory
+	#get a list of the files and subdirectories on the starting directory only
+	alanghash = Array.new(Dir[startlangdir].entries.sort)
+	p alanghash
+	#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...
+			findzipfiles(x + "/**")
+		end
+	end
+	@zipslistresult = $zipsarray.rwd_method("fillzipappletname")
+end
+

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

@@ -1,11 +1,12 @@
 # this code is to list the applets that are installed
 def listinstalledfiles
-  fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
-  @filesresult  = fileList.rwd_method("fillappletname")
+	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
+	@filesresult  = fileList.rwd_method("fillappletname")
 end
- 
+
 def fillappletname(inffile)
-  applet                = inffile.gsub(/\.inf$/, "")
-  @a_installlist        = applet
-  @a_removeapplet       = applet
-end
+	applet                = inffile.gsub(/\.inf$/, "")
+	@a_installlist        = applet
+	@a_removeapplet       = applet
+end
+

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

@@ -1,31 +1,27 @@
 # this code is to list the zipped applets that can be installed
-
- 
 def fillziptoinstallname(inffile)
-  applet                = inffile.gsub(/\.zip$/, "")
-  @a_installapplet        = applet
-  
+	applet                = inffile.gsub(/\.zip$/, "")
+	@a_installapplet        = applet
+	
 end
-
 
-
-  
 def  listzipfilestoinstall
- startlangdir = File.join($progdir, $zipslocation )
- #get a list of the files and subdirectories on the starting directory only
-      
-    
-        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
-        
-         #loop through and get the files names
-         a.each do |x|
-               # only zip files
-                  if x =~ /\.zip/
-                  #  puts "#{x}"        #adds the file to the array to display on the screen
-                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
-               end
-              
-             end
-      
-         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
-      end  
+	startlangdir = File.join($progdir, $zipslocation )
+	#get a list of the files and subdirectories on the starting directory only
+	
+
+	a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+
+	#loop through and get the files names
+	a.each do |x|
+		# only zip files
+		if x =~ /\.zip/
+			#  puts "#{x}"        #adds the file to the array to display on the screen
+			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+		end
+
+	end
+	
+	@zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+end 
+

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

@@ -1,32 +1,33 @@
-   # this method puts the configuration rexord on the screen
-  def loadconfigurationrecord
- 
-         require 'fileutils'
-         if TinkerWin2ConfigurationFileName 
-               @a_configurationfilename = TinkerWin2ConfigurationFileName 
-         end
-	      
-        begin # exception trapped block
-       
-       Dir.chdir($progdir)
-	      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
-	 
-	      while ! fd.eof?
-	        @extraconfigdatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
+# this method puts the configuration rexord on the screen
+def loadconfigurationrecord
+
+	require 'fileutils'
+	if TinkerWin2ConfigurationFileName 
+		@a_configurationfilename = TinkerWin2ConfigurationFileName 
+	end
+
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		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
+
+		while ! fd.eof?
+			@extraconfigdatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
 
-  end

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

@@ -1,13 +1,14 @@
-   # this method loads the on screen variables into the running class
-   def loadconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
-   begin
-    load configfiletoload
-    @extraconfigdatadisplay = ""
-@newconfigurationresult = "Config Variables loaded"
-rescue
- @extraconfigdatadisplay = ""
- @newconfigurationresult = "loading error"
- end
-  end
+# this method loads the on screen variables into the running class
+def loadconfigurationvariables
+
+	configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
+	begin
+		load configfiletoload
+		@extraconfigdatadisplay = ""
+		@newconfigurationresult = "Config Variables loaded"
+	rescue
+		@extraconfigdatadisplay = ""
+		@newconfigurationresult = "loading error"
+	end
+end
+