rwdgutenberg 0.12 → 0.13

data/code/01rwdcore/01rwdcore.rb

@@ -1,8 +1,5 @@
 # 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
-# This class is the top class for the RwdTinker application 
+
 
 $DEBUG=false
 $VERBOSE=false
@@ -15,8 +12,7 @@ class RwdTinker  < RWDialog
 
 		@display= "idle"
 		if TestNow 
-
-			rwdtest_harness
+                     rwdtest_harness
 		end
             showjumplinkoptions
             setuptinkerdocuments
@@ -27,3 +23,7 @@ class RwdTinker  < RWDialog
 		"#{$rwdapplicationidentity}" 
 	end
 
+
+# for original RWD work see: http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+# This class is the top class for the RwdTinker application 

data/code/01rwdcore/02helptexthashbegin.rb

@@ -1,4 +1,16 @@
-  
+  # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 
- Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Message-ID Unknown: #{kk.inspect}."; hh[kk] }
     helpmessage = {
+    :tinker_help          => "rwdtinker is the core application for the
+                       rwdapplications. "
+      
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    
+
+=begin
+    this is to set up the help  buttons 
+    this uses a hash
+=end
+    

data/code/01rwdcore/03helptexthash.rb

@@ -1,23 +1,21 @@
- # Help files for RwdTinker core
+ # this code loads the help text
 
-   
-      :general_help          => "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>
-      ",
-      :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the<br>
-init.rb file to something like:\n<br>
-RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n<br>
-Then you should be able to login at: http://yourhostname:8080",
+                  
+               tmphelpfilename = "Tinkerhelptexthash.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  "Tinkerbell help file load: system call error: "
+        end # exception rescue
 
-          
-  :documents_rwdtinker => "<b>Documents:
-  <p>
   
-  when you click on a document name, the document should pop up in a <br>
-  browser window, or in another browser tab.</b>
-  "
-      

data/code/01rwdcore/jumplinkcommand.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind message passing socket to rwdtinker application
 
     locationlink = {
@@ -10,11 +11,20 @@
     locationlink.each { |kk, vv| JumpLink[kk] = vv }
     
 def runjumplinkcommand
-if  @a_jumplinkinput
-runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
+	
+	if TabHash.has_key?  JumpLink[:"#{@a_jumplinkinput}"].intern
+		
+		
+		@rwd_window = TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		@rwd_tab = JumpLink[:"#{@a_jumplinkinput}"]
+		
+	else
+		
+                            runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
 
-self.send(runjumplocation)
- end
+                                 self.send(runjumplocation)                         
+         end
+	 
    end
 
 

data/code/01rwdcore/openhelpwindow.rb

@@ -1,4 +1,7 @@
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to call the help window
+# for RwdTinker core
+
 def runhelpwindow
 	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
@@ -29,3 +32,7 @@ def choosenewhelptopic(inffile)
 end
 
 
+
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to call the help window
+# for RwdTinker core

data/code/01rwdcore/runhelpabout.rb

@@ -7,4 +7,9 @@
    @rwd_window = "rwdtinkerhelpwindow"
   
    end 
-   
+
+=begin
+This def runtinkerhelpabout
+is to call the rwdtinkerhelpwindow
+=end
+

data/code/01rwdcore/runtab.rb

@@ -0,0 +1,15 @@
+# Application RwdTinker orginally (c) 2004-2008 Steven Gibson under GPL. 
+#  rwdtinker application
+
+
+def runtablinkcommand
+
+		$stderr.puts TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		
+		@rwd_windows = "tinkerbackwindow"
+		@rwd_tab = "selectiontab"
+	
+   end
+
+
+

data/code/01rwdcore/selectiontab.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to return to the window back from the help window
+
 def runselectiontab
 
 	

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # help about option setup for rwdtinker application
+
 def setuphelpaboutoptions 
 
   @rwd_window = "tinkerhelpabout"

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind document names  to rwdtinker document tab
 def setuptinkerdocuments 
 

data/code/01rwdcore/test_cases.rb

@@ -1,71 +1,120 @@
 # test harness
 
 	
-require 'test/unit/testcase'
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-include Test::Unit  
-def rwdtinker_all_tests 
-	print "in rwdtinker all tests\n"
-  $testrwdtinkertestcase = TestSuite.new
-	test_runrwdtinkerbackwindow
-end
-
-def test_runrwdtinkerbackwindow
-
 
-	begin
-  testasserts = 0
-  print "Starting rwdtinker tests!\n"
+def rwdtinker_all_tests 
+	$rwdtinkerlog.info "in rwdtinker all tests"
+	
+    $rwdtinkerlog.info "Starting rwdtinker tests!\n"
 		runrwdtinkerbackwindow
-    
-    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
-     runselectiontab
-     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+
+    if  "tinkerbackwindow" == @rwd_window
+       $testasserts += 1 
+       else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerbackwindow"
+     end
+     
+  runselectiontab
+
+     if "selectiontab" == @rwd_tab
+	     $testasserts += 1
+	       else
+	     $testfailures += 1
+	     $testerrorarray << "selectiontab"
+     end
+         
     showjumplinkoptions
     @a_jumplinkinput = "returntomain"
    runjumplinkcommand
-    assert_equal("main",@rwd_window) ; testasserts += 1 
+    if "main"  == @rwd_window
+  $testasserts += 1
+  	       else
+	     $testfailures += 1
+	     $testerrorarray << "returntomain"
+     end
 		@a_jumplinkinput = "helpscreen"
     runjumplinkcommand 
     
-     assert_equal("rwdtinkerhelpwindow",@rwd_window)  ; testasserts += 1
-     returntomain
-     assert_equal("main",@rwd_window)  ; testasserts += 1
+     if  "rwdtinkerhelpwindow" == @rwd_window
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "helpscreen"
+     end
+
      runtinkerdocuments
-     assert_equal("documentsrwdtinkerone",@rwd_tab)  ; testasserts += 1
-     	runrwdtinkerbackwindow
-    
-    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
-    @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
-    viewgemappletcontents
-    assert_not_nil(@appletcontentstext)  ; testasserts += 1
-    runrwdtinkerwin2version
-      assert_equal("applicationversion",@rwd_window) ; testasserts += 1 
-        returntomain
-     assert_equal("main",@rwd_window)  ; testasserts += 1
-      	runrwdtinkerbackwindow
-    
-    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
-    runremotezipsinstall
-     assert_equal("superantcomremotezipsinstall",@rwd_tab) ; testasserts += 1
-    runeditconfiguration   
-    assert_equal("editconfigurationfile",@rwd_tab) ; testasserts += 1    
-    
-     
- $stderr.print "tests completed succesfully!\n"
- $stderr.print testasserts, " asserts performed\n"
+     if "documentsrwdtinkerone" == @rwd_tab
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "runtinkerdocuments"
+     end
 
-	rescue  NotImplementedError, Exception
-		$stderr.print $!
 
-	end
-  
-end
+    runrwdtinkerwin2version
+      if "applicationversion" == @rwd_window
+	      $testasserts += 1
+	                  else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerwin2version"
+     end
 
+  
+    runremotezipsinstall
+     if "superantcomremotezipsinstall" ==  @rwd_tab
+	     $testasserts += 1     
+	     else
+	     $testfailures += 1
+	     $testerrorarray << "runremotezipsinstall"
+     end
 
+    runeditconfiguration   
+    if "editconfigurationfile" == @rwd_tab
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "runeditconfiguration"
+     end
+ runhelpwindowtinkerwin2
+ 
+  if  @rwd_tab == "editconfigurationfile"  && @rwdhelpdataoutput.include?("Remember to reload the configuration variables")
+   $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "applet_tinkerbackeditconfiguration"
+     end
+     
+     
+   rwd_jump("rwdlogfiletab", "rwd_tab_rwdlogfiletab")
+ 
+     if  @rwd_tab == "rwdlogfiletab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "rwdlogfiletab"
+     end
+     
+    rwd_jump( "diagnostictab")
+         if  @rwd_tab == "diagnostictab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "diagnostictab"
+     end
+ end
+ 
+ def rwd_jump(tab, go="")
+	 @rwd_tab = tab
+  @rwd_action = go
+  end
+ 
+ def teststobedown  
+          	runrwdtinkerbackwindow
+        @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
 
-def teststobedown
  runtinkerhelpabout
           assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
 	raise NotImplementedError, 'Need to write test_choosenewhelptopic'

data/code/01rwdcore/test_harness.rb

@@ -2,12 +2,19 @@
 def rwdtest_harness
 
 	print "in test harness\n"
-  
+       $testasserts = 0
+       $testerrorarray = [""]
+        $testfailures = 0 
+ 	
 	$testharnessarray.each { |x| 
 		print "calling #{x}\n"
 		eval("#{x}")
 
 	}
+	$rwdtinkerlog.info "successes = #{$testasserts}"
+	$rwdtinkerlog.info "failures  =  #{$testfailures}"
+	$rwdtinkerlog.info  "failed methods #{$testerrorarray}" 
+	$rwdtinkerlog.info  "tested methods #{$testharnessarray}"
 
 end
 

data/code/01rwdcore/uploadreturns.rb

@@ -1,3 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# return information to the author
+
 def uploadreturnsfile
 	require 'net/ftp'
 	BasicSocket.do_not_reverse_lookup = true 

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -1,3 +1,5 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
 def viewphoto
 	@rwd_window = "photo"
 end

data/code/superant.com.gutenberg/0uninstallapplet.rb

@@ -5,6 +5,8 @@ Helptext.delete_if {|key, value| key == :rwdgutenberg_generalhelp}
 Helptext.delete_if {|key, value| key == :gutenbergedit_help  }
 Helptext.delete_if {|key, value| key == :gutenbergutility_help  }
 Helptext.delete_if {|key, value| key == :rwdgutenberg_configuration }
+Helptext.delete_if {|key, value| key == :gutenlist_help }
+Helptext.delete_if {|key, value| key == :rwdgutenbergmarcrecords_help  }
 $rwdjumplink.delete_if {|x| x == "RwdGutenbergMainWindow"}
 $rwdjumplink.delete_if {|x| x == "GutenbergBackWindow"}
   if DeleteGutenbergConfig

data/code/superant.com.gutenberg/createnewnote.rb

@@ -11,7 +11,7 @@
 	  @a_gutenbergdatacomments.to_s + "\n" 
     end
     if  @a_viewgutenberg.empty?
-      newnotefilename = File.join ($rwdgutenberg_directory , "newnote.lnk")
+      newnotefilename = File.join($rwdgutenberg_directory , "newnote.lnk")
     else
        tmplinkfilename = @a_viewgutenberg.to_s.strip + ".lnk"
       newnotefilename = File.join($rwdgutenberg_directory,  tmplinkfilename)