bigtinker 0.93

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

@@ -0,0 +1,16 @@
+ # this code is to change the note name
+ def changegutenbergdata
+  if ! @a_changegutenbergdata.empty? 
+   if ! @a_viewgutenberg.empty? 
+   oldName =  @a_viewgutenberg + ".gut"
+  
+    
+     newName =  @a_changehypernotedata + ".gut"
+      if  File.exist?(oldName)
+         File.rename(oldName, newName)
+     end
+     end
+   end    
+  end
+
+

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

@@ -0,0 +1,8 @@
+   # this method clears the on screen variables
+   def clearbookscreendisplay
+ 
+        @a_viewgutenberg = ""
+      @a_gutenbergdata = ""
+      
+
+  end

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

@@ -0,0 +1,24 @@
+ # this code is to reproduce the note name
+ def copygutenbergfilename
+ 
+   
+   if ! @a_viewgutenberg.empty? 
+   
+     sourcefile =  $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
+     begin  
+     if File.exist?(sourcefile)
+      if ! @a_changegutenbergdata.empty? 
+       distfile = $rwdgutenberg_directory + "/" + @a_changegutenbergdata + ".gut"
+       File.copy(sourcefile,distfile)
+       @gutenbergfilechangeresult = "#{@a_changegutenbergdata} Created"
+       else
+        @gutenbergfilechangeresult = "need distination filename"
+       end
+     end
+     rescue
+      @gutenbergfilechangeresult = "Copy Error"
+     end
+   end     
+  end
+
+

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

@@ -0,0 +1,23 @@
+#
+  def rwdgutenbergcreatebookrecord
+    if  @a_gutenbergdata.empty?
+      newnotecontent =  'new note'
+    else
+      newnotecontent = @a_gutenbergdata.to_s
+    end
+    if  @a_viewgutenberg.empty?
+      newnotefilename = $rwdgutenberg_directory + "/" + "newnote.gut"
+    else
+      newnotefilename = $rwdgutenberg_directory + "/" + @a_viewgutenberg.to_s + ".gut"
+    end
+      begin # exception trapped block
+       
+        	fd = File.open(newnotefilename,"w")
+	        fd.print(  newnotecontent) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end
+    
+   end

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

@@ -0,0 +1,21 @@
+   # this method deletes a record
+  def deletegutenbergrecord
+ 
+    require 'fileutils'
+    if ! @a_viewgutenberg.empty? 
+    fileName = $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
+    
+    begin # exception trapped block
+        if  File.exist?(fileName)
+          File.delete(fileName)
+       
+        end
+        
+        #gutenbergrecordsresult = ""
+        
+    @gutenbergfilechangeresult = "File Deleted!"
+     rescue 
+         @gutenbergfilechangeresult = "File Deletion error"
+    end # exception rescue
+   end
+  end 

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

@@ -0,0 +1,9 @@
+# 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

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

@@ -0,0 +1,41 @@
+  
+
+ Helptext.update( :rwdgutenberg_generalhelp => "This program is a text file reader
+      
+ links to a text file can be saved in the Books directory
+ 
+ There are tabs to enter notes and links and edit configurations
+ 
+ 'View/Edit Booklist' - to create or edit a file
+ 
+ 'Booklist Utilities' - to rename or delete files
+ 
+ 'Edit Configuration' - to change the configuration of rwdgutenberg
+ 
+       .",
+ :gutenbergedit_help => "You can create or edit booklists
+   click the bottom button 'list Booklists' to see a lists 
+   of the notes you already have.
+   'save changes' to save your edits
+   'clear' to clear the screen
+   'Create New List' to start a new booklist
+  After creating a new note, you must list below to find it
+  and select it, or it will NOT be SAVED",
+  :gutenbergutility_help => "You can change the file
+   rename
+   delete
+   copy name
+   ",
+  
+ 
+       
+       :rwdgutenberg_configuration => " click on 'Edit Configuration'
+ You can view the configuration file
+ 
+  You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.
+  "
+  
+)

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

@@ -0,0 +1,7 @@
+#jumplinkupdate 
+
+JumpLink.update(:RwdGutenbergMainWindow=>"runrwdgutenbergbackwindow",
+:RwdHypernoteConfigurationTab=>"runrwdhypernoteconfiguration"
+
+)
+$rwdjumplink +=["RwdGutenbergMainWindow","RwdHypernoteConfigurationTab"]

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

@@ -0,0 +1,15 @@
+ # 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$/) }
+   
+   @gutenbergrecordsresult  = fileList.rwd_method("fillgutenbergrecordname")
+  end
+ end
+ 
+ # this method is to help fill in list of names
+ def fillgutenbergrecordname(inffile)
+  applet                = inffile.gsub(/\.gut$/, "")
+  @a_viewgutenberg       = applet
+ end
+

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

@@ -0,0 +1,58 @@
+# this code is to list the links
+
+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}"        #opens the file thats in fileName as read only
+                   $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
+        end
+         @textsfilesrecordsresult = $gutenbergarray.rwd_method("fillhypergutenbergname")
+      end  

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

@@ -0,0 +1,21 @@
+   # this method views an existing  record
+  def rwdgutenloadbookrecord
+ 
+         require 'fileutils'
+        
+	      
+        begin # exception trapped block
+       
+       
+	      tmpfileName =  @a_viewgutenberg + ".gut"
+        fileName = File.join($rwdgutenberg_directory,tmpfileName)
+	      fd = File.open(fileName,"r")
+	      @a_gutenbergdata =        fd.read
+	   	      
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,36 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdgutenbergconfiguration
+ 
+         require 'fileutils'
+          
+               @a_gutenconfigurationfilename = "rwdgutenberg.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "rwdgutenberg.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_gutenconfigline1=        fd.readline.chomp
+	      @a_gutenconfigline2 =  fd.readline.chomp
+        @a_gutenconfigline3 = fd.readline.chomp
+          @a_gutenconfigline4 = fd.readline.chomp
+        @a_gutenconfigline5 = fd.readline.chomp
+         @a_gutenconfigline6 = fd.readline.chomp 
+          @a_gutenconfigline7 =fd.readline.chomp
+          @a_gutenconfigline8 = fd.readline.chomp
+           @a_gutenconfigline9 = fd.readline.chomp
+          @a_gutenconfigline10 = fd.readline.chomp
+           @a_gutenconfigline11 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extragutenconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,13 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdgutenbergconfigurationvariables
+   
+   configfiletoload = File.join(ConfigurationDir,"rwdgutenberg.cnf")
+   begin
+    load configfiletoload
+    @extragutenconfigdatadisplay = ""
+@newgutenconfigurationresult = "Config Variables loaded"
+rescue
+ @extragutenconfigdatadisplay = ""
+ @newgutenconfigurationresult = "loading error"
+ end
+  end

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

@@ -0,0 +1,29 @@
+# this code is to call the help window
+def runhelpwindowrwdgutenberg
+
+     $help_topic = "rwdgutenberg_generalhelp"
+   
+   if @rwd_tab == "utilitiesrwdgutenberg"
+        $help_topic = "gutenbergutility_help"
+   end
+     
+   if @rwd_tab == "superantcomgutenbergfile"
+        $help_topic = "gutenbergedit_help"
+   end
   
+  
+   
+  if @rwd_tab == "viewrwdgutenbergconfiguration"
+  $help_topic = "rwdgutenberg_configuration"
+  end
+   $helptopicsarray =  $helptopicsarray | ["gutenbergedit_help","rwdgutenberg_generalhelp","rwdgutenberg_configuration"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

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

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdgutenbergbackwindow
+   @rwd_window = "rwdgutenbergwindow"
+   @rwd_tab = "superantcomgutenbergfile"
+   end   
+   

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

@@ -0,0 +1,57 @@
+# method to open new gutenberg window
+ def rungutenbergwindow
+    
+     rwdgutenbergwindowtwo
+  end
+
+  $tempnumber  = 0
+ # 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
+      $bookfile=File.new(booktitle,"r")        #opens the file thats in fileName as read only
+      
+      rescue
+     
+     $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
+       tempcount += 1
+      end
+       $booklocation = $booklocation + $booksteps
+      end
+   if  $gutenbergcommand == "openbook"
+
+     while   tempcount < $booklocation + $booksteps 
+       tempdoc += $bookfile.gets    #reads the file into the doc string
+       
+       tempcount += 1
+     end
+     $booklocation = $booksteps
+     $gutenbergcommand = "continue"
+    end
+   if $gutenbergcommand == "closebook"      
+          $bookfile.close   
+    end       
+       @gutendisplayvariable = tempdoc
+  end

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

@@ -0,0 +1,27 @@
+ 
+ 
+  def rwdgutenbergbackward
+  tempdoc = ""
+  @gutendisplayvariable = ""
+  
+  tempcount = 0
+  if @rwd_tab== "rwdgutenberg"
+    @rwd_window	= "gutendisplaywindowtwo"
+    end
+       $booklocation = $booklocation - ($booksteps + $booksteps)
+      while   tempcount < $booklocation + $booksteps  
+       $bookfile.gets
+    if tempcount > $booklocation -1       
+                   tempdoc += $bookfile.gets    #reads the file into the doc string
+     end
+  
+        tempcount += 1
+      end  
+      
+      $booklocation = $booklocation + $booksteps
+       if $gutenbergcommand == "closebook"      
+               $bookfile.close   
+        end       
+    @gutendisplayvariable = tempdoc
+  
+end

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

@@ -0,0 +1,14 @@
+# 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
+  
+  # return the version constant defined in the config file
+  def runrwdgutenbergversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdGutenberg"
+  @versioncopyrightdisplay = "(c) 2005 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdGutenbergVersion
+
+   end
+  

data/code/superant.com.gutenberg/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 rwdgutenberghelpaboutsetup
+return ["RwdGutenberg","(c) 2004,2005 Steven Gibson ","Version #{RwdGutenbergVersion}"]
+end
+
+

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverwdgutenbergconfiguration
+   require 'fileutils'
+   
+   newname = "rwdgutenberg.cnf" # grab the filename to create
+   newdata =@a_gutenconfigline1.to_s + "\n" + @a_gutenconfigline2.to_s + "\n" + @a_gutenconfigline3.to_s + "\n" + @a_gutenconfigline4.to_s + "\n" + @a_gutenconfigline5.to_s + "\n" + @a_gutenconfigline6.to_s + "\n" + @a_gutenconfigline7.to_s + "\n" + @a_gutenconfigline8.to_s + "\n" + @a_gutenconfigline9.to_s + "\n"+ @a_gutenconfigline10.to_s + "\n"+ @a_gutenconfigline11.to_s + "\n"+ @a_gutenconfigline9.to_s + "\n"
+	 
+        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
+          @newconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

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

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savegutenbergrecord
+   require 'fileutils'
+    if ! @a_gutenbergdata.empty?
+   if ! @a_viewgutenberg.empty?
+   fileName =   $rwdgutenberg_directory + "/" + @a_viewgutenberg.to_s + ".gut" # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_gutenbergdata) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

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

@@ -0,0 +1,23 @@
+  # this method adds a new  record
+  def hypernotesavelinkrecord
+   require 'fileutils'
+    if ! @a_notelinksdata.empty?
+   if ! @a_viewlinksnote.empty?
+   fileName = "%s" %   [@a_viewlinksnote] # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_notelinksdata) # save the record info to the file
+	        fd.close
+      
+    p fileName
+   p @a_notelinksdata 
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

data/code/superant.com.hypernote/archiveevent.rb

@@ -0,0 +1,14 @@
+ # this code is to archive  the event
+ def archiveevent
+  oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
+  newName =  $rwdschedule_directory + "/" + "archive" + "/" + @a_viewevent + ".sch"
+ begin 
+ File.move(oldName, newName)
+  @eventfilechangeresult = "event archived" 
+  rescue
+  @eventfilechangeresult = "archive error"
+  end
+  
+   end
+
+

data/code/superant.com.hypernote/changehypernotename.rb

@@ -0,0 +1,21 @@
+ # this code is to change the note name
+ def changehypernotedata
+  if ! @a_changehypernotedata.empty? 
+   if ! @a_viewhypernote.empty? 
+   oldName =  @a_viewhypernote + ".txt"
+  
+    
+     newName =  @a_changehypernotedata + ".txt"
+      if  File.exist?(oldName)
+         File.rename(oldName, newName)
+         oldlinkName =  @a_viewhypernote + ".lnk"
+         newlinkName =  @a_changehypernotedata + ".lnk"
+         if  File.exist?(oldlinkName)
+            File.rename(oldlinkName,  newlinkName)
+         end
+     end
+     end
+   end    
+  end
+
+

data/code/superant.com.hypernote/clearhypernotescreendisplay.rb

@@ -0,0 +1,8 @@
+   # this method clears the on screen variables
+   def clearhypernotescreendisplay
+ 
+        @a_viewhypernote = ""
+      @a_notedata = ""
+      
+
+  end

data/code/superant.com.hypernote/clearlinkscreendisplay.rb

@@ -0,0 +1,8 @@
+   # this method clears the on screen variables
+   def clearlinkscreendisplay
+ 
+        @a_viewlinksnote = ""
+      @a_notelinksdata = ""
+      
+
+  end

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

@@ -0,0 +1,10 @@
+ # this code is to repoduce the note name
+ def copyhypernotefilename
+   
+   if ! @a_viewhypernote.empty? 
+   @a_changehypernotedata =  @a_viewhypernote 
+  
+   end    
+  end
+
+

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

@@ -0,0 +1,14 @@
+#
+  def rwdhypernotecreatenewnote
+    if  @a_notedata.empty?
+      newnotecontent =  'new note'
+    else
+      newnotecontent = @a_notedata.to_s
+    end
+    if  @a_viewhypernote.empty?
+      newnotefilename = "newnote.txt"
+    else
+      newnotefilename = @a_viewhypernote.to_s + ".txt"
+    end
+    download("#{newnotecontent}", "#{newnotefilename}")
+   end

data/code/superant.com.hypernote/deletehypernoterecord.rb

@@ -0,0 +1,20 @@
+   # this method deletes a record
+  def deletehypernoterecord
+ 
+    require 'fileutils'
+    if ! @a_viewhypernote.empty? 
+    fileName = @a_viewhypernote + ".txt"
+    fileNamelnk = @a_viewhypernote + ".lnk"
+    begin # exception trapped block
+        if  File.exist?(fileName)
+          File.delete(fileName)
+          if  File.exist?(fileNamelnk)
+             File.delete(fileNamelnk)
+          end
+        end
+    @hypernotefilechangeresult = "File Deleted!"
+     rescue 
+         @hypernotefilechangeresult = "File Deletion error"
+    end # exception rescue
+   end
+  end