rwdhypernote 0.07 → 0.08

data/Notes/hypernote/testnote6.txt

@@ -0,0 +1 @@
+new note

data/Notes/rwdtinker/testnote4.txt

@@ -0,0 +1 @@
+new note

data/Notes/rwdtinker/testnote5.txt

@@ -0,0 +1 @@
+new note

data/Notes/rwdtinker/testnote8.txt

@@ -0,0 +1 @@
+new note

data/Notes/testnote7.txt

@@ -0,0 +1 @@
+new note

data/Readme.txt

@@ -80,7 +80,21 @@ Don't use the back-button of the browser! Strange and unpredictable things may a
 Steven Gibson
 steven@superant.com
 
-== Changelog 
+== Changelog
+Version 0.08
+ ability for listings by directories 
+ setup Load New Title button
+ configuration file screen change
+ updated for rwdtinker 1.66
+ new helpabout
+ new documents list
+
+Version 0.07
+ updated for rwdtinker version 1.63
+ changed handling of application name returned
+ added jump seletion options
+ added some unit tests
+
 version 0.06
  added configuration editing tab
  added more help information

data/code/01rwdcore/01rwdcore.rb

@@ -14,6 +14,10 @@ class RwdTinker  < RWDialog
 
 			rwdtest_harness
 		end
+            showjumplinkoptions
+            setuptinkerdocuments
+            setuphelpaboutoptionspassive
+             
 	end
 
 	def inspect

data/code/01rwdcore/jumplinkcommand.rb

@@ -10,11 +10,11 @@ JumpLink = Hash.new { |hh, kk| hh[kk] = "ERROR: link not found: #{kk.inspect}.";
     locationlink.each { |kk, vv| JumpLink[kk] = vv }
     
 def runjumplinkcommand
-
+if  @a_jumplinkinput
 runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
 
 self.send(runjumplocation)
- 
+ end
    end
 
 

data/code/01rwdcore/runopentinkerdocument.rb

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

data/code/01rwdcore/rwdtinkerversion.rb

@@ -3,11 +3,19 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
+def tinkerhelpaboutsetup
+return ["RwdTinker","(c) 2004 Steven Gibson ","Version #{RwdTinkerVersion}"]
+end
+
 def runrwdtinkerversion
 	@rwd_window = "applicationversion"
-	@versionappnamedisplay = "RwdTinker"
-	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-	@versionnumberdisplay =  "Version " + RwdTinkerVersion
+  helpaboutinput = @a_helpaboutinput.downcase
+  versionarraysetup = "#{helpaboutinput}helpaboutsetup"
+  versionarray= self.send(versionarraysetup)
+  
+	@versionappnamedisplay = versionarray[0].to_s
+	@versioncopyrightdisplay = versionarray[1].to_s
+	@versionnumberdisplay =  versionarray[2].to_s
 
 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/superant.com.hypernote/{archiveevent.rb → archivehypernote.rb}

@@ -1,5 +1,5 @@
  # this code is to archive  the event
- def archiveevent
+ def archivehypernote
   oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
   newName =  $rwdschedule_directory + "/" + "archive" + "/" + @a_viewevent + ".sch"
  begin 

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

@@ -1,5 +1,7 @@
-#
+#create a new note
   def rwdhypernotecreatenewnote
+  
+  @rwd_call_after_back << "reloadtab"
     if  @a_notedata.empty?
       newnotecontent =  'new note'
     else
@@ -9,6 +11,27 @@
       newnotefilename = "newnote.txt"
     else
       newnotefilename = @a_viewhypernote.to_s + ".txt"
-    end
-    download("#{newnotecontent}", "#{newnotefilename}")
-   end
+    end
+    
+  $reloadaftercreate = true
+    download("#{newnotecontent}", "#{newnotefilename}")
+   
+    end
+    
+def rwdhypernotereloadtab
+ 
+  if  $reloadaftercreate
+    @rwd_tab = "superantcomeditnoterecordfile"
+    listnotedirs
+   
+    $notesarray.each { |x|
+     if x.include? "#{@a_viewhypernote}" 
+    
+     @a_viewhypernote = x.gsub(/\.txt$/, "")
+     end
+   }
+      
+  
+   $reloadaftercreate = false
+  end
+end

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

@@ -24,8 +24,8 @@
    'save changes' to save your edits
    'clear' to clear the screen
    'Create New Note' to start a new note
-  After creating a new note, you must list below to find it
-  and select it, or it will NOT be SAVED",
+  After creating a new note, you must click 'Load New Title' 
+  to select it, or it will NOT be SAVED",
   :hypernoteutility_help => "You can change the file
    rename
    delete

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

@@ -0,0 +1,27 @@
+# this code is to list the  hypernote directories
+def rwdhypernotedirectories
+ if $temp_rwdhypernote_directory.to_s.empty?
+ temp_dir = $rwdhypernote_directory
+ else
+ temp_dir = $temp_rwdhypernote_directory
+ end
+  if  FileTest.directory?(temp_dir)
+ 
+  fileList      = Dir.new(temp_dir).entries.sort.reverse.delete_if { |x| (x =~ /lnk$|txt$/) }
+ @noterecordsresult = ""
+@notedirectoriesresult  = fileList.rwd_method("fillrwdhypernotedirs")
+ end
+end
+ 
+def fillrwdhypernotedirs(inffile)
+  applet                = inffile
+  
+ if $temp_rwdhypernote_directory.to_s.empty?
+   temp_topdirectory = $rwdhypernote_directory
+ else
+  temp_topdirectory = $temp_rwdhypernote_directory
+ end
+   
+  $temp_rwdhypernote_directory       = File.join(temp_topdirectory ,applet)
+  
+end

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

@@ -9,24 +9,29 @@ def fillhypernotename(inffile)
 end
 
  def findnotefiles(d)
-    p d
+  
          a = Array.new(Dir[d].entries.sort)
-	 p a
+  
          #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 =~ /rb|txt|txt/
-                    puts "#{x}"        #opens the file thats in fileName as read only
+                  #  puts "#{x}"        #opens the file thats in fileName as read only
                    $notesarray =  $notesarray | ["#{x}"] 
                   end
                end
           end
   end
   
-def listnotedirs
+def listnotedirs
+
+if $temp_rwdhypernote_directory.to_s.empty?
  startlangdir = $rwdhypernote_directory
+ else
+ startlangdir = $temp_rwdhypernote_directory
+ end
  
  $notesarray = [""]
  
@@ -52,12 +57,13 @@ def listnotedirs
         end
         anotearray.each do |x|
                 #if it is a file...
-		p x
+		
                 if(!test(?d,x))
                         anotearray.delete(x)
                   else              #it is a directory...
                         findnotefiles(x + "/**")
                 end
-        end
+        end
+        @notedirectoriesresult = ""
          @noterecordsresult = $notesarray.entries.sort.rwd_method("fillhypernotename")
       end  

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

@@ -13,19 +13,7 @@
         
         
 	      fd = File.open(fileName,"r")
-	      @a_hypconfigline1=        fd.readline.chomp
-	      @a_hypconfigline2 =  fd.readline.chomp
-        @a_hypconfigline3 = fd.readline.chomp
-          @a_hypconfigline4 = fd.readline.chomp
-        @a_hypconfigline5 = fd.readline.chomp
-         @a_hypconfigline6 = fd.readline.chomp 
-          @a_hypconfigline7 =fd.readline.chomp
-          @a_hypconfigline8 = fd.readline.chomp
-           @a_hypconfigline9 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extrahypconfigdatadisplay = fd.readline
-	      end
+	      @a_hypconfigurationfile=        fd.read
         fd.close
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!

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

@@ -0,0 +1,7 @@
+   # this method resets the hypernote directory to the top default setting
+   def rwdhypernoteresetdir
+ 
+        
+     $temp_rwdhypernote_directory =   $rwdhypernote_directory   
+
+  end

data/code/superant.com.hypernote/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 rwdhypernotehelpaboutsetup
+return ["RwdHypernote","(c) 2005 Steven Gibson ","Version #{RwdHyperNoteVersion}"]
+end
+
+

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

@@ -3,8 +3,9 @@
    require 'fileutils'
    
    newname = "rwdhypernote.cnf" # grab the filename to create
-   newdata =@a_hypconfigline1.to_s + "\n" + @a_hypconfigline2.to_s + "\n" + @a_hypconfigline3.to_s + "\n" + @a_hypconfigline4.to_s + "\n" + @a_hypconfigline5.to_s + "\n" + @a_hypconfigline6.to_s + "\n" + @a_hypconfigline7.to_s + "\n" + @a_hypconfigline8.to_s + "\n" + @a_hypconfigline9.to_s + "\n"
-	 
+   newdata = @a_hypconfigurationfile
+   
+	  
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )
         	fd = File.open(fileName,"w")

data/code/superant.com.rwdtinkerbackwindow/listgemzips.rb

@@ -13,7 +13,7 @@ def findzipfiles(d)
 		if(!test(?d,x))
 			# only zip files
 			if x =~ /\.zip/
-				puts "#{x}"        #opens the file thats in fileName as read only
+				    #opens the file thats in fileName as read only
 				$zipsarray =  $zipsarray | ["#{x}"] 
 			end
 		end

data/code/superant.com.rwdtinkerbackwindow/listzips.rb

@@ -16,7 +16,7 @@ def  listzipfilestoinstall
 	a.each do |x|
 		# only zip files
 		if x =~ /\.zip/
-			#  puts "#{x}"        #adds the file to the array to display on the screen
+			        #adds the file to the array to display on the screen
 			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
 		end
 

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

@@ -12,18 +12,7 @@ def loadconfigurationrecord
 		fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
 
 		fd = File.open(fileName,"r")
-		@a_configline1=        fd.readline.chomp
-		@a_configline2 =  fd.readline.chomp
-		@a_configline3 = fd.readline.chomp
-		@a_configline4 = fd.readline.chomp
-		@a_configline5 = fd.readline.chomp
-		@a_configline6 = fd.readline.chomp 
-		@a_configline7 =fd.readline.chomp
-		@a_configline8 = fd.readline.chomp
-
-		while ! fd.eof?
-			@extraconfigdatadisplay = fd.readline
-		end
+		@a_configurationfile =        fd.read
 		fd.close
 	rescue SystemCallError, StandardError
 		$stderr.print "system call error: " + $!

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

@@ -3,9 +3,9 @@ def saveconfigurationrecord
 	require 'fileutils'
 	if @a_configurationfilename
 		newname = "%s" %   [@a_configurationfilename] # grab the filename to create
-		newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s + "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.to_s + "\n"
+		newdata =@a_configurationfile
 
-		begin # exception trapped block
+          begin # exception trapped block
 			fileName = File.join( ConfigurationDir, newname )
 			fd = File.open(fileName,"w")
 			fd.print(newdata) # save the record info to the file

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.63
-$rwdapplicationidentity = "rwdhypernote text editor"
+##VERSION:1.66
+$rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdhypernote.dist

@@ -1,4 +1,4 @@
-##VERSION:0.07
+##VERSION:0.08
 ##NAME: $rwdhypernote_directory:0
 $rwdhypernote_directory = "Notes"
  $notesarray = ["Notes/changes.txt"]
@@ -8,4 +8,8 @@ $rwdhypernote_ftplogin = "mylogin"
 $rwdhypernote_ftppassword = "mypassword"
 $rwdhypernote_ftpdirectory = "/incoming/rwdhypernotes/"
 $rwdhypernote_updatedirectory = "updates"
-RwdHyperNoteVersion = "0.07"
+$testharnessarray += ["rwdhypernote_all_tests"]
+$tinkerhelpaboutarray += ["RwdHypernote"] 
+$tinkerdocumentsarray += ["HowTo_HyperNote.txt"]
+RwdHyperNoteVersion = "0.08"
+

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.66
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -12,4 +12,8 @@ LangDir = "lang"
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
-RwdTinkerVersion = "1.63"
+Browser_Exe = 'mozilla '
+$tinkerdocumentsarray +=["COPYING","HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
+RwdTinkerVersion = "1.66"
+	
+   

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.66
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"RwdHypernote - RubyWebDialogs\">
+  <window name=\"main\" title=\"RwdHyperNote - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindow0/superant.com.hypernote/10viewnote.rwd

@@ -12,7 +12,9 @@ $rwdguivar=
       <button caption=\"Open Detail\" action=\"loadnoterecord\"/>
     
     <button caption=\"Create New Note\" action=\"rwdhypernotecreatenewnote\"/>
-       <button caption=\"Save Changes\" action=\"savehypernoterecord\"/>
+    <button caption=\"Load New Title\" action=\"rwdhypernotereloadtab\"/>
+      
+      <button caption=\"Save Changes\" action=\"savehypernoterecord\"/>
     
       
        <button caption=\"Clear\" action=\"clearhypernotescreendisplay\"/>
@@ -21,12 +23,23 @@ $rwdguivar=
     </horizontal>
 <textarea  name=\"a_notedata\"/> 
     
-      <horizontal>
-      <button caption=\"List Notes\" action=\"listnotedirs\"/>
+      
+     <horizontal>
+     
+      <button caption=\"List Directories\" action=\"rwdhypernotedirectories\"/>
+<button caption=\"Reset to top Directory\" action=\"rwdhypernoteresetdir\"/>
+      
+  </horizontal>    
+      
+     <horizontal>
+     <button caption=\"List Notes\" action=\"listnotedirs\"/>
         <button caption=\"Show Internal Links\" action=\"listlocalnotelinks\"/>
       
            
-    </horizontal>
+    </horizontal>
+
     <p>%%noterecordsresult%%</p>
-     <p>%%localnotelinksrecordsresult%%</p>
+     <p>%%localnotelinksrecordsresult%%</p>
+     <p>%%notedirectoriesresult%%</p>
+     
 	</tab>"

data/gui/frontwindow0/superant.com.hypernote/67viewconfiguration.rwd

@@ -16,16 +16,7 @@ $rwdguivar=
     </horizontal>
    <table>
 
-      <row> <p align=\"right\">FileName:</p>  <text name=\"a_hypconfigurationfilename\"/> </row>
-      <row> <p align=\"right\">1:</p>  <text size=70 name=\"a_hypconfigline1\"/> </row>
-      <row> <p align=\"right\">2:</p>  <text size=70 name=\"a_hypconfigline2\"/> </row>
-      <row> <p align=\"right\">3:</p>  <text size=70 name=\"a_hypconfigline3\"/> </row>
-      <row> <p align=\"right\">4:</p>  <text size=70 name=\"a_hypconfigline4\"/> </row>
-      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_hypconfigline5\"/> </row>
-      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_hypconfigline6\"/> </row>
-      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_hypconfigline7\"/> </row>
-      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_hypconfigline8\"/> </row>
-      <row> <p align=\"right\">9:</p>  <text size=70 name=\"a_hypconfigline9\"/> </row>
+       <textarea name=\"a_hypconfigurationfile\"/> </row>
       
     </table>
     <p>%extrahypconfigdatadisplay%</p>

data/gui/frontwindowselectionbegin/selectiontabbegin/{selectiontabbegin.rwd → 00selectiontabbegin.rwd}

@@ -1,6 +1,6 @@
 $rwdguivar=
 "	
-      <tab name=\"selectiontab\" caption=#{Message[:selection_panel]}>
+      <tab name=\"selectiontab\" caption=\"Menu Panel\">
 
       <table>
       <row> <p align=\"right\">Open a new location </row>

data/gui/frontwindowtdocuments/superant.com.documents/tinkerdocuments.rwd

@@ -0,0 +1,14 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=\"Show Documents List\" action=\"setuptinkerdocuments\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_tinkerdocumentinput\">  %%tinkerdocumentsarray%% </select>
+
+   </table>
+<horizontal>
+      <button caption=\"Open Document\" action=\"runopentinkerdocument\"/>
+  </horizontal>
+"

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzdocumentend.rwd

@@ -0,0 +1,8 @@
+$rwdguivar=
+"     
+<horizontal>       
+      <button caption=\"Help\" action=\"runhelpwindow\"/>
+      
+    </horizontal>
+	</tab>"
+	

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/helpabouttab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+    </horizontal>
+"

data/gui/helpaboutzend/superant.com.helpaboutend/zhelpscreenstart2.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"tinkerbackwindow\" title=\"Help About\">"

data/gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpabout2.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+    </horizontal>
+"

data/gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpscreen2end.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+</helpwindow>"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/60editconfiguration.rwd

@@ -16,16 +16,8 @@ $rwdguivar=
     
     </horizontal>
     <table>
-      <row> <p align=\"right\" >FileName:</p>  <text size=70 name=\"a_configurationfilename\"/> </row>
-      <row> <p align=\"right\">1:</p>  <text size=70  name=\"a_configline1\"/> </row>
-      <row> <p align=\"right\">2:</p>  <text size=70  name=\"a_configline2\"/> </row>
-      <row> <p align=\"right\">3:</p>  <text size=70  name=\"a_configline3\"/> </row>
-      <row> <p align=\"right\">4:</p>  <text  size=70 name=\"a_configline4\"/> </row>
-      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_configline5\"/> </row>
-      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_configline6\"/> </row>
-      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_configline7\"/> </row>
-      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_configline8\"/> </row>
-      
+        <textarea name=\"a_configurationfile\"/>
+       
 
     </table>
     <p>%extraconfigdatadisplay%</p>

data/gui/tinkerbackwindows/superant.com.versionwindow/1appname.rwd

@@ -11,7 +11,7 @@ $rwdguivar=
 <p>%versionnumberdisplay%</p>
 
       <horizontal>
-       <cancel/>
+<button caption=Return action=returntomain/>
     </horizontal>
 
 </window>"

data/gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<window name=tinkerhelpabout title=\"Help About Window\">
+<horizontal>
+<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+    </horizontal>
+    </window>
+"

data/rwd_files/HowTo_HyperNote.txt

@@ -80,7 +80,15 @@ Don't use the back-button of the browser! Strange and unpredictable things may a
 Steven Gibson
 steven@superant.com
 
-== Changelog 
+== Changelog
+Version 0.08
+ ability for listings by directories 
+ setup Load New Title button
+ configuration file screen change
+ updated for rwdtinker 1.66
+ new helpabout
+ new documents list
+
 Version 0.07
  updated for rwdtinker version 1.63
  changed handling of application name returned

data/rwd_files/HowTo_Tinker.txt

@@ -227,6 +227,19 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+Version 1.66
+ Fixed directory layout
+ increased size of config edit screen
+
+Version 1.65
+ Changed documents listing screen - now using hash
+ Changed helpabout screen - now using hash
+ added more lines for config edit 
+ added help about to back window
+
+Version 1.64
+ fixed jump with no location
+
 Version 1.63
  changed handling of application name returned
  added jump seletion options

data/rwdconfig.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.66
 # rwdtinker core configuration file
 ##NAME: ConfigLocation:0
 ConfigLocation=""
@@ -9,4 +9,11 @@ $testharnessarray = ["rwdtinker_all_tests"]
 ##NAME:TestNow:0
 TestNow=false  # turning this on will run the unit tests
 ##NAME:$testharness:0
-$testharness=true
+$testharness=true
+##NAME:$tinkerhelpaboutarray:0
+$tinkerhelpaboutarray = ["Tinker"]
+##NAME:$tinkerdocumentsarray:0
+$tinkerdocumentsarray = ["Readme.txt"]
+
+
+

data/tests/RubyGauge.rb

@@ -0,0 +1,179 @@
+#--------------------------------------------------------------------#
+#                                                                    #
+#  RubyGauge version 1                                               #
+#  Copyright (c) 2005,  Harrison Ainsworth.                          #
+#                                                                    #
+#  http://hxa7241.org/                                               #
+#                                                                    #
+#--------------------------------------------------------------------#
+
+
+
+
+require 'find'
+
+
+
+
+# Counts lines of code in ruby source files.
+#
+# just a simple example ruby program, produced as an exercise.
+#
+# * directories are looked in recursively for source files
+# * source files with the following name extensions are recognized:
+#   .rb .rbw
+# * a line is counted as code if it is not empty and not solely comment
+#
+# == requirements
+# ruby 1.8
+#
+# == usage
+# RubyGauge.rb [-f...] (file|directory)pathname ...
+# RubyGauge.rb -help|-?
+#
+# switches:
+#    -f<[l|s][1|2]>  set output format to long/short, linecount only /
+#                    linecount and filecount (defaults to -fl2)
+#    -help|-?        prints this message
+#
+# ==acknowledgements
+# * ruby: http://ruby-lang.org/
+# * the pragmaticprogrammers pickaxe book:
+#   http://phrogz.net/ProgrammingRuby/
+# * rubygarden: http://rubygarden.org/ruby?CodingInRuby
+#
+# == license
+# this software is too short and insignificant to have a license.
+
+module RubyGauge
+
+	# Entry point if run from the command line.
+	#
+	# Reads command line args, writes output to stdout.
+	#
+	def RubyGauge.main
+
+		# check if help message needed
+		if $*.empty? || !(RubyGauge.getSwitchs( $*, '(help|\?)' ).empty?)
+
+			puts "\n#{@@BANNER}\n#{@@HELP}"
+
+		else
+
+			# count
+			pathnames = RubyGauge.getTokens( $*, '^[^-\/]', ' ' )
+
+			fileCount = []
+			lineCount = RubyGauge.countLinesInFileTree( pathnames, fileCount )
+
+			# output counts
+			format = RubyGauge.getSwitchs( $*, 'f', '-fl2' ).last[2,2]
+
+			(@@LINES_FORMAT = { 's' => "#{lineCount}" }).default = "\n   #{lineCount} line#{lineCount == 1 ? '' : 's'} of code\n"
+			(@@FILES_FORMAT = { 's' => " #{fileCount}" }).default = "   #{fileCount[0]} file#{fileCount[0] == 1 ? '' : 's'}\n"
+			print @@LINES_FORMAT[format[0,1]]
+			print @@FILES_FORMAT[format[0,1]] unless format[1,1] == '1'
+
+		end
+
+	end
+
+
+	def RubyGauge.getSwitchs( commandline, pattern, default=nil )
+
+		RubyGauge.getTokens( commandline, '^(-|\/)' + pattern, default )
+
+	end
+
+
+	def RubyGauge.getTokens( commandline, pattern, default=nil )
+
+		tokens = []
+
+		commandline.each do |token|
+			if token =~ /#{pattern}/
+				tokens.push token
+			end
+		end
+
+		if tokens.empty? && default
+			tokens.push default
+		end
+
+		tokens
+
+	end
+
+
+	# Counts lines of ruby code in filetree recursively.
+	#
+	# A line is counted as code if it is not empty and not solely comment.
+	#
+	# == parameters
+	# * pathnames: Array of String of file or directory pathname
+	#   (relative or absolute)
+	# * fileCount: Array of Numeric, length 1. Just an example of a
+	#   'reference' parameter
+	# * return: Fixnum of the line count
+	#
+	def RubyGauge.countLinesInFileTree( pathnames, fileCount=[] )
+
+		fileCount[0] = 0
+		lineCount    = 0
+
+		# scan directory tree
+		Find.find( *pathnames ) do |fileOrDirName|
+
+			# filter file types (to ruby)
+			if FileTest.file?( fileOrDirName ) &&
+			   FileTest.readable?( fileOrDirName ) &&
+			   fileOrDirName =~ /\.(rb|rbw)\Z/
+
+			   fileCount[0] += 1
+
+				filePathname = File.expand_path( fileOrDirName )
+
+				# read file
+				File.open( filePathname, 'r' ) do |file|
+
+					# scan file lines
+					file.each_line do |line|
+						# select non blank, non comment-only line
+						unless line =~ /^\s*(#|\Z)/
+							lineCount += 1
+						end
+					end
+
+				end
+
+			end
+		end
+
+		lineCount
+
+	end
+
+
+	@@BANNER = "-------------------------------------------------------------\n" +
+	           "RubyGauge 2005 (v1)\n" +
+	           "Copyright (c) 2005,  Harrison Ainsworth.\n\n" +
+	           "http://hxa7241.org/\n" +
+	           "-------------------------------------------------------------\n"
+
+	@@HELP   = "RubyGauge counts lines of code in ruby source files.\n\n" +
+	           "* directories are looked in recursively for source files\n" +
+	           "* source files with the following name extensions are recognized: .rb .rbw\n" +
+	           "* a line is counted as code if it is not empty and not solely comment\n" +
+	           "\nusage:\n" +
+	           "   RubyGauge.rb [-f...] (file|directory)pathname ...\n" +
+	           "   RubyGauge.rb -help|-?\n" +
+	           "\nswitches:\n" +
+	           "   -f<[l|s][1|2]>  set output format to long/short, linecount only / linecount and filecount (defaults to -fl2)\n" +
+	           "   -help|-?        prints this message\n"
+
+end
+
+
+
+
+RubyGauge.main

data/tests/makedist.rb

@@ -6,6 +6,7 @@
 #***********************************************************************/
 $progdir =""
 require 'fileutils'
+load 'rwdconfig.dist'
 DistroName = "rwdhypernote"
 load "configuration/#{DistroName}.dist"
 DistroVersion=RwdHyperNoteVersion

metadata

@@ -1,10 +1,10 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.8
+rubygems_version: 0.8.10
 specification_version: 1
 name: rwdhypernote
 version: !ruby/object:Gem::Version 
-  version: "0.07"
-date: 2005-04-04
+  version: "0.08"
+date: 2005-05-08
 summary: rwdhypernote application is a hierarchical note taker for RubyWebDialogs.
 require_paths: 
   - "."
@@ -43,6 +43,9 @@ files:
   - code/01rwdcore/rundocuments.rb
   - code/01rwdcore/runhelpabout.rb
   - code/01rwdcore/runeditconfiguration.rb
+  - code/01rwdcore/setuptinkerdocuments.rb
+  - code/01rwdcore/setuphelpaboutoptions.rb
+  - code/01rwdcore/runopentinkerdocument.rb
   - code/superant.com.rwdtinkerbackwindow/controlclient.rb
   - code/superant.com.rwdtinkerbackwindow/diagnostictab.rb
   - code/superant.com.rwdtinkerbackwindow/helptexthashtinkerwin2.rb
@@ -67,7 +70,6 @@ files:
   - code/superant.com.rwdtinkerbackwindow/listgemzips.rb
   - code/superant.com.rwdtinkerbackwindow/runremoteinstall.rb
   - code/zz0applicationend/zz0end.rb
-  - code/superant.com.hypernote/archiveevent.rb
   - code/superant.com.hypernote/changehypernotename.rb
   - code/superant.com.hypernote/clearhypernotescreendisplay.rb
   - code/superant.com.hypernote/clearlinkscreendisplay.rb
@@ -85,10 +87,13 @@ files:
   - code/superant.com.hypernote/loadnoterecord.rb
   - code/superant.com.hypernote/openhelpwindowrwdhyernote.rb
   - code/superant.com.hypernote/returntomain.rb
-  - code/superant.com.hypernote/rwdhypernotehelpabout.rb
+  - code/superant.com.hypernote/rwdtinkerversion.rb
   - code/superant.com.hypernote/saveconfigurationrecord.rb
   - code/superant.com.hypernote/savehypernoterecord.rb
   - code/superant.com.hypernote/savelinkrecord.rb
+  - code/superant.com.hypernote/listdirectories.rb
+  - code/superant.com.hypernote/archivehypernote.rb
+  - code/superant.com.hypernote/rwdhypernoteresetdir.rb
   - configuration/tinkerwin2variables.dist
   - configuration/rwdtinker.dist
   - configuration/language.dist
@@ -120,32 +125,24 @@ files:
   - gui/frontwindow0/superant.com.hypernote/20editlinks.rwd
   - gui/frontwindow0/superant.com.hypernote/30noteutilities.rwd
   - gui/frontwindow0/superant.com.hypernote/67viewconfiguration.rwd
-  - gui/frontwindowselectionbegin/selectiontabbegin/selectiontabbegin.rwd
+  - gui/frontwindowselectionbegin/selectiontabbegin/00selectiontabbegin.rwd
   - gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab
   - gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd
-  - gui/frontwindowselectionzend/viewselectionzend/viewselectionend.rwd
-  - gui/frontwindowtdocumentbegin/superant.com.documentsbegin
-  - gui/frontwindowtdocumentbegin/superant.com.documentsbegin/tt0documentbegin.rwd
+  - gui/frontwindowselectionzend/viewselectionzend/zzdocumentbegin.rwd
+  - gui/frontwindowselectionzend/viewselectionzend/wwselectionend.rwd
   - gui/frontwindowtdocuments/superant.com.documents
-  - gui/frontwindowtdocuments/superant.com.tinkerwin2documents
-  - gui/frontwindowtdocuments/superant.com.rwdhypernotedocument
-  - gui/frontwindowtdocuments/superant.com.documents/uu5documents.rwd
-  - gui/frontwindowtdocuments/superant.com.tinkerwin2documents/uu5documents.rwd
-  - gui/frontwindowtdocuments/superant.com.rwdhypernotedocument/rwdhypernotedocument.rwd
-  - gui/frontwindowtdocumentzend/superant.com.documentsend
-  - gui/frontwindowtdocumentzend/superant.com.documentsend/ww0documentend.rwd
-  - gui/frontwindowz1end/frontwindowend/xx0rwdfirsttab.rwd
+  - gui/frontwindowtdocuments/superant.com.documents/tinkerdocuments.rwd
   - gui/helpaboutbegin/superant.com.helpaboutbegin
-  - gui/helpaboutbegin/superant.com.helpaboutbegin/ya0helpscreenstart.rwd
+  - gui/helpaboutbegin/superant.com.helpaboutbegin/zzdocumentend.rwd
+  - gui/helpaboutbegin/superant.com.helpaboutbegin/zzzrwdlasttab.rwd
+  - gui/helpaboutbegin/superant.com.helpaboutbegin/zzzzhelpscreenstart.rwd
   - gui/helpaboutinstalled/superant.com.tinkerhelpabout
-  - gui/helpaboutinstalled/superant.com.rwdhypernotehelpabout
-  - gui/helpaboutinstalled/superant.com.tinkerhelpabout/1appname.rwd
-  - gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd
-  - gui/helpaboutinstalled/superant.com.tinkerhelpabout/5version.rwd
-  - gui/helpaboutinstalled/superant.com.rwdhypernotehelpabout/1versionname.rwd
-  - gui/helpaboutinstalled/superant.com.rwdhypernotehelpabout/5version.rwd
+  - gui/helpaboutinstalled/superant.com.tinkerhelpabout/helpabouttab.rwd
   - gui/helpaboutzend/superant.com.helpaboutend
   - gui/helpaboutzend/superant.com.helpaboutend/helpscreenend.rwd
+  - gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpscreen2end.rwd
+  - gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpabout2.rwd
+  - gui/helpaboutzend/superant.com.helpaboutend/zhelpscreenstart2.rwd
   - gui/tinkerbackwindows/superant.com.tinkerbackwindow
   - gui/tinkerbackwindows/superant.com.tinkerhelpwindow
   - gui/tinkerbackwindows/superant.com.versionwindow
@@ -161,28 +158,32 @@ files:
   - gui/tinkerbackwindows/superant.com.tinkerhelpwindow/1appname.rwd
   - gui/tinkerbackwindows/superant.com.tinkerhelpwindow/9end.rwd
   - gui/tinkerbackwindows/superant.com.versionwindow/1appname.rwd
+  - gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd
   - gui/zzcoreguiend/tinkerapplicationguiend/yy9rwdend.rwd
-  - installed/rwdviewlogo-0.4.inf
   - rwd_files/favicon.ico
   - rwd_files/HowTo_Tinker.txt
   - rwd_files/HowTo_TinkerWin2.txt
   - rwd_files/rdoc-style.css
   - rwd_files/Readme.txt
   - rwd_files/rwdapplications.html
-  - rwd_files/rwdindex.html
   - rwd_files/tinker.png
+  - rwd_files/RubyWebDialogs.html
   - rwd_files/HowTo_HyperNote.txt
   - zips/rwdahelloworld-0.5.zip
   - Notes/changes.lnk
   - Notes/changes.txt
+  - Notes/testnote7.txt
   - Notes/hypernote/hypernote01.txt
   - Notes/hypernote/hypernote02.txt
-  - Notes/hypernote/newnote3.txt
+  - Notes/hypernote/testnote6.txt
   - Notes/rwdtinker/newnote.txt
   - Notes/rwdtinker/rwdtinker01.txt
   - Notes/rwdtinker/RwdtinkerProgrammingQuickStart.lnk
   - Notes/rwdtinker/RwdtinkerProgrammingQuickStart.txt
-  - Notes/rwdtinker/testnote2.txt
+  - Notes/rwdtinker/testnote4.txt
+  - Notes/rwdtinker/testnote5.txt
+  - Notes/rwdtinker/testnote8.txt
+  - tests/RubyGauge.rb
   - tests/totranslate.lang
   - tests/cleancnf.sh
   - tests/rdep.rb

data/Notes/hypernote/newnote3.txt

@@ -1,2 +0,0 @@
-This is a new note.
-need more information

data/Notes/rwdtinker/testnote2.txt

@@ -1 +0,0 @@
-This is a new note.

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

@@ -1,14 +0,0 @@
-# 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 runrwdhypernoteversion
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdHyperNote"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdHyperNoteVersion
-
-   end
-  

data/gui/frontwindowtdocuments/superant.com.documents/uu5documents.rwd

@@ -1,15 +0,0 @@
-$rwdguivar=
-"
-      <row> <p align=\"left\"> 
-      <a href=HowTo_Tinker.txt>Howto_Tinker.txt</a></p></row>
-      <row> <p align=\"left\"> 
-      <a href=Readme.txt>Readme.txt</a></p></row>
-      <row> <p align=\"left\"> 
-      <a href=COPYING>GPL License </a></p></row>
-      <row> <p align=\"left\"> 
-      <a href=rwdapplications.html>more information about rwdapplications </a></p></row>
-      <row> <p align=\"left\"> 
-      <a href=rwdindex.html>Link to online information about RubyWebdialogs </a></p></row>"
-      
-     
-	

data/gui/frontwindowtdocuments/superant.com.rwdhypernotedocument/rwdhypernotedocument.rwd

@@ -1,5 +0,0 @@
-$rwdguivar=
-"      
-      <row> <p align=\"left\"> 
-         <a href=HowTo_HyperNote.txt>HowTo_HyperNote.txt</a></p></row>"
-      

data/gui/frontwindowtdocuments/superant.com.tinkerwin2documents/uu5documents.rwd

@@ -1,6 +0,0 @@
-$rwdguivar=
-"
-      <row> <p align=\"left\"> 
-      <a href=HowTo_TinkerWin2.txt>Howto_TinkerWin2.txt</a></p></row>"
-     
-	

data/gui/frontwindowtdocumentzend/superant.com.documentsend/ww0documentend.rwd

@@ -1,12 +0,0 @@
-$rwdguivar=
-"     
- <row> <p align=\"left\"><a href=.>Spawn a clone Dialog window</a></p></row>
-    </table>
-        </horizontal>
-         <horizontal>
-       
-      <button caption=\"Help\" action=\"runhelpwindow\"/>
-      
-    </horizontal>
-	</tab>"
-	

data/gui/helpaboutinstalled/superant.com.rwdhypernotehelpabout/1versionname.rwd

@@ -1,6 +0,0 @@
-$rwdguivar=
-"
-<panel>
- <row> <p align=\"center\">rwdhypernote</p></row>
- 
- <row> <p align=\"center\">copyright s. gibson 2004,2005</p></row>"

data/gui/helpaboutinstalled/superant.com.rwdhypernotehelpabout/5version.rwd

@@ -1,9 +0,0 @@
-$rwdguivar=
-"
-      <horizontal>
-       <button caption=\"Click for Version\" action=\"runrwdhypernoteversion\"/>
-    </horizontal>
-          
-</panel>"
-
-

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/1appname.rwd

@@ -1,4 +0,0 @@
-$rwdguivar=
-"
-<panel>
- <row> <p align=\"center\">#{Message[:rwdtinker]}</p></row>"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd

@@ -1,3 +0,0 @@
-$rwdguivar=
-"
- <row> <p align=\"center\">copyright s. gibson 2004,2005</p></row>"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/5version.rwd

@@ -1,10 +0,0 @@
-$rwdguivar=
-"
-      <horizontal>
-       <button caption=#{Message[:clickfor_version]} action=\"runrwdtinkerversion\"/>
-    </horizontal>
-</panel>"
-
-
-
-

data/installed/rwdviewlogo-0.4.inf

@@ -1,4 +0,0 @@
-# rwdviewlogo - small applet to display one picture
-code/dd0viewphoto
-gui/cc0viewphoto
-rwd_files/tinker.png