rwdhypernote 0.15 → 0.16

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
@@ -27,3 +24,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,14 +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 = {
-    :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>
-      "
-
+    :tinker_help          => "rwdtinker is the core application for the
+                       rwdapplications. "
+      
     }
-    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    
+
+=begin
+    this is to set up the help  buttons 
+    this uses a hash
+=end
+    

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 = {

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/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/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.dialogmap/changedir.rb

@@ -0,0 +1,31 @@
+   # this method clears the on screen variables
+   def sagchangedialogmapdirshttp3
+	       if $temp_rwddialogmap_directory == nil
+                      temp_dir = $rwddialogmap_directory
+                     $temp_rwddialogmap_directory = $rwddialogmap_directory 
+           else  
+	              temp_dir = $temp_rwddialogmap_directory
+             end
+  
+  
+  
+         if ! @a_dialogchoice3a.to_s.empty?
+		 if $DEBUG
+			 $stderr.puts " in sagchangedialogmapdirshttp3"
+                 end
+              
+		     begin
+                        tmpnewdir = File.expand_path(    temp_dir   )
+			tmpnewdir2 = File.join(  tmpnewdir, @a_dialogchoice3a.to_s.strip)  
+			$temp_rwddialogmap_directory = tmpnewdir2
+                         Dir.chdir(tmpnewdir2)
+		          @dialog_directory3 = $temp_rwddialogmap_directory
+			  
+		     rescue
+		     	     if $DEBUG
+			       $stderr.puts " file error in sagchangedialogmapdirshttp3"
+                            end
+	            end
+	    
+	 end
+  end

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

@@ -0,0 +1,14 @@
+   # this method clears the on screen variables
+   def cleardialogmapnotescreendisplayhtml
+ 
+        
+      @a_dialogmapdatahtml = ""
+      
+
+  end
+
+def cleardialogview3
+	
+	@a_dialogdata3 = ""
+	
+	end

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

@@ -0,0 +1,13 @@
+   # this method clears the on screen variables
+   def cleardialogmapscreendisplay
+ 
+
+     @xmlfileresult = ""
+
+  end
+
+def cleardialogmapscreendisplay2
+	
+	@xmlfileresult2 = ""
+	
+	end

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

@@ -0,0 +1,28 @@
+#create a new note
+  def sagdialogmapcreatenewnote
+  
+  @rwd_call_after_back << "rwddialogmapreloadtab"
+    if  @sagdialogmaprecordsresulth == nil
+      newnotecontent =  'new note'
+    else
+      newnotecontent = @sagdialogmaprecordsresulth.to_s
+    end
+    if  @a_viewdialogmaphtml.empty?
+      newnotefilename = "newnote.txt"
+    else
+      newnotefilename = @a_viewdialogmaphtml.to_s 
+    end
+    
+  $reloadaftercreate = true
+    download("#{newnotecontent}", "#{newnotefilename}")
+   
+    end
+    
+def rwddialogmapreloadtab
+ 
+      if  $reloadaftercreate
+                  @rwd_tab = "superantcomeditnoterecordfile"
+
+                    $reloadaftercreate = false
+     end
+end

data/code/superant.com.dialogmap/launchurlfile.rb

@@ -0,0 +1,35 @@
+   # this method clears the on screen variables
+def launchnotehttp3a
+ 
+       if $temp_rwddialogmap_directory == nil
+                     startdir = $rwddialogmap_directory
+        else
+                   startdir = $temp_rwddialogmap_directory 
+       end
+       url1 = File.join(File.expand_path( startdir) , @a_dialoginput3a.to_s.strip)
+       url = "file://" + url1
+          if $DEBUG
+	  $stderr.puts url
+	  end
+            `#{$dialogmapbrowser}  "#{url}"`
+
+  end
+
+def launchnotehttp3b
+	    url = "file://" + @a_dialoginput3b.to_s.strip
+          if $DEBUG
+	  $stderr.puts url
+	  end
+            `#{$dialogmapbrowser}  "#{url}"`
+	
+end
+
+def launchnotehttp3c   # launch the browser with a url
+		
+           url = "file://" + @a_dialoginput3c.to_s.strip
+          if $DEBUG
+	  $stderr.puts url
+	  end
+            `#{$dialogmapbrowser}  "#{url}"`
+
+end

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

@@ -0,0 +1,19 @@
+# this code is to list the  hypernote directories
+def rwddialogmapdirectoryview
+      if $temp_rwddialogmap_directory == nil
+             temp_dir = $rwddialogmap_directory
+           $temp_rwddialogmap_directory = $rwddialogmap_directory
+      else  
+	      temp_dir = $temp_rwddialogmap_directory  
+	
+      end
+  
+      @dialog_directory3= temp_dir
+      if  FileTest.directory?(temp_dir)
+ 
+              fileList      = Dir.new(temp_dir).entries.sort.delete_if { |x| File.extname(x) > '' }
+               @dialogchoicepulldown  = fileList.rwd_options
+     end
+end
+ 
+

data/code/superant.com.dialogmap/listdirectories3.rb

@@ -0,0 +1,25 @@
+# this code is to list the  directories
+def saglistdialogmapdirs
+	if $DEBUG
+		  $stderr.puts " temp_rwddialogmap_directory = #{$temp_rwddialogmap_directory}"
+	  end 
+       if $temp_rwddialogmap_directory == nil
+            temp_dir = $rwddialogmap_directory
+           $temp_rwddialogmap_directory = $rwddialogmap_directory
+      else  
+	 temp_dir = $temp_rwddialogmap_directory 
+      end
+  
+      @dialog_directory3= temp_dir
+          if $DEBUG
+		  $stderr.puts "temp_dir  = #{temp_dir}"
+	  end 
+ 
+                fileList      = Dir.new(temp_dir).entries.sort
+ 
+                dialoglines = ["1","2","3"]
+                @dialogmapdirectoriesresultA  = fileList.rwd_options
+                @dialogmapdirectoriesresultB  = fileList.rwd_options
+                @dialogmapdirectoriesresultC  = fileList.rwd_options
+         
+end

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

@@ -0,0 +1,54 @@
+# this code is to list the notes
+
+def filldialogmapnameh(inffile)
+  applet                = inffile
+  @a_viewdialogmaphtml  = applet
+  
+end
+
+ def finddialogmapfilesh(d,notesarray)
+  
+         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|lnk|rwd|nam|sch|txt/
+                  #  puts "#{x}"        #opens the file thats in fileName as read only
+                   notesarray =  notesarray | ["#{x}"] 
+                  end
+               end
+       end
+       return notesarray
+  end
+  
+def listdialogmapdirshtml
+
+   if $temp_rwddialogmap_directory.to_s.empty?
+         startlangdir = $rwddialogmap_directory
+   else
+          startlangdir = $temp_rwddialogmap_directory
+     end
+     @dialogmap_directory = startlangdir
+ 
+       notesarray = [""]
+ 
+       #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...
+                   notesarray =     finddialogmapfilesh(x + "/**",notesarray)
+                end
+        end
+       
+         @sagdialogmaprecordsresulth = notesarray.entries.sort.rwd_method("filldialogmapnameh")
+ end  
+ 

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

@@ -0,0 +1,22 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwddialogconfiguration
+ 
+         require 'fileutils'
+          
+               @a_diaconfigurationfilename = "rwdwdialogmap.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, @a_diaconfigurationfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_diaconfigurationfile=        fd.read
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

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

data/code/superant.com.dialogmap/loadhtmlnoterecord.rb

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

data/code/superant.com.dialogmap/runhypernote.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 runrwddialogmapmain
+   @rwd_window = "rwddialogmapwindow"
+   @rwd_tab = "superantcomeditnoterecordfile"
+   end   
+   

data/code/superant.com.dialogmap/runwrdhypernotetxtwindow.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 runrwddialogmapbackwindow
+   @rwd_window = "rwddialogmapbackwindow"
+   @rwd_tab = "superantcomeditnoterecordfile"
+   end   
+   

data/code/superant.com.dialogmap/rwdhypernoteresetdir.rb

@@ -0,0 +1,7 @@
+   # this method resets the hypernote directory to the top default setting
+   def rwddialogmapresetdir
+ 
+        
+     $temp_rwddialogmap_directory =   $rwddialogmap_directory
+      @dialog_directory3 = $temp_rwddialogmap_directory
+  end