rwdgutenberg 0.05 → 0.06

data/Readme.txt

@@ -81,6 +81,11 @@ Steven Gibson
 steven@superant.com
 
 == Changelog 
+Version 0.06
+ Add html viewing tab
+ added reset button
+ updated for rwdtinker 1.66
+ 
 Version 0.05
  Fix bug with file advance
  updated for rwdtinker 1.65

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

@@ -2,7 +2,13 @@
   def rwdgutenloadbookrecord
  
          require 'fileutils'
-        
+        @a_gutenbergdatapath =       ""
+         @a_gutenbergdatainfo =        ""
+          @a_gutenbergdatalocation =     ""
+           @a_gutenbergdatalines =        ""
+            @a_gutenbergdataspeed =        ""
+	   	       @a_gutenbergdatacomments =      ""
+	      
 	      
         begin # exception trapped block
        

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

@@ -1,39 +1,54 @@
-# method to open new gutenberg window
+# method to open new TEXT gutenberg window
  def rungutenbergwindow
-    
-     rwdgutenbergwindowtwo
+      @rwd_window	= "gutendisplaywindowtwo"
+      rwdgutenbergwindowtwo
+  end
+  
+# method to open new HTML gutenberg window
+ def rungutenbergwindowhtml
+   @rwd_window	= "gutendisplayhtmlwindowtwo"
+    rwdgutenbergwindowtwo
   end
-
   $tempnumber  = 0
+ 
+ # start book from beginning
+  def rungutenbergreset
+  $booklocation = 0
+   $gutenbergcommand = "openbook"
+  
+     rwdgutenbergwindowtwo
+  end
+ 
  # display text and advance text
   def rwdgutenbergwindowtwo
-  tempdoc = ""
-  @gutendisplayvariable = ""
-  tempcount = 0
-  if @rwd_tab== "rwdgutenberg"
-    @rwd_window	= "gutendisplaywindowtwo"
-    end
-    
-    if $gutenbergcommand == "openbook"
-          tmpfileName =  @a_viewgutenberg + ".gut"
-          fileName = File.join($rwdgutenberg_directory,tmpfileName)
-    begin
-	    fd = File.open(fileName,"r")
-	    booktitle =        fd.readline.chomp
-      $stderr.print booktitle
-      $bookfile=File.new(booktitle,"r")        #opens the file thats in fileName as read only
+  begin
+    tempdoc = ""
+    @gutendisplayvariable = ""
+    tempcount = 0
+    $stderr.print "starting\n"
+   
+   if $gutenbergcommand == "openbook"
+      
+  #  raise "forced error test"  # raise RuntimeError
+ $stderr.print "testing string\n"
+      fileName = $rwdgutenberg_directory + "/" +  @a_viewgutenberg + ".gut"
       
-      rescue
+     $stderr.print "about to open file existence "
+      $stderr.print fileName
+      $stderr.print "\n"
+  
+          fd = File.open(fileName,"r")
+          booktitle =        fd.readline.chomp
+          $stderr.print booktitle
+          $bookfile=File.new(booktitle,"r")        #opens the file thats in fileName as read only
+         $gutenbergcommand == "continue"
+   
+        
+      
+   end
+   
      
-     $stderr.print "error: #{$!}"
-    end  
-       $gutenbergcommand == "continue" 
-    end  
-    
- 
    if $gutenbergcommand == "continue"
- 
-  
        tempcount = 0
       while   tempcount <  $booksteps 
        tempdoc += $bookfile.gets    #reads the file into the doc string
@@ -55,4 +70,12 @@
           $bookfile.close   
     end       
        @gutendisplayvariable = tempdoc
+   
+   
+     rescue SystemCallError , StandardError, RuntimeError
+     		$stderr.print "system call error: " + $! + "\n"
+
+      $gutenbergcommand == "closebook"
+    
+   end
   end

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

@@ -13,7 +13,7 @@ def findzipfiles(d)
 		if(!test(?d,x))
 			# only zip files
 			if x =~ /\.zip/
-				puts "#{x}"        #opens the file thats in fileName as read only
+				    #opens the file thats in fileName as read only
 				$zipsarray =  $zipsarray | ["#{x}"] 
 			end
 		end

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

@@ -16,7 +16,7 @@ def  listzipfilestoinstall
 	a.each do |x|
 		# only zip files
 		if x =~ /\.zip/
-			#  puts "#{x}"        #adds the file to the array to display on the screen
+			        #adds the file to the array to display on the screen
 			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
 		end
 

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

@@ -12,24 +12,7 @@ def loadconfigurationrecord
 		fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
 
 		fd = File.open(fileName,"r")
-		@a_configline1=        fd.readline.chomp
-		@a_configline2 =  fd.readline.chomp
-		@a_configline3 = fd.readline.chomp
-		@a_configline4 = fd.readline.chomp
-		@a_configline5 = fd.readline.chomp
-		@a_configline6 = fd.readline.chomp 
-		@a_configline7 =fd.readline.chomp
-		@a_configline8 = fd.readline.chomp
-    @a_configline9 = fd.readline.chomp
-		@a_configline10 = fd.readline.chomp 
-		@a_configline11 =fd.readline.chomp
-		@a_configline12 = fd.readline.chomp
-    @a_configline13 =fd.readline.chomp
-		@a_configline14 = fd.readline.chomp
-
-		while ! fd.eof?
-			@extraconfigdatadisplay = fd.readline
-		end
+		@a_configurationfile =        fd.read
 		fd.close
 	rescue SystemCallError, StandardError
 		$stderr.print "system call error: " + $!

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

@@ -3,12 +3,9 @@ def saveconfigurationrecord
 	require 'fileutils'
 	if @a_configurationfilename
 		newname = "%s" %   [@a_configurationfilename] # grab the filename to create
-		newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s +
-    "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.to_s + "\n" +
- @a_configline9.to_s + "\n" + @a_configline10.to_s + "\n" + @a_configline11.to_s + "\n" +
- @a_configline12.to_s + "\n" + @a_configline13.to_s + "\n" + @a_configline14.to_s + "\n"
+		newdata =@a_configurationfile
 
-begin # exception trapped block
+          begin # exception trapped block
 			fileName = File.join( ConfigurationDir, newname )
 			fd = File.open(fileName,"w")
 			fd.print(newdata) # save the record info to the file

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.63
-$rwdapplicationidentity = "rwdgutenberg book reader"
+##VERSION:1.66
+$rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdgutenberg.dist

@@ -1,4 +1,4 @@
-##VERSION:0.05
+##VERSION:0.06
 ##NAME:$rwdgutenberg_directory:0
 $rwdgutenberg_directory = "Books"
 ##NAME:$gutenbergcommand:0
@@ -12,5 +12,5 @@ $booksteps = 14
 $tinkerdocumentsarray += ["HowTo_Gutenberg.txt"]
 $tinkerhelpaboutarray += ["RwdGutenberg"]
 ##NAME:RwdGutenbergVersion:0
- RwdGutenbergVersion = "0.05"
+RwdGutenbergVersion = "0.06"
  

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.65
+##VERSION:1.66
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -14,6 +14,6 @@ LangDir = "lang"
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
 Browser_Exe = 'mozilla '
 $tinkerdocumentsarray +=["COPYING","HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
-RwdTinkerVersion = "1.65"
+RwdTinkerVersion = "1.66"
 	
    

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.66
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"RwdGutenberg Book Reader\">
+  <window name=\"main\" title=\"RwdGutenberg - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindow0/superant.com.gutenberg/35displaytab.rwd

@@ -1,10 +1,15 @@
 $rwdguivar=
 "
-  <tab name=\"gutendisplaytab\" caption=\"Book Display\" >
+  <tab name=\"gutendisplaytexttab\" caption=\"Text Display\" >
 
     <p>%gutendisplayvariable%</p>
+  <horizontal>
+   <button caption=\'Read forward\' action=\'rwdgutenbergwindowtwo\'/>
+<button caption=\'Start from the beginning\' action=\'rungutenbergreset\'/>
   
-
-   <button caption=\'read forward\' action=\'rwdgutenbergwindowtwo\'/>
+  
+    <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+     
+  </horizontal>
   </tab>"
 

data/gui/frontwindow0/superant.com.gutenberg/36displaytab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+  <tab name=\"gutendisplayhtmltab\" caption=\"Html Display\" >
+
+    <p>%%gutendisplayvariable%%</p>
+  <horizontal>
+  <button caption=\'Read forward\' action=\'rwdgutenbergwindowtwo\'/>
+<button caption=\'Start from the beginning\' action=\'rungutenbergreset\'/>
+  
+   
+    <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+     
+</horizontal>
+</tab>"
+

data/gui/frontwindow0/superant.com.gutenberg/40rwdgutenberg.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-  <tab name=\"rwdgutenberg\" caption=\"Gutenberg Display\">
+  <tab name=\"rwdgutenbergtext\" caption=\"Auto Text Display\">
 <table>
 <horizontal>
  Open a replacement window for

data/gui/frontwindow0/superant.com.gutenberg/40rwdgutenberghtml.rwd

@@ -0,0 +1,16 @@
+$rwdguivar=
+"
+  <tab name=\"rwdgutenberghtml\" caption=\"Auto HTML Display\">
+<table>
+<horizontal>
+ Open a replacement window for
+ Book Record:  <text size=30 name=\"a_viewgutenberg\"/>
+</horizontal>
+<row><p> You should see that new window refresh every 15 seconds with </row>
+<row><p> You can return to this screen by clicking on back arrows or the cancel button</row>
+
+
+</table>
+    <button caption=\'Start Book\' action=\'rungutenbergwindowhtml\'/>
+  </tab>"
+

data/gui/tinkerbackwindows/superant.com.gutenberg/10viewnote.rwd

@@ -0,0 +1,39 @@
+$rwdguivar=  
+	"
+		<tab name=\"superantcomgutenbergfile\" caption=\"View/Edit Booklist\">
+
+    <table>
+    <row>View your book list and detail on this Tab</row>
+     <row> <p> </row> 
+      <row> <p align=\"right\">Book Record:</p>  <text size=70 name=\"a_viewgutenberg\"/> </row>
+
+    </table>
+      <horizontal>
+      <button caption=\"Open Detail\" action=\"rwdgutenloadbookrecord\"/>
+    
+    <button caption=\"Create book Note\" action=\"rwdgutenbergcreatebookrecord\"/>
+       <button caption=\"Save Changes\" action=\"savegutenbergrecord\"/>
+    
+      
+       <button caption=\"Clear\" action=\"clearbookscreendisplay\"/>
+     <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+      
+    </horizontal>
+    <table>
+  <row>  <p align=\"right\">File Name:</p><text size=70 name=\"a_gutenbergdatapath\"/></row>
+     </horizontal>    
+    <row><p align=\"left\">File Info:</p><text size=70 name=\"a_gutenbergdatainfo\"/></row>
+      <row><p align=\"left\">Bookmark:</p><text size=70 name=\"a_gutenbergdatalocation\"/></row>
+      <row><p align=\"left\">Lines/Page:</p><text size=70 name=\"a_gutenbergdatalines\"/></row>
+      <row><p align=\"left\">Speed:</p><text size=70 name=\"a_gutenbergdataspeed\"/></row>
+	   	<row><p align=\"left\">Comment:</p><text size=70 name=\"a_gutenbergdatacomments\"/></row>
+      </table>
+      <horizontal>
+      <button caption=\"List Booklists\" action=\"listgutrecordfiles\"/>
+        
+      
+           
+    </horizontal>
+
+     <p>%%gutenbergrecordsresult%%</p>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/20listfiles.rwd

@@ -0,0 +1,35 @@
+$rwdguivar=  
+	"
+	
+	<tab name=\"rwdgutenberglistfiles\" caption=\"List Files\">
+
+    <table>
+    <row>List text files</row>
+     <row> <p> </row>     
+     <row> <p align=\"right\">Directory to search:</p>
+     <text size=70 name=\"a_searchdirectorygutenberg\"/> </row>
+<row> <p> </row>      
+     <row> <p align=\"right\">New File:</p> 
+     <text size=70 name=\"a_newfilegutenberg\"/> </row>
+<row> <p align=\"right\">Name of File to Create:</p> 
+     <text size=70 name=\"a_newgutenbergdata\"/> </row>
+    </table>
+      <horizontal>
+    
+       <button caption=\"Create New File\" action=\"gutenbergcreatefile\"/>
+           
+      
+           <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+      
+    </horizontal>
+
+    
+      <horizontal>
+      <button caption=\"List Text Files\" action=\"rwdgutenbergfiles\"/>
+      
+           
+    </horizontal>
+
+   
+    <p>%%textsfilesrecordsresult%%</p>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/30booklistutilities.rwd

@@ -0,0 +1,28 @@
+$rwdguivar=
+"  
+ <tab name=\"utilitiesrwdgutenberg\" caption=\"Booklist Utilities\">
+
+    <table>
+      <row> <p align=\"right\">Booklist Title:</p>  <text size=70 name=\"a_viewgutenberg\"/> </row>
+      <row> <p align=\"right\">New Name:</p>  <text size=70 name=\"a_changegutenbergdata\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Rename Book\" action=\"changegutenbergdata\"/>
+           <button caption=\"Copy Filename into New Booklist\" action=\"copygutenbergfilename\"/>
+      <button caption=\"Delete Booklist\" action=\"deletegutenbergrecord\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+          </horizontal>
+
+ <p>%%hypernotefilechangeresult%%</p>
+          <horizontal>
+  
+
+      <button caption=\"List Booklists\" action=\"listgutrecordfiles\"/>
+      
+           
+    </horizontal>
+    <p>%%gutenbergrecordsresult%%</p>
+    <p>%%gutenbergfilechangeresult%%</p>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/35displaytab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+  <tab name=\"gutendisplaytexttab\" caption=\"Text Display\" >
+
+    <p>%gutendisplayvariable%</p>
+  <horizontal>
+   <button caption=\'Read forward\' action=\'rwdgutenbergwindowtwo\'/>
+<button caption=\'Start from the beginning\' action=\'rungutenbergreset\'/>
+  
+  
+    <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+     
+  </horizontal>
+  </tab>"
+

data/gui/tinkerbackwindows/superant.com.gutenberg/36displaytab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+  <tab name=\"gutendisplayhtmltab\" caption=\"Html Display\" >
+
+    <p>%%gutendisplayvariable%%</p>
+  <horizontal>
+  <button caption=\'Read forward\' action=\'rwdgutenbergwindowtwo\'/>
+<button caption=\'Start from the beginning\' action=\'rungutenbergreset\'/>
+  
+   
+    <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+     
+</horizontal>
+</tab>"
+

data/gui/tinkerbackwindows/superant.com.gutenberg/40rwdgutenberg.rwd

@@ -0,0 +1,16 @@
+$rwdguivar=
+"
+  <tab name=\"rwdgutenbergtext\" caption=\"Auto Text Display\">
+<table>
+<horizontal>
+ Open a replacement window for
+ Book Record:  <text size=30 name=\"a_viewgutenberg\"/>
+</horizontal>
+<row><p> You should see that new window refresh every 15 seconds with </row>
+<row><p> You can return to this screen by clicking on back arrows or the cancel button</row>
+
+
+</table>
+    <button caption=\'Start Book\' action=\'rungutenbergwindow\'/>
+  </tab>"
+

data/gui/tinkerbackwindows/superant.com.gutenberg/40rwdgutenberghtml.rwd

@@ -0,0 +1,16 @@
+$rwdguivar=
+"
+  <tab name=\"rwdgutenberghtml\" caption=\"Auto HTML Display\">
+<table>
+<horizontal>
+ Open a replacement window for
+ Book Record:  <text size=30 name=\"a_viewgutenberg\"/>
+</horizontal>
+<row><p> You should see that new window refresh every 15 seconds with </row>
+<row><p> You can return to this screen by clicking on back arrows or the cancel button</row>
+
+
+</table>
+    <button caption=\'Start Book\' action=\'rungutenbergwindowhtml\'/>
+  </tab>"
+

data/gui/tinkerbackwindows/superant.com.gutenberg/67viewconfiguration.rwd

@@ -0,0 +1,29 @@
+$rwdguivar=
+"
+ <tab name=\"viewrwdgutenbergconfiguration\" caption=\"RwdGutenberg Configuration\">
+
+
+	
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can view or edit the  configuration file here</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadrwdgutenbergconfiguration\"/>
+      <button caption=\"Save Changes\" action=\"saverwdgutenbergconfiguration\"/>
+     <button caption=\"Reload Variables\" action=\"loadrwdgutebergconfigurationvariables\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
+    </horizontal>
+   <table>
+
+     </p>  <textarea name=\"a_gutenconfigurationfile\"/> </row>
+     
+    </table>
+    <p>%extragutenconfigdatadisplay%</p>
+    <p>
+    <p>%newgutenconfigurationresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.gutendisplay/gutendisplayhtmlwindow.rwd

@@ -0,0 +1,9 @@
+$rwdguivar=
+"
+  <window name=\"gutendisplayhtmlwindowtwo\" title=\"Auto HTML Display\" refresh=#{BookViewDisplay}>
+    <small>
+    <p>%%gutendisplayvariable%%</p>
+    </small>   
+   <cancel/>
+  </window>"
+

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

@@ -16,21 +16,7 @@ $rwdguivar=
     
     </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>
-      <row> <p align=\"right\">9:</p>  <text size=70 name=\"a_configline9\"/> </row>
-      <row> <p align=\"right\">10:</p>  <text size=70 name=\"a_configline10\"/> </row>
-      <row> <p align=\"right\">11:</p>  <text size=70 name=\"a_configline11\"/> </row>
-      <row> <p align=\"right\">12:</p>  <text size=70 name=\"a_configline12\"/> </row>
-     <row> <p align=\"right\">13:</p>  <text size=70 name=\"a_configline13\"/> </row>
-      <row> <p align=\"right\">14:</p>  <text size=70 name=\"a_configline14\"/> </row>
+        <textarea name=\"a_configurationfile\"/>
        
 
     </table>

data/installed/rwdviewlogo-0.4.inf

@@ -0,0 +1,4 @@
+# rwdviewlogo - small applet to display one picture
+code/dd0viewphoto
+gui/cc0viewphoto
+rwd_files/tinker.png

data/rwd_files/HowTo_Gutenberg.txt

@@ -81,6 +81,13 @@ Steven Gibson
 steven@superant.com
 
 == Changelog 
+Version 0.06
+ clear fields with each new book record
+ catch missing or wrong filename for reading
+ Add html viewing tab
+ added reset button
+ updated for rwdtinker 1.66
+ 
 Version 0.05
  Fix bug with file advance
  updated for rwdtinker 1.65

data/rwd_files/HowTo_Tinker.txt

@@ -227,6 +227,10 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+Version 1.66
+ Fixed directory layout
+ increased size of config edit screen
+
 Version 1.65
  Changed documents listing screen - now using hash
  Changed helpabout screen - now using hash

data/rwdconfig.dist

@@ -1,4 +1,4 @@
-##VERSION:1.65
+##VERSION:1.66
 # rwdtinker core configuration file
 ##NAME: ConfigLocation:0
 ConfigLocation=""
@@ -10,8 +10,9 @@ $testharnessarray = ["rwdtinker_all_tests"]
 TestNow=false  # turning this on will run the unit tests
 ##NAME:$testharness:0
 $testharness=true
-##NAME:$tinkerdocumentsarray:0
+##NAME:$tinkerhelpaboutarray:0
 $tinkerhelpaboutarray = ["Tinker"]
+##NAME:$tinkerdocumentsarray:0
 $tinkerdocumentsarray = ["Readme.txt"]