rwdgutenberg 0.09 → 0.12

data/Readme.txt

@@ -19,13 +19,6 @@ ruby init.rb
 Then point your web browser to:
 http://localhost:7705/
 
-Change language at:
-
-configuration/language.dist
-
-Change to Windows XP directory structure at:
-configuration/tinkerwin2variables.dist
-
 == Viewing installed Applets:
  
 Go to "List Scripts" tab
@@ -234,6 +227,26 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+Version 1.77
+ Fixed zips location to be relative or absolute
+ Made themes loadable
+
+Version 1.76
+ Move rwd code files into lib directory - bug - 21886
+ change tab name list applets - bug - 21864	
+ change extra folder to be lib folder - bug 21887
+  remove duplicate intall applet code - bug  21885	
+  On Menu tab/Selection Tab - add help button - bug 21884
+  clean up directory structure in gui directory - bug 21882
+
+Version 1.75
+ change rwd.rb to use UTF-8 for web pages
+ add language load for applets
+ 
+Version 1.74
+  remove remote control from help
+  more dependable gui loading for applets
+
 Version 1.73
   more debug info in initiateapplet
   remove gutenberg lang translations 

data/code/01rwdcore/01rwdcore.rb

@@ -4,12 +4,15 @@
 # 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
 
 class RwdTinker  < RWDialog
 
 	def main
 		@rwd_window = "main"
 		@result = "idle"
+
 		@display= "idle"
 		if TestNow 
 

data/code/01rwdcore/openhelpwindow.rb

@@ -1,6 +1,6 @@
 # this code is to call the help window
 def runhelpwindow
-	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
 	if @rwd_window == "main"
 		if @rwd_tab == "documentsrwdtinkerone"

data/code/01rwdcore/runopentinkerdocument.rb

@@ -1,7 +1,7 @@
 # open document for rwdtinker application
 def runopentinkerdocument
 
-tinkerdocumenturl = "http://localhost:7705/" + @a_tinkerdocumentinput
+tinkerdocumenturl = "http://localhost:#{$port}/" + @a_tinkerdocumentinput
     Thread.new( tinkerdocumenturl){ |t|  `#{Browser_Exe} #{tinkerdocumenturl}`  }
  end
    

data/code/01rwdcore/rwdtinkerversion.rb

@@ -4,7 +4,7 @@
 
 # return the version constant defined in the config file
 def tinkerhelpaboutsetup
-return ["RwdTinker","(c) 2004 Steven Gibson ","Version #{RwdTinkerVersion}"]
+return ["RwdTinker","(c) 2004-2008 Steven Gibson ","Version #{RwdTinkerVersion}"]
 end
 
 def runrwdtinkerversion

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

@@ -1,11 +1,17 @@
-
-def rwdwgutenberg_0_09()
-$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Gutenberg.txt"}
-$tinkerhelpaboutarray.delete_if {|x| x == "RwdGutenberg"}
-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 }
-$rwdjumplink.delete_if {|x| x == "RwdGutenbergMainWindow"}
-
-end
+def rwdwgutenberg()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Gutenberg.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdGutenberg"}
+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 }
+$rwdjumplink.delete_if {|x| x == "RwdGutenbergMainWindow"}
+$rwdjumplink.delete_if {|x| x == "GutenbergBackWindow"}
+  if DeleteGutenbergConfig
+
+                 fileName =  File.join("configuration","rwdwgutenberg.cnf")
+                 File.delete(fileName)
+    end
+    return true
+
+end

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

@@ -2,10 +2,10 @@
  def changegutenbergdata
   if ! @a_changegutenbergdata.empty? 
    if ! @a_viewgutenberg.empty? 
-   oldName =  @a_viewgutenberg + ".gut"
+   oldName =  @a_viewgutenberg + ".lnk"
   
     
-     newName =  @a_changehypernotedata + ".gut"
+     newName =  @a_changehypernotedata + ".lnk"
       if  File.exist?(oldName)
          File.rename(oldName, newName)
      end

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

@@ -3,11 +3,11 @@
  
         @a_viewgutenberg = ""
       
-      @a_gutenbergdatapath =     ""
-         @a_gutenbergdatainfo =    ""
-          @a_gutenbergdatalocation = ""
-           @a_gutenbergdatalines =     ""
+         @a_gutenbergdatapath =     ""
+         @a_gutenbergdatainfo =    ""
+          @a_gutenbergdatalocation = ""
+           @a_gutenbergdatalines =     ""
             @a_gutenbergdataspeed =      ""
-	   	       @a_gutenbergdatacomments = ""
+	    @a_gutenbergdatacomments = ""
 
   end

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

@@ -4,11 +4,11 @@
    
    if ! @a_viewgutenberg.empty? 
    
-     sourcefile =  $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
+     sourcefile =  $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".lnk"
      begin  
      if File.exist?(sourcefile)
       if ! @a_changegutenbergdata.empty? 
-       distfile = $rwdgutenberg_directory + "/" + @a_changegutenbergdata + ".gut"
+       distfile = $rwdgutenberg_directory + "/" + @a_changegutenbergdata + ".lnk"
        File.copy(sourcefile,distfile)
        @gutenbergfilechangeresult = "#{@a_changegutenbergdata} Created"
        else

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

@@ -1,20 +1,21 @@
-#
-  def rwdgutenbergcreatebookrecord
+#
+  def rwdgutenbergcreatebookrecord
     if  @a_gutenbergdatapath.empty?
-      newnotecontent =  'new note'
+          newnotecontent =  'new note'
     else
-      newnotecontent =  @a_gutenbergdatapath.to_s.rstrip+ "\n" +  
-  @a_gutenbergdatainfo.to_s + "\n" +
-   @a_gutenbergdatalocation.to_s + "\n" +
-           @a_gutenbergdatalines.to_s + "\n" + 
+        newnotecontent =  @a_gutenbergdatapath.to_s.rstrip+ "\n" +  
+        @a_gutenbergdatainfo.to_s + "\n" +
+        @a_gutenbergdatalocation.to_s + "\n" +
+           @a_gutenbergdatalines.to_s + "\n" + 
            @a_gutenbergdataspeed.to_s + "\n" + 
-	   	       @a_gutenbergdatacomments.to_s + "\n" 
+	  @a_gutenbergdatacomments.to_s + "\n" 
     end
     if  @a_viewgutenberg.empty?
-      newnotefilename = $rwdgutenberg_directory + "/" + "newnote.gut"
+      newnotefilename = File.join ($rwdgutenberg_directory , "newnote.lnk")
     else
-      newnotefilename = $rwdgutenberg_directory + "/" + @a_viewgutenberg.to_s + ".gut"
-    end
+       tmplinkfilename = @a_viewgutenberg.to_s.strip + ".lnk"
+      newnotefilename = File.join($rwdgutenberg_directory,  tmplinkfilename)
+    end
       begin # exception trapped block
        
         	fd = File.open(newnotefilename,"w")
@@ -22,7 +23,7 @@
 	        fd.close
       
         rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
+            $rwdtinkerlog.error "system call error: #{$!}"
         end
     
    end

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

@@ -3,19 +3,20 @@
  
     require 'fileutils'
     if ! @a_viewgutenberg.empty? 
-    fileName = $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
-    
+    fileName = $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".lnk"
+    
     begin # exception trapped block
-        if  File.exist?(fileName)
+        if  File.exist?(fileName)
           File.delete(fileName)
-       
-        end
-        
-        #gutenbergrecordsresult = ""
-        
+       
+        end
+        
+        #gutenbergrecordsresult = ""
+        
     @gutenbergfilechangeresult = "File Deleted!"
      rescue 
          @gutenbergfilechangeresult = "File Deletion error"
+     $rwdtinkerlog.error "deletegutenbergrecord: File Deletion error"
     end # exception rescue
    end
   end 

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

@@ -1,10 +1,22 @@
-# create new gutenberg data file
- def gutenbergcreatefile
-
-   filelocation = $rwdgutenberg_directory + "/" +@a_newgutenbergdata+ ".gut"
-   
-   p filelocation
-   fileB=File.open(filelocation,"w")        #deletes and opens a the file in fileName
-   fileB.write(@a_newfilegutenberg)                     #writes the contents of doc into the file
-   fileB.close 
-   end
+# create new gutenberg data file
+ def gutenbergcreatefile
+
+   filelocation = File.join(@a_searchdirectorygutenberg.strip, @a_newgutenbergdata.strip)
+   
+
+   $rwdtinkerlog.info "gutenbergcreatefile: #{filelocation}"
+
+ begin
+
+   if File.file?( filelocation)
+   
+    $rwdtinkerlog.debug "file already exists"  
+   else  # create the file   
+      fileB=File.open(filelocation,"w")        #deletes,  opens the file
+      fileB.write(@a_newfilegutenberg)      #writes the  doc into the file
+       fileB.close 
+   end
+ rescue
+     $rwdtinkerlog.error "gutenbergcreatefile: file error"
+  end
+end

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

@@ -0,0 +1,21 @@
+   # this code loads the help text
+
+                  
+               tmphelpfilename = "rwdgutenberghelpfiles.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  "gutenberg help file load: system call error: "
+        end # exception rescue
+
+  

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

@@ -0,0 +1,13 @@
+# launch the browser with a url
+def saggutenberglaunchurl
+	
+     tmppath = File.expand_path(@a_viewgutenberghtml.to_s.strip)
+     
+ 
+     if File.file?( tmppath )
+              url = "file://" + tmppath
+                     `#{$rwdgutenbergbrowser}  "#{url}"`
+     else
+         $rwdtinkerlog.info "saggutenberglaunchurl: #{url} not found "
+     end
+end

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

@@ -0,0 +1,32 @@
+# this code is to list the   directories
+def saggutenbergdirectories
+ if $temp_rwdgutenberg_directory.to_s.empty?
+ temp_dir = $rwdgutenberg_directory
+ else
+ temp_dir = $temp_rwdgutenberg_directory
+ end
+  @gutenberg_directory = temp_dir
+  
+  if  FileTest.directory?(temp_dir)
+ 
+  fileList      = Dir.new(temp_dir).entries.sort.reverse.delete_if { |x| (x =~ /lnk$|nam$|htm$|html$|db$|jpg$|png$|exe$|sch$|rwd$|txt$/) }
+ @noterecordsresult = ""
+ @noterecordsresulth = ""
+
+@gutenbergdirectoriesresult  = fileList.rwd_method("fillsaggutenbergdirs")
+ end
+end
+ 
+def fillsaggutenbergdirs(inffile)
+  applet                = inffile
+  
+ if $temp_rwdgutenberg_directory.to_s.empty?
+   temp_topdirectory = $rwdgutenberg_directory
+ else
+  temp_topdirectory = $temp_rwdgutenberg_directory
+ end
+   
+  $temp_rwdgutenberg_directory      = File.join(temp_topdirectory ,applet)
+ @gutenberg_directory = temp_topdirectory
+ 
+end

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

@@ -1,15 +1,15 @@
- # this code is to list the file data
+ # this code is to list the file data
  def listgutrecordfiles
-  if File.exist?($rwdgutenberg_directory)
-   fileList      = Dir.new($rwdgutenberg_directory).entries.sort.delete_if { |x| ! (x =~ /gut$/) }
-   
+  if File.exist?($rwdgutenberg_directory)
+   fileList      = Dir.new($rwdgutenberg_directory).entries.sort
+   
    @gutenbergrecordsresult  = fileList.rwd_method("fillgutenbergrecordname")
-  end
+  end
  end
- 
+ 
  # this method is to help fill in list of names
- def fillgutenbergrecordname(inffile)
-  applet                = inffile.gsub(/\.gut$/, "")
+def fillgutenbergrecordname(inffile)
+  applet                = inffile
   @a_viewgutenberg       = applet
- end
-
+end
+

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

@@ -0,0 +1,57 @@
+# this code is to list the notes
+
+def fillgutenbergnameh3(inffile)
+  applet                = inffile
+  @a_viewgutenberghtml  = applet
+     tmpdirname = File.dirname(@a_viewgutenberghtml)
+	      tmpext = File.extname(@a_viewgutenberghtml)
+	      tmpfilename = File.basename(@a_viewgutenberghtml,"#{tmpext}")
+	      newname = tmpfilename.to_s  + tmpext
+	 @a_viewgutenberg  =  File.join(tmpdirname,newname)
+  
+end
+
+ def findgutenbergfilesh(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 txt files
+                  if x =~ /htm|html|pdf|pdb|gif|jpg|png|ps|chm|rwd|nam|sch|txt/
+                  #  puts "#{x}"        #opens the file thats in fileName as read only
+                   $saggutenbergarray  =  $saggutenbergarray  | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listnotedirsgutenberg
+
+if $temp_rwdgutenberg_directory.to_s.empty?
+ startlangdir = $rwdgutenberg_directory
+ else
+ startlangdir = $temp_rwdgutenberg_directory
+ end
+ @rwdgutenberg_directory = startlangdir
+ 
+ $saggutenbergarray = [""]
+ 
+ #get a list of the files and subdirectories on the starting directory only
+        anotearray = Array.new(Dir[startlangdir].entries.sort)
+       
+        #loop through the list, ignore the files and add all new directories found
+        anotearray.each do |x|
+                #if it is a file...
+		
+                if(!test(?d,x))
+                        anotearray.delete(x)
+                  else              #it is a directory...
+                        findgutenbergfilesh(x + "/**")
+                end
+        end
+      
+         @gutenbergrecordsresulth = $saggutenbergarray.entries.sort.rwd_method("fillgutenbergnameh3")
+      end  

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

@@ -5,55 +5,80 @@ def fillhypergutenbergname(inffile)
   @a_newfilegutenberg  =  inffile
 end
 
- def findgutenbergfiles(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 lnk files
-                  if x =~ /rb|txt|lst/
-                   # puts "#{x}"
-                   
-                   $gutenbergarray =  $gutenbergarray | ["#{x}"] 
-                  end
-               end
-          end
+ def findgutenbergfiles(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 lnk files
+                  if x =~ /rb|txt|lst/
+                   # puts "#{x}"
+                   
+                   $gutenbergarray =  $gutenbergarray | ["#{x}"] 
+                  end
+               end
+          end
   end
   
 def rwdgutenbergfiles
- $gutenbergarray = [""]
- startlangdir = @a_searchdirectorygutenberg
- puts startlangdir
- #get a list of the files and subdirectories on the starting directory only
-        agutenbergarray = Array.new(Dir[startlangdir].entries.sort)
-        p agutenbergarray
-	#loop through the list, ignore the files and add all new directories found
-        agutenbergarray.each do |x|
-          #if a directory...
-          if(test(?d,x))
-            # add to the original list of directories
-            @@tmproot = x + "/**"
-            puts @@tmproot
-            #adds the new ones to the array
-            bgutenbergarray = Dir[@@tmproot].entries.sort
-         p  bgutenbergarray
-           bgutenbergarray.each do |x|
-            p x  
-	    if(test(?d,x))
-                 agutenbergarray.push(x)  #appends to the end of the array...
-      p   agutenbergarray 
-        end
-            end
-          end
-       end
-        agutenbergarray.each do |x|
-                #if it is a file...
-                if(!test(?d,x))
-                        agutenbergarray.delete(x)
-                 else              #it is a directory...
-                       findgutenbergfiles(x + "/**")
-                end
+ $gutenbergarray = [""]
+ startlangdir = @a_searchdirectorygutenberg
+ puts startlangdir
+ #get a list of the files and subdirectories on the starting directory only
+        agutenbergarray = Array.new(Dir[startlangdir].entries.sort)
+        p agutenbergarray
+	#loop through the list, ignore the files and add all new directories found
+    
+        agutenbergarray.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        agutenbergarray.delete(x)
+                 else              #it is a directory...
+                       findgutenbergfiles(x + "/**")
+                end
         end
          @textsfilesrecordsresult = $gutenbergarray.rwd_method("fillhypergutenbergname")
-      end  
+      end  
+
+
+ def findgutenbergfileslnk(d)
+   tmpgutenbergarray = [""]
+         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 lnk files
+                  if x =~ /lnk/
+                   # puts "#{x}"
+                   
+                   tmpgutenbergarray =  tmpgutenbergarray | ["#{x}"] 
+                  end
+               end
+          end
+  return  tmpgutenbergarray 
+  end
+
+def rwdgutenberglnkfiles
+ gutenbergarray = [""]
+ startlangdir = @a_searchdirectorygutenberg.strip
+ puts startlangdir
+ #get a list of the files and subdirectories on the starting directory only
+        agutenbergarray = Array.new(Dir[startlangdir].entries.sort)
+        $rwdtinkerlog.info agutenbergarray
+	#loop through the list, ignore the files and add all new directories found
+    
+        agutenbergarray.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        agutenbergarray.delete(x)
+                 else              #it is a directory...
+                    gutenbergarray =   findgutenbergfileslnk(x + "/**")
+                end
+        end
+         @lnkgutenbergresult = gutenbergarray.rwd_method("fillhypergutenbergname")
+
+      end  
+
+