rwddialogmap 0.01

data/code/01rwdcore/rwdwindowreturn.rb

@@ -0,0 +1,9 @@
+# this code is to return to the window back from the help window
+def rwdwindowreturn
+
+	@rwd_window = "#{$previouswindow}"
+	@rwd_tab = "#{$previoustab}"
+end
+
+
+

data/code/01rwdcore/selectiontab.rb

@@ -0,0 +1,9 @@
+# this code is to return to the window back from the help window
+def runselectiontab
+
+	
+	@rwd_tab = "selectiontab"
+end
+
+
+

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -0,0 +1,13 @@
+# help about option setup for rwdtinker application
+def setuphelpaboutoptions 
+
+  @rwd_window = "tinkerhelpabout"
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+	
+def setuphelpaboutoptionspassive 
+
+  
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+   

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -0,0 +1,6 @@
+# Bind document names  to rwdtinker document tab
+def setuptinkerdocuments 
+
+	@tinkerdocumentsarray = $tinkerdocumentsarray.rwd_options
+end	
+   

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,109 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdtinker_all_tests 
+	print "in rwdtinker all tests\n"
+  $testrwdtinkertestcase = TestSuite.new
+	test_runrwdtinkerbackwindow
+end
+
+def test_runrwdtinkerbackwindow
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtinker tests!\n"
+		runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    showjumplinkoptions
+    @a_jumplinkinput = "returntomain"
+   runjumplinkcommand
+    assert_equal("main",@rwd_window) ; testasserts += 1 
+		@a_jumplinkinput = "helpscreen"
+    runjumplinkcommand 
+    
+     assert_equal("rwdtinkerhelpwindow",@rwd_window)  ; testasserts += 1
+     returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+     runtinkerdocuments
+     assert_equal("documentsrwdtinkerone",@rwd_tab)  ; testasserts += 1
+     	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
+    runrwdtinkerwin2version
+      assert_equal("applicationversion",@rwd_window) ; testasserts += 1 
+        returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+      	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    runremotezipsinstall
+     assert_equal("superantcomremotezipsinstall",@rwd_tab) ; testasserts += 1
+    runeditconfiguration   
+    assert_equal("editconfigurationfile",@rwd_tab) ; testasserts += 1    
+    
+     
+ $stderr.print "tests completed succesfully!\n"
+ $stderr.print testasserts, " asserts performed\n"
+
+	rescue  NotImplementedError, Exception
+		$stderr.print $!
+
+	end
+  
+end
+
+
+
+def teststobedown
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+
+	raise NotImplementedError, 'Need to write test_main'
+
+	raise NotImplementedError, 'Need to write test_network_demon'
+
+	raise NotImplementedError, 'Need to write test_network_start'
+
+	raise NotImplementedError, 'Need to write test_openappletname'
+
+	raise NotImplementedError, 'Need to write test_removeapplet'
+
+	raise NotImplementedError, 'Need to write test_returntomain'
+
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,13 @@
+# this to start the test harness
+def rwdtest_harness
+
+	print "in test harness\n"
+  
+	$testharnessarray.each { |x| 
+		print "calling #{x}\n"
+		eval("#{x}")
+
+	}
+
+end
+

data/code/01rwdcore/uploadreturns.rb

@@ -0,0 +1,62 @@
+def uploadreturnsfile
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@returnsftpdisplays = ""
+	randomnumber = rand(9999) + 1000
+	puts randomnumber.to_i
+
+
+	returns_ftpsite = "ftp.superant.com"
+	returns_ftplogin = "anonymous@superant.com"
+	returns_ftppassword = "anonymous@superant.com"
+	returns_ftpdirectory = "/incoming/returns/"
+
+	begin
+		platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+		platformdisplay =  platformdisplay + "Ruby Version " + VERSION + "\n" 
+		platformdisplay  = platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+		platformdisplay = platformdisplay + "application name " + $rwdapplicationidentity + "\n"
+		platformdisplay = platformdisplay + "program directory " + $progdir + "\n"
+		platformdisplay = platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+		platformdisplay = platformdisplay +  "Date " +      Date.today().to_s + "\n"
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_emailupload + "\n"
+		end
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_commentupload + "\n"
+		end
+		updatefile = Date.today().to_s + Resolv.getname(Resolv.getaddress("localhost")) + randomnumber.to_s
+
+		tmpdir = ENV['TMP']
+		if tmpdir.to_s.empty?
+			tmpdir = "/tmp"   
+		end
+		fileName = File.join( tmpdir, updatefile)
+		fd = File.open(fileName,"w")
+		fd.print(platformdisplay) # save the record info to the file
+		fd.close
+		ftp = Net::FTP::new(returns_ftpsite)
+		@returnsftpdisplay  = "data uploaded" + "\n" 
+
+		filedirname = File.join(tmpdir,updatefile)
+
+		ftp.debug_mode = false
+		ftp.login(returns_ftplogin, returns_ftppassword)
+		ftp.chdir(returns_ftpdirectory)
+		print "I'm in the directory ", ftp.pwd(), "\n"
+
+		puts filedirname
+		ftp.puttextfile(filedirname  , updatefile)
+		@returnsftpdisplay  =   @returnsftpdisplay + platformdisplay   
+
+
+		ftp.close
+
+	rescue
+		@returnsftpdisplay = "upload error"
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
+end

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -0,0 +1,3 @@
+def viewphoto
+	@rwd_window = "photo"
+end

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

@@ -0,0 +1,12 @@
+
+def rwdwdialogmap_0_01()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_HyperDialogMap.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdDialogMap"}
+Helptext.delete_if {|key, value| key == :rwddialogmap_generalhelp}
+Helptext.delete_if {|key, value| key == :rwddialogmap_configuration }
+Helptext.delete_if {|key, value| key == :dialogmapedit_help }
+Helptext.delete_if {|key, value| key == :dialogmapxml_help  }
+$rwdjumplink.delete_if {|x| x == "RwdDialogMap"}
+
+
+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 .empty?
+      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/helptexthashrwdhypernote.rb

@@ -0,0 +1,38 @@
+  
+
+ Helptext.update( :rwddialogmap_generalhelp => "      
+RwdDialogMap is a knowledge mapping interface
+  <p>
+ There are tabs to view notes and links and edit configurations
+ <p>
+ The core assumption, of this Dialog Map software, is that the information you are interested in is out there.<p>
+ It is on your computer hard disk and the internet.<p>
+The role of the software is not to help you create the information, but to:
+<p>
+1. find where it is<p>
+2. help you not lose it again<p>
+3. make notes that give summaries of what it is<p>
+4. make links from one chunk of information in one place with other chunks that can be related
+       .",
+       :rwddialogmap_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. ",
+  :dialogmapedit_help =>"
+  Here you can edit text files or lnk files<p>
+  Open Detail<p>
+  create new new<p>
+  save changes<p>
+  clear<p>
+  ",
+  :dialogmapxml_help => "
+     Here you can view a Freemind file:<p>
+     for example:<p>
+     rwd_files/Notes/TaoistBooks.mm<p>
+     rwd_files/Notes/Another Brain Jam.mm<p>
+     rwd_files/Notes/HR.xml<p>
+     "
+)

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-" + RwdDialogMapVersion +  ".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-" + RwdDialogMapVersion + ".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/openhelpwindowrwdhyernote.rb

@@ -0,0 +1,38 @@
+# this code is to call the help window
+def runhelpwindowrwddialogmap
+
+     $help_topic = "rwddialogmap_generalhelp"
+   
+  
+     
+   if @rwd_tab == "superantcomeditnoterecordfile"
+        $help_topic = "dialogmapedit_help"
+   end
   
+   if @rwd_tab == "superantcomxmlfile" 
+      
+    $help_topic = "dialogmapxml_help"
+   end
+   
+    if @rwd_tab == "superantcommmfile" 
+      
+    $help_topic = "dialogmapxml_help"
+   end 
+   
+  
+   
+  if @rwd_tab == "viewrwddialogconfiguration"
+  $help_topic = "rwddialogmap_configuration"
+  end
+  
+   $helptopicsarray =  $helptopicsarray | ["rwddialogmap_configuration","dialogmapedit_help","rwddialogmap_generalhelp"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+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

data/code/superant.com.dialogmap/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 rwddialogmaphelpaboutsetup
+return ["RwdDialogMap","(c) 2005-2008 Steven Gibson ","Version #{RwdDialogMapVersion}"]
+end
+
+