tinkerbell 0.01

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

@@ -0,0 +1,148 @@
+
+#***********************************************************************
+#* 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 initiateapplettinkerbell()
+	
+	debuginitiate = 0
+	       $stderr.puts "starting initiate"
+	       
+	if $DEBUG
+ $stderr.puts "starting load with: Sandbox"
+        end
+
+  Dir.chdir($progdir )    #changes the current working directory
+	  
+  $tempdoc = " "
+  
+  Dir.chdir($progdir) # change back to top program directory
+ 
+  $tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+   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  
+
+      if $DEBUG
+        $stderr.puts "just did gui load"
+    end
+ # build the actual program from the code parts
+  #get a list of the files and subdirectories on the starting directory only
+   begin # error trap
+         # now load in the code files
+
+         $tempdoc  = ""
+         tempcodeinstallline  = ""
+        tmpfilename = File.join($progdir,"code")
+         dirName = File.join(tmpfilename,"superant.com.sandbox")
+
+          a = Dir.entries(dirName)
+	#loop through the list, 
+         if $DEBUG
+          $stderr.puts a.length
+          end
+                  a.each do |x|
+	                            if x =~ /rb/
+		           		    # only rb files
+					    fileName = File.join(dirName, x)
+			                   fileA=File.open(fileName,"r")        #opens the file thats in fileName as read only
+				           $tempdoc+=fileA.read       
+				 if $DEBUG
+                                   $stderr.puts fileName.to_s
+                                 end
+        	  
+		                    end
+		            end
+		       tempcoderesult = eval( $tempdoc )
+		   
+		       
+       rescue
+          if $DEBUG
+              $stderr.puts  "error in initiateapplets - code building"
+          end
+           debuginitiate += 1
+    
+
+       end
+  
+ # resultend =  tempcodeinstallline .index("\n",resultstart)
+ tempresult  = dirName
+ 
+return " sandbox loading successful " + tempresult 
+  
+        if  debuginitiate > 0
+           return " initiateapplet .."
+        else
+	   return " initiateapplet success"
+	end
+
+end
+
+
+
+  

data/code/superant.com.tinkerbell/launchtinkerbellnew.rb

@@ -0,0 +1,19 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def launchtinkerbellnew
+	  
+	  	returninitateresults = initiateapplettinkerbell()
+		
+		$stderr.puts returninitateresults 
+
+				
+       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+       
+   @rwd_window = "tinkerbellsandbox"
+   @rwd_tab = "sandboxtabone"
+   
+   end   
+   

data/code/superant.com.tinkerbell/listcodefiles.rb

@@ -0,0 +1,8 @@
+# this code is to list the fold files that are available
+def loadtinkerbellcodetablist
+	codedir = File.join($progdir, "code")
+   sandboxcode_directory = File.join(codedir,"superant.com.sandbox")
+	fileList      = Dir.new(sandboxcode_directory).entries.sort.delete_if { |x| ! (x =~ /rb$/) }
+	@tinkerbellcodetabs  = fileList.rwd_options
+end
+

data/code/superant.com.tinkerbell/listoptions.rb

@@ -0,0 +1,7 @@
+# this code is to list the tabs that are available
+def loadtinkerbelltablist
+
+	tabList      = ["1sttab","2ndtab","3rdtab"]
+	@tinkerbellguitabs  = tabList.rwd_options
+end
+

data/code/superant.com.tinkerbell/loadcode01.rb

@@ -0,0 +1,19 @@
+# this code is to load the tabs that are available
+def loadcodetabdesign
+	sandboxdir1 = File.join($progdir, "code")
+	sandboxdir = File.join(sandboxdir1 , "superant.com.sandbox")
+     fileName = File.join(sandboxdir, @a_tinkerbellcodeselect)
+
+	     begin # exception trapped block
+       
+	      fd = File.open(fileName,"r")
+	     
+	     @tinkerbellcodedesign =        fd.read
+      
+            fd.close
+            rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+            end # exception rescue
+	
+end
+

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

@@ -0,0 +1,22 @@
+   # this method puts the configuration rexord on the screen
+  def loadtinkerbellconfiguration
+ 
+         require 'fileutils'
+          
+               @a_tinkerbellconfigurationfilename = "tinkerbellw-" + TinkerBellVersion +  ".cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, @a_tinkerbellconfigurationfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_tinkerbellconfigurationfile=        fd.read
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,15 @@
+   # this method loads the on screen variables into the running class
+   def loadtinkerbellconfigurationvariables
+
+           tmpfilename = "tinkerbellw-" + TinkerBellVersion + ".cnf"
+           configfiletoload = File.join(ConfigurationDir, tmpfilename )
+          begin
+                 load configfiletoload
+             
+           
+         rescue
+                  if $DEBUG
+                   $stderr.puts "loading error"
+                  end
+            end
+  end

data/code/superant.com.tinkerbell/loadtab01.rb

@@ -0,0 +1,50 @@
+# this code is to load the tabs that are available
+def loadguitabdesign
+	sandboxdir1 = File.join("gui", "tinkerbackwindows")
+	sandboxdir = File.join(sandboxdir1 , "superant.com.sandbox")
+  case @a_tinkerbellguiselect
+	when "1sttab"
+	     begin # exception trapped block
+       
+       	      fileName =  File.join(sandboxdir, "11tabone.rwd")
+        
+	      fd = File.open(fileName,"r")
+	     
+	     @tinkerbellguidesign =        fd.read
+      
+            fd.close
+            rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+    end # exception rescue
+    when "2ndtab"
+	     begin # exception trapped block
+       
+       	      fileName =  File.join(sandboxdir, "22tabtwo.rwd")
+        
+	      fd = File.open(fileName,"r")
+	     
+	     @tinkerbellguidesign =        fd.read
+      
+            fd.close
+            rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+          end # exception rescue
+    when "3rdtab"
+	     begin # exception trapped block
+       
+       	      fileName =  File.join(sandboxdir, "33tabthree.rwd")
+        
+	      fd = File.open(fileName,"r")
+	     
+	     @tinkerbellguidesign =        fd.read
+      
+            fd.close
+            rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+          end # exception rescue
+    
+	else
+	   $stderr.puts "not a valid tab"	  
+       end
+end
+

data/code/superant.com.tinkerbell/openhelpwindow.rb

@@ -0,0 +1,30 @@
+# this code is to call the help window
+def runhelpwindowtinkerbell
+
+     $help_topic = "tinkerbell_generalhelp"
+   
+   if @rwd_tab == "tinkerbellgui"
+        $help_topic = "tinkerbellgui_help"
+   end
+
+   if @rwd_tab == "rwdshellruby"
+        $help_topic = "tinkerbellruby_help"
+   end
+
+   if @rwd_tab == "rwdlinesruby"
+        $help_topic = "tinkerbellruby_help"
+   end
+   
+    
+   $helptopicsarray =  $helptopicsarray | ["tinkerbell_generalhelp"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.tinkerbell/runrwdapplet.rb

@@ -0,0 +1,14 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runtinkerbellwindow
+   @rwd_window = "tinkerbellwindow"
+   @rwd_tab = "tinkerbellgui"
+   end   
+   
+   def tinkerbellbackwindow   
+	   @rwd_window = "tinkerbellbackwindow"
+   @rwd_tab = "rwdshellruby"
+   end

data/code/superant.com.tinkerbell/rwdtinkerversion.rb

@@ -0,0 +1,10 @@
+# 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
+
+# return the version constant defined in the config file
+def tinkerbellhelpaboutsetup
+return ["TinkerBell","(c) 2005-2008 Steven Gibson ","Version #{TinkerBellVersion}"]
+end
+
+

data/code/superant.com.tinkerbell/savecoderecord.rb

@@ -0,0 +1,18 @@
+  # this method saves  record
+  def savetinkerbellcoderecord
+   require 'fileutils'
+   
+      sandboxdir1 = File.join($progdir, "code")
+     sandboxdir = File.join(sandboxdir1 , "superant.com.sandbox")
+     fileName = File.join(sandboxdir, @a_tinkerbellcodeselect)
+        begin
+
+        	fd = File.open(fileName,"w")
+	        fd.print(@tinkerbellcodedesign) # save the record info to the file
+	        fd.close
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+  
+  end

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

@@ -0,0 +1,20 @@
+  # this method saves configuration record
+  def savetinkerbellconfiguration
+   require 'fileutils'
+
+   
+   newname = "tinkerbellw-" + TinkerBellVersion + ".cnf" # grab the filename to create
+   newdata = @a_tinkerbellconfigurationfile
+   
+	  
+        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
+          
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

data/code/superant.com.tinkerbell/saveguirecord.rb

@@ -0,0 +1,22 @@
+  # this method saves configuration record
+  def savetinkerbellguirecord
+   require 'fileutils'
+   
+   sandboxdir1 = File.join("gui", "tinkerbackwindows")
+	sandboxdir = File.join(sandboxdir1 , "superant.com.sandbox")
+ case @a_tinkerbellguiselect
+	when "1sttab"
+ 
+        begin # exception trapped block
+          fileName = File.join( sandboxdir, "11tabone.rwd")
+        	fd = File.open(fileName,"w")
+	        fd.print(@tinkerbellguidesign) # save the record info to the file
+	        fd.close
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    else
+	   $stderr.puts "not a valid tab"	  
+       end
+  end

data/code/superant.com.tinkerbellback/helptexthashshell.rb

@@ -0,0 +1,18 @@
+  
+
+ Helptext.update( :tinkerbellruby_help => '  You can enter ruby commands here
+     
+<p>
+    you can put in something like "Hello!" 
+  <p>
+  "Howdy Steven".upcase
+  <p>
+  carray = ["one "] ; carray << " two" ; carray.each{|x| x.upcase} 
+  <p>
+  10.between?(7,12)
+  <p>
+  ["tivo","nokia", "ipaq"].length
+  <p>
+  xhash = { "altima" => "nissan", "camry" => "toyota", "rx7" => "mazda" }  ; xhash.keys
+'
+)

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

@@ -0,0 +1,23 @@
+#
+    
+   def rubyevaltinkerbell
+     
+     require 'English'
+
+       commandtextruby = "%s " % [@a_rubyevaltinkerbell]
+    
+  
+  begin      # begin rescue monitored block	
+        if commandtextruby.include? '�'
+	@rubydisplaytinkerbell = "\n" + "problem in eval"
+	else
+    @rubydisplaytinkerbell  = eval( commandtextruby ).to_s
+     end
+        
+  rescue # process exeption
+
+@rubydisplaytinkerbell = "\n" + "error in eval"
+
+  end # end of rescue process  # of rescure monitored block        
+ end
+  

data/code/zz0applicationend/zz0end.rb

@@ -0,0 +1,4 @@
+
+
+end # end of rwdtinker class
+	

data/configuration/language.dist

@@ -0,0 +1,8 @@
+##VERSION:1.69
+#language selection file
+##NAME:$lang:0
+#$lang = "jp"
+$lang= "en"
+#$lang= "nl"
+#$lang= "es"
+#$lang= "fr"

data/configuration/rwdapplicationidentity.dist

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

data/configuration/rwdtinker.dist

@@ -0,0 +1,18 @@
+##VERSION:1.77
+ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
+CodeName = "rwdtinker"
+CodeNameFile = CodeName + ".rb"
+RWDFile	= "rwdtinker.rwd"
+LangDir = "lang"
+ CodeDir = "code" 
+ GuiDir = "gui"  
+  $help_topic = "general_help"
+   $helptopicsarray = [ "general_help","network_help"]
+  $prevouswindow ="main" 
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]   # remote control code not actived 2007
+ $port = 7705
+$rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
+Browser_Exe = 'mozilla '
+$tinkerdocumentsarray +=["HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
+RwdTinkerVersion = "1.77"
+

data/configuration/tinkerbellw-0.01.dist

@@ -0,0 +1,8 @@
+##VERSION:0.01
+$tinkerhelpaboutarray += ["TinkerBell"] 
+$tinkerdocumentsarray += ["HowTo_TinkerBell.txt"]
+JumpLink.update(:TinkerBell=>"runtinkerbellwindow", :TinkerBellBackWindow=> "tinkerbellbackwindow")
+$rwdjumplink +=["TinkerBell","TinkerBellBackWindow"]
+##NAME:TinkerBellVersion:0
+TinkerBellVersion = "0.01"
+

data/configuration/tinkerwin2variables.dist

@@ -0,0 +1,17 @@
+##VERSION:1.69
+TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
+##NAME:$zipslocation:0
+$zipslocation = "zips" # location of applets to add
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+##NAME:$xpcommand:0
+ $xpcommand = " "  # Linux machines
+# $xpcommand =  "cmd /C "  # XP machines with cmd shell
+##NAME:$gemdirectory_withgemfiles:0
+ $gemdirectory_withgemfiles = "/var/lib/gems/1.8/gems"
+# $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
+##NAME:$geminstalled_directory:0
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/var/lib/gems/1.8/gems" # Debian Linux
+
+RwdTinkerWin2Version = "0.8"
+

data/gui/00coreguibegin/applicationguitop.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"<application>
+  <window name=\"main\" title=\"TinkerBell - NAD for Rwdinker with Ruby\">
+<tabs>"

data/gui/frontwindow0/cc0openphoto.rwd

@@ -0,0 +1,22 @@
+$rwdguivar=  
+	
+"	
+	<tab name=\"viewtinkerlogo\" caption=\"Tinker\">
+
+    <table>
+      <row> <p align=\"right\">#{Message[:tinker_logo]}</row>
+
+    </table>
+    <image src=\"tinker.png\"> </image>
+    <table>
+      <row> <p></row>
+
+    </table>
+      <horizontal>
+      
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
+      
+      
+     </horizontal>
+
+	</tab>"

data/gui/frontwindowselections/00selectiontabbegin.rwd

@@ -0,0 +1,11 @@
+$rwdguivar=
+"	
+      <tab name=\"selectiontab\" caption=#{Message[:menu_panel]}>
+
+      <table>
+      <row> <p align=\"right\">Open a new location </row>
+
+     </table>
+"
+
+

data/gui/frontwindowselections/jumplinkcommands.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
+    </horizontal>
+"

data/gui/frontwindowselections/wwselectionend.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+	</tab>"

data/gui/frontwindowtdocuments/00documentbegin.rwd

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

data/gui/frontwindowtdocuments/tinkerdocuments.rwd

@@ -0,0 +1,14 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showdocument_list]} action=\"setuptinkerdocuments\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_tinkerdocumentinput\">  %%tinkerdocumentsarray%% </select>
+
+   </table>
+<horizontal>
+      <button caption=#{Message[:open_document]} action=\"runopentinkerdocument\"/>
+  </horizontal>
+"

data/gui/frontwindowtdocuments/zzdocumentend.rwd

@@ -0,0 +1,8 @@
+$rwdguivar=
+"     
+<horizontal>       
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
+      
+    </horizontal>
+	</tab>"
+	

data/gui/helpaboutbegin/zzzrwdlasttab.rwd

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

data/gui/helpaboutbegin/zzzzhelpscreenstart.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"main\" title=#{Message[:help_about]}>"

data/gui/helpaboutbegin/zzzzzzhelpabouttab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
+    </horizontal>
+"

data/gui/helpaboutzend/helpscreenend.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+</helpwindow>"

data/gui/helpaboutzend/zhelpscreenstart2.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"tinkerbackwindow\" title=#{Message[:help_about]}>"