tinkerbell 0.03 → 0.04

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

@@ -1,4 +1,6 @@
-# this method puts the configuration rexord on the screen
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this method puts the configuration rexord on the screen
+
 def loadconfigurationrecord
 
 	require 'fileutils'

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

@@ -23,7 +23,9 @@ def runhelpwindowtinkerwin2
 	if @rwd_tab == "superantcomremotezipsinstall"
 		$help_topic = "remotegemapplet_install"
 	end
-
+	if @rwd_tab == "localechangertab"
+        $help_topic = "localechanger_help"
+	end
 	
 	if @rwd_window != "rwdtinkerhelpwindow"
 		$previouswindow = @rwd_window

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

@@ -0,0 +1,9 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# help about option setup for rwdtinker application
+
+
+def showlocalechoicesoptions
+
+  @localechooseoptions = $langarray.rwd_options
+end	
+   

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

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'

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

@@ -1,13 +1,16 @@
+#view the log on the tab
+
 def rwdtinkerrunviewlog
 	   require 'lib/rwdtinker/rwdtinkertools'
 	   
+                  logfilelocation = File.join(LogDirectory, 'rwdtinker.log')      
            if @a_rwdtinkerlognumber == nil
 		        @a_rwdtinkerlognumber = 11
-	                 @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
+		        
+	    end
+		        
+	         @returnlogdisplay = RwdtinkerTools.tail(logfilelocation , @a_rwdtinkerlognumber.to_i)
 			 
-	   else
-		         @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
-
-           end
+	   
 end
 

data/code/superant.com.sandbox/tabthree.rb

@@ -1,6 +1,4 @@
  
- 
-class Sandboxcalc
 
   def frwdadd 
 	  $stderr.puts "in frwdadd"
@@ -52,5 +50,3 @@ class Sandboxcalc
     @frunningtape = $frunningtotal
   end
 	
-end
-
 # intialize variables

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

@@ -0,0 +1,66 @@
+#  info
+def buildsandboxfilelist
+	sandboxfilelist = []
+	sandboxfilelist << File.join("configuration", "sandbox.dist")
+	sandboxfilelist << File.join("installed", "sandbox.inf")
+	
+        codedir = File.join("code","superant.com.sandbox")
+	tmpsandboxfilelist = Dir.new(codedir).entries.sort.delete_if { |x| ! (x =~ /rb$/) } 
+	tmpsandboxfilelist.length.times{               #opening of a block
+                       line = tmpsandboxfilelist.pop                #pops the first item out of the Array
+                     sandboxfilelist  << File.join(codedir, line.strip) 
+	                         }  
+	
+        guidir1 = File.join("gui","tinkerbackwindows")
+	guidir2 = File.join(guidir1, "superant.com.sandbox")
+	 tmpsandboxfilelist = Dir.new(guidir2).entries.sort.delete_if { |x| ! (x =~ /rwd$/) } 
+	 tmpsandboxfilelist.length.times{               #opening of a block
+                       line = tmpsandboxfilelist.pop                #pops the first item out of the Array
+                     sandboxfilelist  << File.join(guidir2, line.strip) 
+	                         }  
+	 return sandboxfilelist
+end
+	
+def ziptinkerbellfile
+	require 'fileutils'
+	require 'lib/zip/zip'
+	begin # exception trapped block
+	nametext =  @a_viewtinkerbellfile.strip
+
+	
+		fullname =  nametext +"-" + Time.now.localtime.strftime("%Y-%m-%d")+".zip"
+		  fileName = @a_viewfoldlinkfile
+		
+         
+	   sandboxfileList = buildsandboxfilelist
+		
+		
+		Zip::ZipOutputStream.open(fullname ) {
+  |zos|
+  zos.put_next_entry( nametext)
+  zos.puts "the zip file name is: #{@a_viewtinkerbellfile}"
+  zos.close
+}
+
+  zipfilehandle = Zip::ZipFile.open(fullname) 
+  sandboxfileList.length.times{               #opening of a block
+                       line = sandboxfileList.pop                #pops the first item out of the Array
+                        if FileTest.exist?(line.strip)
+	                                zipfilehandle.add(line.strip,line.strip)
+                       end
+                    }  
+	
+  zipfilehandle.close
+            
+         		
+		
+@a_ziptinkerbelllinkfile = fullname 
+
+	rescue
+	  $rwdtinkerlog.error "ziptinkerbellfile:  error - #{$!}"
+		
+	end # exception rescue
+
+end
+
+

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

@@ -0,0 +1,22 @@
+   # this code loads the help text
+
+                 
+               tmphelpfilename = "tinkerbellhelpfiles.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+	     
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "foldeditor help file load: system call error: "
+        end # exception rescue
+
+  

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

@@ -0,0 +1,19 @@
+   # this method views an existing file
+  def loadtinkerbellfilelist
+ 
+         require 'fileutils'
+	      
+        begin # exception trapped block
+      
+	     
+        
+	      filelist = buildsandboxfilelist
+	     
+	      @a_tinkerbellfilelist =       filelist.rwd_options
+	      
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -1,24 +1,18 @@
 # 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
-   
+     $help_topic = "tinkerbell_generalhelp"
+        $helptopicsarray =  $helptopicsarray  << "tinkerbell_generalhelp"
+     
+     helpsearchterm = @rwd_tab  + "_help"
+     
     
-   $helptopicsarray =  $helptopicsarray | ["tinkerbell_generalhelp"]
-  
-   
+   if Helptext.has_key? helpsearchterm.intern
+                  $help_topic = helpsearchterm
+                   if  ! $helptopicsarray.include?( helpsearchterm)
+	                     $helptopicsarray << helpsearchterm 
+                  end
+   end
   
  if @rwd_window != "rwdtinkerhelpwindow"
        $previouswindow = @rwd_window

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

@@ -10,5 +10,5 @@
    
    def tinkerbellbackwindow   
 	   @rwd_window = "tinkerbellbackwindow"
-   @rwd_tab = "rwdshellruby"
+   @rwd_tab = "tinkerbellruby"
    end

data/code/zz0applicationend/zz0end.rb

@@ -1,4 +1,5 @@
-
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
+# end of rwdtinker class
 
 end # end of rwdtinker class
 	

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.82)
+##VERSION: (1.84)
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -10,6 +10,6 @@ LangDir = "lang"
     $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716"]   # remote control code not actived 2007
  $port = 7705
-##NAME: (RwdTinkerVersion):(1.82)
-RwdTinkerVersion = "1.82"
+##NAME: (RwdTinkerVersion):(1.84)
+RwdTinkerVersion = "1.84"
 

data/configuration/sandbox.dist

@@ -0,0 +1,7 @@
+##VERSION: (0.01)
+#JumpLink.update(:SanboxTab => "sandboxtabone")
+#$rwdjumplink << "SanboxTab"
+$frunningtotal = ""
+##NAME: (SandboxVersion):(0.01)
+SandboxVersion = "0.01"
+

data/configuration/tinkerbellw.dist

@@ -1,10 +1,10 @@
-##VERSION: (0.03)
+##VERSION: (0.04)
 $tinkerhelpaboutarray << "TinkerBell" 
 $tinkerdocumentsarray << "HowTo_TinkerBell.txt"
 JumpLink.update(:TinkerBell=>"runtinkerbellwindow", :TinkerBellBackWindow=> "tinkerbellbackwindow")
 $rwdjumplink << "TinkerBell" << "TinkerBellBackWindow"
 ##NAME: (DeleteTinkerBellConfig):(0.03)
 DeleteTinkerBellConfig = true
-##NAME: (TinkerBellVersion):(0.03)
-TinkerBellVersion = "0.03"
+##NAME: (TinkerBellVersion):(0.04)
+TinkerBellVersion = "0.04"
 

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.82)
+##VERSION: (1.84)
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME: ($zipslocation):(1.78)
 $zipslocation = "zips" # location of applets to add

data/gui/tinkerbackwindows/superant.com.sandbox/33tabthree.rwd

@@ -7,14 +7,14 @@ $rwdguivar=
     </table>
     <p>%fresult%</p>
     <horizontal>
-     <button caption=\"Add\" action=\"$testcalc.frwdadd\"/>
+     <button caption=\"Add\" action=\"frwdadd\"/>
      <button caption=\"Subtract\" action=\"frwdsubtract\"/>
 
       <button caption=\"Multiply\" action=\"frwdmultiply\"/>
       <button caption=\"Divide\" action=\"frwddivide\"/>
     </horizontal>
     <horizontal>
-     <button caption=\"Clear Tape\" action=\"$testcalc.frwdcleartape\"/>
+     <button caption=\"Clear Tape\" action=\"frwdcleartape\"/>
      </horizontal>
     <p>%frunningtape%
 	</tab>"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/80localechanger.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=localechangertab caption=#{Message[:localechangertablabel]}>
+<horizontal>
+<button caption=#{Message[:tinkercoreshowlocale_choices]} action=\"showlocalechoicesoptions\"/>
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+</horizontal>
+ <table>
+      <select name=\"a_localechooseinput\">  %%localechooseoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:tinkercorechangelocale]} action=\"runlocalechangercommand\"/>
+    </horizontal>
+    </tab>
+"

data/gui/tinkerbackwindows/superant.com.tinkerbell/60zipfoldfiles.rwd

@@ -0,0 +1,31 @@
+$rwdguivar=
+"
+	<tab name=\"tinkerbellzipfile\" caption=#{Message[:ziptinkerfile_tab]}>
+
+    <table>
+      <row> <p align=\"right\">#{Message[:tinkerbellfile_name]}</p>  <text size=50 name=\"a_viewtinkerbellfile\"/> </row>
+
+    </table>
+     
+<table>
+      <horizontal>
+
+  <button caption=#{Message[:viewtinkerbellfile_contents]} action=\"loadtinkerbellfilelist\"/>
+<button caption=#{Message[:ziptinkerbell_file]} action=\"ziptinkerbellfile\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindowtinkerbell\"/>
+          </horizontal> 
+	  </table>
+	  </table>
+	  <row> <p align=\"left\">  %a_ziptinkerbelllinkfile% </p></row>
+</table>
+     
+ 
+    <p>%a_tinkerbellfilelist%</p>
+
+
+	
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbellback/1rwdrubyeval.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-	<tab name=\"rwdshellruby\" caption=\"ruby\">
+	<tab name=\"tinkerbellruby\" caption=\"ruby\">
     <table>
       <row> <p align=\"left\">Ruby Command:</p>  <text size=50 name=\"a_rubyevaltinkerbell\"/> </row>
     </table>

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

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=selectiontab caption=#{Message[:selection_tab]}>
+<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>
+    </tab>
+"

data/init.rb

@@ -23,13 +23,19 @@
 
 require 'logger'
 
-$rwdtinkerlog = Logger.new( 'rwd_files/log/rwdtinker.log', 'weekly' )
+LogDirectory = 'rwd_files/log/'
+logfilelocation = File.join(LogDirectory, 'rwdtinker.log')
+
+$rwdtinkerlog = Logger.new( logfilelocation , 'weekly' )
 $rwdtinkerlog.level = Logger::INFO
 
 require "lib/rwd/rwd"
 require 'fileutils'
 require 'lib/rconftool'
 
+$KCODE = 'u'
+require 'jcode'
+
 $progdir = File::expand_path( File.dirname(__FILE__))
 
 tempdoc = " "

data/installed/sandbox.inf

@@ -0,0 +1,4 @@
+# tinkerbell - NAD gui developer for RwdTinker
+gui/tinkerbackwindows/superant.com.sandbox
+code/superant.com.sandbox
+configuration/sandbox.dist

data/installed/tinkerbellw.inf

@@ -1,13 +1,16 @@
 # tinkerbell - NAD gui developer for RwdTinker
 gui/tinkerbackwindows/superant.com.tinkerbellback
-gui/tinkerbackwindows/superant.com.sandbox
 gui/tinkerbackwindows/superant.com.tinkerbell
 code/superant.com.tinkerbell
 code/superant.com.tinkerbellback
-code/superant.com.sandbox
 tests/makedist-tinkerbell.rb
 tests/gemspec-tinkerbellw
 rwd_files/HowTo_TinkerBell.txt
 configuration/tinkerbellw.dist
-
-
+rwd_files/tinkerbellhelpfiles.txt
+lang/en/tinkerbell/en.po
+lang/es/tinkerbell/en.po
+lang/fr/tinkerbell/en.po
+lang/hi/tinkerbell/en.po
+lang/ja/tinkerbell/en.po
+lang/nl/tinkerbell/en.po

data/lang/en/rwdcore/en.po

@@ -1,5 +1,8 @@
 # English Language files for RwdTinker core
  
+ msgid "error_message_id_unknown"
+ msgstr "ERROR: Message-ID Unknown"
+ 
   msgid "applet_installed"  
   msgstr '"applet installed!"'
   
@@ -63,6 +66,12 @@ msgid "file_name"
   msgid "listzipdirappletsavailable"  
   msgstr  '"List (zip directory) applets available for installation"'
   
+  msgid "localechangertablabel"
+   msgstr  '"Locale Changer"'
+   
+    msgid "locale_changer_help"
+    msgstr  "You can change the locale on this tab<br>Click on Show Locale Choices to fill in  the pull down options<br>When you click on Change Locale Now the entire GUI will be reloaded" 
+  
   msgid "menu_panel"     
   msgstr  '"Menu Panel"'
   
@@ -126,6 +135,12 @@ msgid "selection_panel"
 msgid "selection_tab" 
   msgstr  '"Menu Tab"'
 
+msgid "tinkercoreshowlocale_choices"
+ msgstr  '"Show Locale Choices"'
+ 
+msgid "tinkercorechangelocale"
+ msgstr  '"Change Locale Now"'
+
 msgid "tinker_logo"
   msgstr  '"Tinker Logo"'
 
@@ -164,3 +179,16 @@ msgstr  '"View Install Text"'
 
  msgid "window"    
   msgstr  "Window"   
+
+ msgid "message_general_help"
+ msgstr "rwdtinker is the core application for the
+                       rwdapplications. On the front screen you can view
+                       documents and make menu choices.  On the back 
+                       screen you will find:<p>
+                       You can work with Applets:  go to Selection tab, <br>
+                                  On that back screen you will find:<br>
+                                  List Applets:  you can see and delete installed applets<br>
+                                  List Zips: you can see lists of applets that you can install<br>
+                                  Edit Configuration: You can view the rwdtinker configuration and change it<br>
+                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with<br>"
+