rubyslippers 1.01 → 1.02

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

@@ -0,0 +1,23 @@
+#jumplinkupdate 
+
+JumpLink.update(:RubyslippersWindow=>"runrubyslippersbackwindow",
+:DocumentScreen=>"runrubyslippersmenu11",:GemCommands=>"runrubyslippersmenu1",
+:ViewGemData=>"runrubyslippersmenu2",
+:GemInstallation=>"runrubyslippersmenu3",
+:GemFiles=>"runrubyslippersmenu4",
+:GemDocumentsView =>"runrubyslippersmenu5",
+:GemspecEditor=>"runrubyslippersmenu7",
+:GemspecDataViewer=>"runrubyslippersmenu6",
+:GemspecUtilities =>"runrubyslippersmenu8",
+:GemDirectories=>"runrubyslippersmenu9",
+:RubyslippersConfiguration=>"runrubyslippersmenu10"
+)
+$rwdjumplink +=["RubyslippersWindow","DocumentScreen","GemCommands","ViewGemData",
+"GemInstallation",
+"GemFiles",
+"GemDocumentsView", 
+"GemspecEditor",
+"GemspecDataViewer", 
+"GemspecUtilities", 
+"GemDirectories",
+"RubyslippersConfiguration"]

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

@@ -5,16 +5,13 @@
    	 
   	     
 	      commandline = $xpcommand  + "gem query --remote" 
-        system( commandline+' > temp.output' )
-	      fileName = "temp.output"
+        system( commandline+' >  rwd_files/remotegemlist.txt' )
+	      
         
 	
 	      @gemsqueryresult =    " gem listing retrieved remotely, click below to view it. "
 	 
-        path_to = File.join( "rwd_files", "remotegemlist.txt" )
-        path_from = File.join( $progdir, fileName )
-        
-         FileUtils.cp(path_from, path_to)        
+               
    
        rescue 
            @gemsqueryresult = "RubySlippers remote listing error"

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

@@ -1,99 +1,96 @@
 # Bind message passing socket to rwdtinker application
-
 def runcontrolcommand
-require 'socket'
-
-# Change this line... 
- ip =  '127.0.0.1' 
-# And this one...
- port =  $rwdcontrolport1
- if @a_remoteportinput
- port = @a_remoteportinput.to_i
- end
-
-    commandtext =  @a_remotecommandinput.to_s 
-   remotehostnotfound = true
- if (commandtext == "stop")
- begin
- client = UDPSocket::new()
- client.send(commandtext, 0, ip, port)
-		@socket = UDPSocket::new()
-		@socket.bind(ip, port)
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		   
-  databack, info = client.recv(128)
-  @remotecommandresult =  databack
-  @lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
-  remotehostnotfound = false
-  
-	 # Rescue the "Address not available" error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "Network plugin: Address #{host} is not available to bind."
-
-	 # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
-
-# Rescue all other errors
-	 rescue
-   puts "Network plugin: An error occured."
-		
-	 # Rescue all other errors
-	 end
-  if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
-     end
- @socket.close
-  # Close the socket after use
- client.close()
- end
-
- remotehostnotfound = true
- if (commandtext == "query") 
- begin
- client = UDPSocket::new()
- client.send(commandtext, 0, ip, port)
-		@socket = UDPSocket::new()
-		@socket.bind(ip, port)
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		
-  databack, info = client.recv(128)
-  @remotecommandresult =  databack
-  @lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
-		remotehostnotfound = false
-    
-	 # Rescue the "Address not available' error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "Network plugin: Address #{host} is not available to bind."
-		
-	 # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
-		
-	 # Rescue all other errors
-	 rescue
-   puts "Network plugin: An error occured."
-		
-	 # Rescue all other errors
-	 end
-@socket.close
-
-# Close the socket after use
-client.close()
-end
+	require 'socket'
+
+	# Change this line... 
+	ip =  '127.0.0.1' 
+	# And this one...
+	port =  $rwdcontrolport1
+	if @a_remoteportinput
+		port = @a_remoteportinput.to_i
+	end
+
+	commandtext =  @a_remotecommandinput.to_s 
+	remotehostnotfound = true
+	if (commandtext == "stop")
+		begin
+			client = UDPSocket::new()
+			client.send(commandtext, 0, ip, port)
+			@socket = UDPSocket::new()
+			@socket.bind(ip, port)
+			# Rescue the "Address in use" error
+		rescue Errno::EADDRINUSE
+
+			databack, info = client.recv(128)
+			@remotecommandresult =  databack
+			@lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
+			remotehostnotfound = false
+
+			# Rescue the "Address not available" error
+		rescue Errno::EADDRNOTAVAIL
+			puts "Network plugin: Address #{host} is not available to bind."
+
+			# Rescue "permission denied errors
+		rescue Errno::EACCES
+			puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+			# Rescue all other errors
+		rescue
+			puts "Network plugin: An error occured."
+
+			# Rescue all other errors
+		end
+		if remotehostnotfound
+			@remotecommandresult =  "Remote Host not running"
+		end
+		@socket.close
+		# Close the socket after use
+		client.close()
+	end
 
- if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
- end
+	remotehostnotfound = true
+	if (commandtext == "query") 
+		begin
+			client = UDPSocket::new()
+			client.send(commandtext, 0, ip, port)
+			@socket = UDPSocket::new()
+			@socket.bind(ip, port)
+			# Rescue the "Address in use" error
+		rescue Errno::EADDRINUSE
+
+			databack, info = client.recv(128)
+			@remotecommandresult =  databack
+			@lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
+			remotehostnotfound = false
+
+			# Rescue the "Address not available' error
+		rescue Errno::EADDRNOTAVAIL
+			puts "Network plugin: Address #{host} is not available to bind."
+
+			# Rescue "permission denied errors
+		rescue Errno::EACCES
+			puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+			# Rescue all other errors
+		rescue
+			puts "Network plugin: An error occured."
+
+			# Rescue all other errors
+		end
+		@socket.close
+
+		# Close the socket after use
+		client.close()
+	end
+
+	if remotehostnotfound
+		@remotecommandresult =  "Remote Host not running"
+	end
 end
 
 # list the remote control options on the screen
 def showremoteportoptions
- 
- @remoteportoptions = $rwdcontrolports.rwd_options
-  @remotecommandoptions = ["query","stop"].rwd_options
- end
-
-
+
+	@remoteportoptions = $rwdcontrolports.rwd_options
+	@remotecommandoptions = ["query","stop"].rwd_options
+end

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

@@ -1,25 +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
-  
+# 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
-   
+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
+