rwdshell 0.94 → 0.95

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

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillhypernotename(inffile)
+  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 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("fillhypernotename")
+      end  

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/loadconfigurationrecord.rb

@@ -1,4 +1,4 @@
-   # this method views an existing address record
+   # this method puts the configuration rexord on the screen
   def loadconfigurationrecord
  
          require 'fileutils'

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/loadconfigurationvariables.rb

@@ -1,4 +1,4 @@
-   # this method clears the on screen variables
+   # this method loads the on screen variables into the running class
    def loadconfigurationvariables
    
    configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)

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

@@ -0,0 +1,87 @@
+#!ruby
+require 'socket'		# Network stuff
+require 'timeout'		# Timeout functions
+
+def network_start
+ if RUBY_PLATFORM != "i386-mswin32"
+ processone = fork { 
+  network_demon }
+  Process.detach(processone)
+
+ else
+  puts "fork not tried winXP?"
+ end
+  @viewremotecommandresult = "starting controller on next available port"
+end
+
+  def network_demon
+	 # Find configuration variables
+	 host = "127.0.0.1"
+	 port = $rwdcontrolports[0].to_i
+	 
+openportfound = false
+until openportfound
+   
+	 # Create a socket to listen on and bind it to the host and port 
+	 begin
+		@socket = UDPSocket::new()
+		@socket.bind(host, port)
+	 # Rescue the "Address in use" error
+     openportfound = true
+   
+	 rescue Errno::EADDRINUSE
+		 puts "controller startup: Port #{port} on host #{host} is already in use."
+		port=port+1
+	 # Rescue the "Address not available' error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+		port=port+1
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "controller startup: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+		port=port+1
+	 # Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		port = port+1
+	 # Rescue all other errors
+	 end
+ 
+   end
+   
+
+	 # Get all acceptable hosts 
+	 hosts = ["localhost","vaio-sag"] 
+	 # Do some nice errorchecking
+	 if(hosts.type != Array)
+		puts "Network plugin: No hosts found in networkConfig/acceptHosts. Shutting down plugin."
+		return -1 # Return the errorcode for plugin failure
+	 end
+
+	 # Main loop 
+	 while(true)
+		# Get data and client data from the client
+		data, info = @socket.recvfrom(256)
+
+		# Is this an acceptable IP address?
+		if(hosts.include?(info[2]) || hosts.include?(info[3]))
+		  command, parameter = data.split(';')
+		  
+		  # Command actions
+		  command.downcase!()
+		  case command
+      
+		  when 'stop'
+						  @socket.send("hello world",0,info[3],info[1].to_i)
+				
+      		  when 'query'
+							  @socket.send("#{$rwdapplicationidentity} on port #{$port}",0,info[3],info[1].to_i)
+				
+      
+		  end # case command
+
+		end # Access control if
+	 end # while(true)
+
+  end # Network::start()
+

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

@@ -0,0 +1,39 @@
+# this code is to call the help window
+def runhelpwindowtinkerwin2
+ 
+  # $helptopicsarray =  $helptopicsarray | [""]
+
+        $help_topic = "tinkerwin2_help"
+   if @rwd_tab == "rwdzipslister"
+     $help_topic = "tinkerwin2_help"
+   end
+  
+    if @rwd_tab == "filelister" 
+       $help_topic = "applet_viewing"
+   
+    end
+      if @rwd_tab == "zipslister" 
+       $help_topic = "applet_installation"
+       
+    end
+     if @rwd_tab == "editconfigurationfile"
+       $help_topic = "applet_tinkerbackeditconfiguration"
+      
+    end
+     if @rwd_tab == "rwdremotecontrol"
+      $help_topic = "remote_control"
+      
+      end
+          
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+      else
+           $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/{xa5rwdtinkercallable/callable.rb → superant.com.rwdtinkerbackwindow/runrwdtinkerbackwindow.rb}

@@ -4,10 +4,9 @@
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
   
   # call the rwdtinker helpwindow  
-  def runrwdtinkerhelpwindow
-   @rwd_window = "rwdtinkerhelpwindow"
-   end
+
   def runrwdtinkerbackwindow
    @rwd_window = "tinkerbackwindow"
+   @rwd_tab = "rwdzipslister"
    end   
    

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

@@ -0,0 +1,21 @@
+  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
+
+  end

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

@@ -0,0 +1,21 @@
+  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

data/configuration/rwdapplicationidentity.cnf

@@ -0,0 +1,3 @@
+
+$rwdapplicationidentity = "rwdshell scripts"
+

data/configuration/rwdshellversion.cnf

@@ -1,2 +1,2 @@
 
-RwdShellVersion = "0.94"
+RwdShellVersion = "0.95"

data/configuration/rwdtinker.cnf

@@ -7,6 +7,10 @@ RWDFile	= "rwdtinker.rwd"
 LangDir = "lang"
 TempLangHashFile = LangDir + "/" + "templangfile.rb"
 LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb" 
- CodeDir = "code"
- GuiDir = "gui" 
+ CodeDir = "code" 
+ GuiDir = "gui"  
+  $help_topic = "general_help"
+   $helptopicsarray = [ "general_help","network_help"]
+  $prevouswindow ="main" 
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705

data/configuration/rwdtinkerversion.cnf

@@ -1,2 +1,2 @@
 
-RwdTinkerVersion = "1.44"
+RwdTinkerVersion = "1.52"

data/configuration/tinkerwin2variables.cnf

@@ -1,8 +1,8 @@
 
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 $zipslocation = "zips" # location of applets to add
-$unzipprogram = "unzip -o " 
-
-
+ $zipsarray = [""]
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
 
 

data/configuration/tinkerwin2version.cnf

@@ -1,3 +1,3 @@
 
-RwdTinkerWin2Version = "0.7"
+RwdTinkerWin2Version = "0.8"
 

data/ev/rwd.rb

@@ -267,7 +267,7 @@ class OpenTag
       template	= $rwd_html_PDA_1	if pda
 
       res <<(template(template, args))
-    when "p"		then res << "<p #{align}>"
+    when "p"		then     res << "<p #{align} > "
     when "pre"		then res << "<pre #{align}>"
     when "big"		then res << "<p #{align}><big>"
     when "small"	then res << "<p #{align}><small>"
@@ -308,9 +308,10 @@ class OpenTag
     when "hidden"	then res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='hidden'>"
     when "text"
       maxlength	= ""
-      maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
+       maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
       size	= ""
-      size	= "size='%s'" % 10			if pda
+      size = "size='%s'" % @args["size"] if @args.include?("size")
+        size	= "size='%s'" % 10			if pda
       res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='text' #{maxlength} #{size}>"
       oneormorefields	<< "true"
     when "textarea"

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"Tinker - RubyWebDialogs\">
+  <window name=\"main\" title=\"rwdshell - shell and scripts using Tinker - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindowselectionbegin/selectiontabbegin/selectiontabbegin.rwd

@@ -8,7 +8,7 @@ $rwdguivar=
      </table>
       <horizontal>
       
-      <button caption=#{Message[:rwdtinker_help_window]} action=\"runrwdtinkerhelpwindow\"/>
+      <button caption=#{Message[:rwdtinker_help_window]} action=\"runhelpwindow\"/>
       
       
      </horizontal>"

data/gui/frontwindowselections/superant.com.rwdshellselectiontab/rwdshellbackwindowselectiontab.rwd

@@ -0,0 +1,12 @@
+$rwdguivar=
+"	
+     <row> <p></row>
+
+      <horizontal>
+      
+      <button caption=\"rwdshell Back Window\" action=\"runrwdshellbackwindow\"/>
+      
+      
+    </horizontal>"
+
+

data/gui/frontwindowtdocumentbegin/superant.com.documentsbegin/tt0documentbegin.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-  <tab name=\"one\" caption=#{Message[:documents]}>
+  <tab name=\"documentsrwdtinkerone\" caption=#{Message[:documents]}>
     <horizontal>
     <table>"
 	

data/gui/frontwindowtdocumentzend/superant.com.documentsend/ww0documentend.rwd

@@ -3,5 +3,10 @@ $rwdguivar=
  <row> <p align=\"left\"><a href=.>Spawn a clone Dialog window</a></p></row>
     </table>
         </horizontal>
+         <horizontal>
+       
+      <button caption=\"Help\" action=\"runhelpwindow\"/>
+      
+    </horizontal>
 	</tab>"
 	

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/1appname.rwd

@@ -0,0 +1,5 @@
+$rwdguivar=
+"
+<window name = \"rwdshellbackwindow\" title=\"RwdShell Back Window\">
+
+<tabs>"

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/44listplayscripts.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"
+<tab name=\"rwdrubyscriptlister\" caption=\"List\\Run Ruby Scripts\">  
+	  <horizontal>
+	 <text name=\"a_rwdrubyx\"/> 
+   <text name=\"a_rwdrubyy\"/> 
+   </horizontal>
+	    <table>
+      <row> <p align=\"right\">Script Name:</p>  <text name=\"a_rubyscriptcmd\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Execute\" action=\"playrubyscript\"/>
+      
+      
+    </horizontal>
+ <p>%playrubyscript_display%</p>"
+	

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/45listscripts.rwd

@@ -0,0 +1,25 @@
+$rwdguivar=
+"
+    <table>
+      <row> <p align=\"right\">ScriptName:</p>  <text name=\"a_rubyscriptfilename\"/> </row>
+
+    </table>
+    
+      <horizontal>
+       <button caption=\"ViewScript\" action=\"viewrubyscript\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdshell\"/>
+      
+    </horizontal>
+    <p>%displayrubyscripttext%</p>
+        
+    <horizontal>
+      
+      <button caption=\"ListFiles\" action=\"listrubyscripts\"/>
+      <button caption=\"Cancel\" action=\"main\"/>
+      
+    </horizontal>
+    <p>%%listrubyscriptresult%%</p>
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/46editscriptrecord.rwd

@@ -0,0 +1,30 @@
+$rwdguivar=
+"
+	<tab name=\"editeventrecordfile\" caption=\"Edit Script\">
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">NOT YET WORKING:You will be able to create a new record here or edit one</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadrubyscriptrecord\"/>
+      <button caption=\"Save Changes\" action=\"saverubyrecord\"/>
+      <button caption=\"Clear\" action=\"clearrubyscreendisplay\"/>
+        <button caption=\"Help\" action=\"runhelpwindowrwdruby\"/>
+          </horizontal>
+<horizontal>
+<row> <p align=\"right\">FileName:</p>  
+     <text name=\"a_calcscriptfilename\"/>
+    </horizontal>
+    <table>
+      <textarea name=\"a_calcscriptrecord\"/> </row>
+    
+
+    </table>
+   
+    <p>
+    <p>%neweventresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/92viewconfiguration.rwd

@@ -0,0 +1,38 @@
+$rwdguivar=
+"
+ <tab name=\"viewrwdshellconfiguration\" caption=\"RwdShell Configuration\">
+
+
+	
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can view or edit the RwdShell configuration file here</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadrwdshellconfiguration\"/>
+      <button caption=\"Save Changes\" action=\"saverwdshellconfiguration\"/>
+     <button caption=\"Reload Variables\" action=\"loadrwdshellconfigurationvariables\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdshell\"/>
+    </horizontal>
+   <table>
+
+      <row> <p align=\"right\">FileName:</p>  <text size=70 name=\"a_rshellconfigurationfilename\"/> </row>
+      <row> <p align=\"right\">1:</p>  <text size=70 name=\"a_rshellhellconfigline1\"/> </row>
+      <row> <p align=\"right\">2:</p>  <text size=70 name=\"a_rshellconfigline2\"/> </row>
+      <row> <p align=\"right\">3:</p>  <text size=70 name=\"a_rshellconfigline3\"/> </row>
+      <row> <p align=\"right\">4:</p>  <text size=70 name=\"a_rshellconfigline4\"/> </row>
+      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_rshellconfigline5\"/> </row>
+      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_rshellconfigline6\"/> </row>
+      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_rshellconfigline7\"/> </row>
+      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_rshellconfigline8\"/> </row>
+      <row> <p align=\"right\">9:</p>  <text size=70 name=\"a_rshellconfigline9\"/> </row>
+
+    </table>
+    
+    <p>
+    <p>%newrshellconfigurationresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/v9returntab.rwd

@@ -0,0 +1,11 @@
+$rwdguivar=
+"
+  <tab name=\"backtab\" caption=\"Back Tab\">
+
+<row> You can return to the Main window</row>
+<row><p> </row>
+<row><p> </row>
+<button caption=\"Return to top menu\" action=\"returntomain\"/>
+
+  </tab>"
+

data/gui/tinkerbackwindows/superant.com.rwdshellbackwindow/zbackend.rwd

@@ -0,0 +1,6 @@
+$rwdguivar=
+"    
+</tabs>
+</window>"
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/40rwdlistzips.rwd

@@ -0,0 +1,43 @@
+$rwdguivar=
+"
+	<tab name=\"rwdzipslister\" caption=\"List Zips\">
+
+    <table>
+      <row> <p align=\"right\">File Name:</p>  <text size=70 name=\"a_installapplet\"/> </row>
+
+    </table>
+      <horizontal>
+        <button caption=\"view applet contents\" action=\"viewappletcontents\"/>
+       <button caption=\"view (GEM Directory) applet contents\" action=\"viewgemappletcontents\"/>
+    </horizontal>
+    <p>%appletcontentstext%</p>
+
+      <horizontal>
+
+
+<button caption=\"install applet\" action=\"installapplet\"/>
+<button caption=\"install (Gem Directory) applet\" action=\"installgemapplet\"/>
+      <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
+      
+    </horizontal>
+    <p>%installapplettext%</p>
+
+
+    <table>
+      <row> <p align=\"right\">Click below to view the list of zip files </row>
+      
+    </table>
+
+    <horizontal>
+       <button caption=\"List applets available for installing\" action=\"listzipfilestoinstall\"/>
+      
+     <button caption=\"List applets (in the GEM Directory) available for installing\" action=\"listgemzips\"/>
+      
+    </horizontal>
+
+    <p>%%zipslistresult%%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/50rwdlistapplets.rwd

@@ -10,7 +10,7 @@ $rwdguivar=
 
       <horizontal>
        <button caption=\"View Install Text\" action=\"openappletname\"/>
-      <button caption=\"Cancel\" action=\"main\"/>
+        <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
     </horizontal>
           <p>%displaytext%</p>
 

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/60editconfiguration.rwd

@@ -0,0 +1,38 @@
+$rwdguivar=
+"
+	<tab name=\"editconfigurationfile\" caption=\"Edit Configuration\">
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can view or edit the rwdtinker applet confiruration file here</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Load Record\" action=\"loadconfigurationrecord\"/>
+      <button caption=\"Save Changes\" action=\"saveconfigurationrecord\"/>
+      <button caption=\"Reload Variables\" action=\"loadconfigurationvariables\"/>
+       <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
+      
+
+
+    
+    </horizontal>
+    <table>
+      <row> <p align=\"right\" >FileName:</p>  <text size=70 name=\"a_configurationfilename\"/> </row>
+      <row> <p align=\"right\">1:</p>  <text size=70  name=\"a_configline1\"/> </row>
+      <row> <p align=\"right\">2:</p>  <text size=70  name=\"a_configline2\"/> </row>
+      <row> <p align=\"right\">3:</p>  <text size=70  name=\"a_configline3\"/> </row>
+      <row> <p align=\"right\">4:</p>  <text  size=70 name=\"a_configline4\"/> </row>
+      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_configline5\"/> </row>
+      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_configline6\"/> </row>
+      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_configline7\"/> </row>
+      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_configline8\"/> </row>
+      
+
+    </table>
+    <p>%extraconfigdatadisplay%</p>
+    <p>
+    <p>%newconfigurationresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/70rwddiagnostics.rwd

@@ -0,0 +1,33 @@
+$rwdguivar=
+"
+	<tab name=\"diagnostictab\" caption=\"Diagnostic Tab\">
+      <horizontal>
+       <button caption=\"View Ruby Version\" action=\"runrubyversion\"/>
+    
+      
+    </horizontal>
+    <p>%rubyversion%</p>
+
+
+    <table>
+      <row> <p> </row>
+      
+    </table>
+
+    <horizontal>
+       <button caption=\"view platform\" action=\"runviewplatform\"/>
+           
+    </horizontal>
+
+    <p>%platformdisplay%</p>
+    <horizontal>
+       <button caption=\"View rwdtinker Version\" action=\"rwdtinkerversiondiagnostic\"/>
+           
+    </horizontal>
+
+    <p>%rwdtinkerversionreturn%</p>
+
+	</tab>"
+
+
+