bigtinker 0.96 → 0.97

data/code/01rwdcore/02helptexthashbegin.rb

@@ -2,3 +2,13 @@
 
  Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
     helpmessage = {
+    :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>
+      "
+
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }

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/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/superant.com.foldeditor/0uninstallapplet.rb

@@ -0,0 +1,17 @@
+
+def rwdwfoldeditor()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_FoldEditor.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdFoldEditor"}
+Helptext.delete_if {|key, value| key == :rwdfoldeditor_generalhelp}
+Helptext.delete_if {|key, value| key == :foldlinkview_help }
+Helptext.delete_if {|key, value| key == :foldlinkutility_help }
+$rwdjumplink.delete_if {|x| x == "RwdFoldEditor"}
+
+  if DeleteFoldEditorConfig
+
+                 fileName =  File.join("configuration","rwdwfoldeditor.cnf")
+                 File.delete(fileName)
+    end
+    return true
+
+end

data/code/superant.com.foldeditor/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.foldeditor/chooselinkfile.rb

@@ -0,0 +1,6 @@
+   # this method clears the on screen variables
+   def chooselinkfile
+    @a_viewfoldlinkfile = @a_foldeditorlinkinput
+      $foldeditor_linkfile = @a_viewfoldlinkfile
+      
+  end

data/code/superant.com.foldeditor/choosenotefile.rb

@@ -0,0 +1,6 @@
+   # this method clears the on screen variables
+   def choosefoldnotefile
+    @a_viewfoldlink = @a_viewfoldlinktmp
+      
+      
+  end

data/code/superant.com.foldeditor/clearnotescreen.rb

@@ -0,0 +1,7 @@
+   # this method clears the on screen variables
+
+   def clearfoldnote
+    @folddocumentresult = ""
+      
+      
+  end

data/code/superant.com.foldeditor/createnewnotehtml.rb

@@ -0,0 +1,31 @@
+#create a new note
+  def rwdfoldeditcreatenewnote
+  
+  @rwd_call_after_back << "reloadtab"
+     if @rwd_tab ==  "viewrwdfoldeditorfile" # we are on the link file edit tab
+      
+        if @a_foldeditorlinkfile.empty?  # nothing has been typed in the text box
+	     newnotecontent = 'new links'
+        else
+	    newnotecontent = @a_foldeditorlinkfile.to_s
+        end
+        if @a_viewfoldlinkfile.empty? # no title is listed
+	       newnotefilename = "newlinks.fld" # create a fold link file 
+        else
+	     newnotefilename = @a_viewfoldlinkfile.to_s
+        end
+    else # we are on the note edit tab 
+      if  @folddocumentresult.empty?
+             newnotecontent =  'new note'
+       else
+             newnotecontent = @folddocumentresult.to_s
+        end        
+      newnotefilename = "newnote.txt"  # arbitrary file name
+      
+    end
+       
+  $reloadaftercreate = true
+    download("#{newnotecontent}", "#{newnotefilename}")
+   
+    end
+    

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

@@ -0,0 +1,22 @@
+   # this code loads the help text
+
+                 
+               tmphelpfilename = "rwdfoldeditorhelpfiles.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.foldeditor/hyperlinkcreatelinkfile.rb

@@ -0,0 +1,19 @@
+ # this method adds a new address record or saves changes
+ def hyperlinkcreatelinkfile
+require 'fileutils'
+   if ! @a_viewhypernote.empty?
+   newname = "%s" %   [@a_viewhypernote] # grab the new filename to create
+   
+	 fullnewname = newname + ".lnk"
+   @a_viewlinksnote = fullnewname
+        begin # exception trapped block
+         
+        	fd = File.open(fullnewname,"w")
+	       
+	        fd.close
+          @createnewnamerecorddisplay=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+  end

data/code/superant.com.foldeditor/launchfoldeditorurl.rb

@@ -0,0 +1,19 @@
+# launch the browser with a url
+def foldeditorlaunchurl
+
+ url1 = File.expand_path(  @a_viewfoldlink.to_s.strip )
+ 
 url = "file://#{url1}" 
+
+
+`#{$foldeditorbrowser}  "#{url}"`
+
+end
+
+def foldeditorlaunchhttp
+
+url =  @a_viewfoldlink.to_s.strip
+
+
+`#{$foldeditorbrowser}  "#{url}"`
+
+end

data/code/superant.com.foldeditor/listfoldeditorfiles.rb

@@ -0,0 +1,7 @@
+# this code is to list the fold files that are available
+def loadfoldeditorlinkfilelist
+
+	fileList      = Dir.new($rwdfoldeditor_directory).entries.sort.delete_if { |x| ! (x =~ /fld$/) }
+	@foldeditorlinkfiles  = fileList.rwd_options
+end
+

data/code/{superant.com.rwdaddresses → superant.com.foldeditor}/loadconfigurationrecord.rb

@@ -1,19 +1,19 @@
    # this method puts the configuration rexord on the screen
-  def loadrwdaddressesconfiguration
+  def loadrwdfoldeditorconfiguration
  
          require 'fileutils'
           
-               @a_adconfigurationfilename = "rwdwaddresses.cnf" 
+               @a_foldeditconfigurationfilename = "rwdwfoldeditor.cnf" 
         
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, @a_adconfigurationfilename )
+	      fileName = File.join(ConfigurationDir, @a_foldeditconfigurationfilename )
         
         
 	      fd = File.open(fileName,"r")
-	      @a_adconfigurationfile=        fd.read
+	      @a_foldeditconfigurationfile=        fd.read
         fd.close
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!

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

@@ -0,0 +1,14 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdfoldeditorconfigurationvariables
+
+   tmpfilename = "rwdwfoldeditor.cnf"
+   configfiletoload = File.join(ConfigurationDir, tmpfilename )
+   begin
+    load configfiletoload
+    @extrahypconfigdatadisplay = ""
+@newhypconfigurationresult = "Config Variables loaded"
+rescue
+ @extrahypconfigdatadisplay = ""
+ @newhypconfigurationresult = "loading error"
+ end
+  end

data/code/superant.com.foldeditor/loadfolddocument.rb

@@ -0,0 +1,18 @@
+   # this method views an existing record
+  def loadfolddocument
+ 
+         require 'fileutils'
+
+        begin # exception trapped block
+       
+	      fileName =  @a_viewfoldlink
+        
+	      fd = File.open(fileName,"r")
+	      @folddocumentresult =        fd.read
+	      	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.foldeditor/loadnextnote.rb

@@ -0,0 +1,32 @@
+ # this method views next record
+ 
+ def loadnextfoldnote
+	 if @a_viewfoldlink > ""
+	   if @a_viewfoldlinkfile
+                   if !@a_viewfoldlinkfile.empty?  # a fold link file has been selected
+  
+		           fileName = File.join($rwdfoldeditor_directory, @a_viewfoldlinkfile.to_s.strip)
+	                   tmpfilearray = []
+                           begin
+                                File.open(fileName).each { |line|
+                                                 if ! line.strip.empty?
+                                                 tmpfilearray  << line.strip 
+                                                 end 
+                                                                }
+                            rescue
+                                       if $DEBUG
+                                           $stderr.puts "file error in dispfoldlinks"
+                                      end
+                            end
+                    end
+	    end
+	    
+               tmpindex = tmpfilearray.index(@a_viewfoldlink.to_s.strip)
+	       $stderr.puts  tmpindex.to_s
+	       if  tmpfilearray.length > tmpindex + 1
+	           @a_viewfoldlink = tmpfilearray[tmpindex+1].to_s.strip
+	       
+	           loadfolddocument  # load the file
+	       end
+	  end
+  end

data/code/superant.com.foldeditor/loadprevnote.rb

@@ -0,0 +1,32 @@
+ # this method views next record
+ 
+ def loadprevfoldnote
+	 if @a_viewfoldlink > ""
+	   if @a_viewfoldlinkfile
+                   if !@a_viewfoldlinkfile.empty?  # a fold link file has been selected
+  
+		           fileName = File.join($rwdfoldeditor_directory, @a_viewfoldlinkfile.to_s.strip)
+	                   tmpfilearray = []
+                           begin
+                                File.open(fileName).each { |line|
+                                                 if ! line.strip.empty?
+                                                 tmpfilearray  << line.strip 
+                                                 end 
+                                                                }
+                            rescue
+                                       if $DEBUG
+                                           $stderr.puts "file error in dispfoldlinks"
+                                      end
+                            end
+                    end
+	    end
+	    
+               tmpindex = tmpfilearray.index(@a_viewfoldlink.to_s.strip)
+	       $stderr.puts  tmpindex.to_s
+	       if  tmpindex - 1 > -1
+	           @a_viewfoldlink = tmpfilearray[tmpindex - 1].to_s.strip
+	       
+	           loadfolddocument  # load the file
+	       end
+	  end
+  end

data/code/superant.com.foldeditor/loadrwdfoldeditlinkfile.rb

@@ -0,0 +1,19 @@
+   # this method views an existing fold link file
+  def loadrwdfoldeditlinkfile
+ 
+         require 'fileutils'
+	      
+        begin # exception trapped block
+      
+	      fileName =  File.join($rwdfoldeditor_directory,@a_viewfoldlinkfile)
+        
+	      fd = File.open(fileName,"r")
+	      @a_foldeditorlinkfile =        fd.read
+	      
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.foldeditor/openhelpwindowrwdhyernote.rb

@@ -0,0 +1,30 @@
+# this code is to call the help window
+def runhelpwindowrwdfoldeditor
+
+     $help_topic = "rwdfoldeditor_generalhelp"
+   
+   if @rwd_tab == "viewrwdfoldeditorfile"
+        $help_topic = "foldlinkutility_help"
+   end
+     
+   if @rwd_tab == "superantcomfoldeditor"
+        $help_topic = "foldlinkview_help"
+   end
   
+   if @rwd_tab == "superantcomfoldeditorview" 
+      
+    $help_topic = "rwdfoldeditor_generalhelp"
+   end 
+   
+    
+   $helptopicsarray =  $helptopicsarray | ["rwdfoldeditor_generalhelp","foldlinkview_help","foldlinkutility_help"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.foldeditor/runrwdapplet.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 runrwdfoldeditorwindow
+   @rwd_window = "rwdfoldeditorwindow"
+   @rwd_tab = "superantcomfoldeditor"
+   end   
+   

data/code/superant.com.foldeditor/rwddisplayfoldlinks.rb

@@ -0,0 +1,41 @@
+# this method views the fold links
+def fillziptoinstallnamex(inffile)
+	applet                = inffile.strip
+	@a_viewfoldlink         = applet
+	
+end
+
+   
+def rwddisplayfoldlinks
+  if @a_viewfoldlinkfile
+       if @a_viewfoldlinkfile.empty?  # a fold link file has not been selected
+  
+             fileName = File.join($rwdfoldeditor_directory,"default.fld")
+	
+	else  # you have picked the fold link file you want to use
+		
+		fileName = File.join($rwdfoldeditor_directory, @a_viewfoldlinkfile.to_s.strip)
+	end
+	else
+		 fileName = File.join($rwdfoldeditor_directory,"default.fld")
+		 end
+  tmpfilearray = []
+  begin
+    File.open(fileName).each { |line|
+                               if ! line.strip.empty?
+                                   tmpfilearray  << line.strip 
+                               end 
+                              }
+   rescue
+        if $DEBUG
+           $stderr.puts "file error in dispfoldlinks"
+        end
+  end
+
+  @a_displayfoldlinks01 = tmpfilearray.entries.rwd_method("fillziptoinstallnamex")
+ @displayfoldlinkoptions  = tmpfilearray.rwd_options
+ 
+
+ 
+  end 
+ 

data/code/{superant.com.rwdaddresses/rwdaddresseshelpabout.rb → superant.com.foldeditor/rwdtinkerversion.rb}

@@ -1,10 +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
+# For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
-def rwdaddresseshelpaboutsetup
-	return ["RwdAddresses", "(c) 2004 Steven Gibson ", "Version #{RwdAddressesVersion}"]
-
+def rwdfoldeditorhelpaboutsetup
+return ["RwdFoldEditor","(c) 2005-2008 Steven Gibson ","Version #{RwdFoldEditorVersion}"]
 end
 
+

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

@@ -0,0 +1,20 @@
+  # this method saves configuration record
+  def saverwdfoldeditorconfiguration
+   require 'fileutils'
+
+   
+   newname = "rwdwfoldeditor.cnf" # grab the filename to create
+   newdata = @a_foldeditconfigurationfile
+   
+	  
+        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.foldeditor/savefoldlinkfile.rb

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savefoldlinkfile
+   require 'fileutils'
+    if ! @a_foldeditorlinkfile.empty?  # the document is not empty
+   if ! @a_viewfoldlinkfile.empty?          # the filename is not empty
+   fileName =   File.join($rwdfoldeditor_directory,@a_viewfoldlinkfile.to_s)  # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_foldeditorlinkfile) # 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.foldeditor/savehtmlhypernoterecord.rb

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