rwdshell 0.99 → 1.00

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/runremoteinstall.rb

@@ -0,0 +1,11 @@
+# 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
+
+# call the rwdtinker helpwindow  
+
+def runremotezipsinstall
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "superantcomremotezipsinstall"
+end   
+

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.62
+##VERSION:1.66
 $rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdshell.dist

@@ -1,3 +1,14 @@
-##VERSION:0.99
+##VERSION:1.00
+##NAME:$shellscript_directory:0
 $shellscript_directory = "scripts"
-RwdShellVersion = "0.99"
+##NAME:$testharnessarray:0
+$testharnessarray += ["rwdshell_all_tests"]
+##NAME:$tinkerhelpaboutarray:0
+$tinkerhelpaboutarray += ["RwdShell"] 
+##NAME:$tinkerdocumentsarray
+$tinkerdocumentsarray += ["HowTo_Shell.txt"]
+##NAME:RwdShellVersion:0
+RwdShellVersion = "1.00"
+
+
+

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.62
+##VERSION:1.66
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -11,5 +11,9 @@ LangDir = "lang"
   $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
-$rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain"]
-RwdTinkerVersion = "1.62"
+$rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
+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.62
+##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=\"Tinker - RubyWebDialogs\">
+  <window name=\"main\" title=\"RwdTinker - RubyWebDialogs\">
 <tabs>"

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.rwdshellbackwindow/92viewconfiguration.rwd

@@ -17,16 +17,10 @@ $rwdguivar=
    <table>
 
       <row> <p align=\"right\">FileName:</p>  <text size=70 name=\"a_rshellconfigurationfilename\"/> </row>
-      <row> <p align=\"right\">1:</p>  <text size=70 name=\"a_rshellhellconfigline1\"/> </row>
-      <row> <p align=\"right\">2:</p>  <text size=70 name=\"a_rshellconfigline2\"/> </row>
-      <row> <p align=\"right\">3:</p>  <text size=70 name=\"a_rshellconfigline3\"/> </row>
-      <row> <p align=\"right\">4:</p>  <text size=70 name=\"a_rshellconfigline4\"/> </row>
-      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_rshellconfigline5\"/> </row>
-      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_rshellconfigline6\"/> </row>
-      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_rshellconfigline7\"/> </row>
-      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_rshellconfigline8\"/> </row>
-      <row> <p align=\"right\">9:</p>  <text size=70 name=\"a_rshellconfigline9\"/> </row>
-
+</table>     
+<table>
+       <textarea name=\"a_rshellconfiguration\"/>
+     
     </table>
     
     <p>

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_Shell.txt

@@ -192,8 +192,15 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 
 Thanks, Steven Gibson
 
-== Changelog
+== 
+Version 1.00
+ corrected edit configuration screen
+ updated for rwdtinker 1.66
+ new helpabout
+ new documents list
+  
 Version 0.99
+ corrected Ruby script edit
  added help to some shell tabs
  updated for rwdtinker 1.62 - improve distro release script
  changed selection screen to use new hash method

data/rwd_files/HowTo_Tinker.txt

@@ -227,6 +227,24 @@ 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
+ added some unit tests
+
 version 1.62
  improve distro release script
  code cleanup

data/rwdconfig.dist

@@ -1,4 +1,4 @@
-##VERSION:1.62
+##VERSION:1.66
 # rwdtinker core configuration file
 ##NAME: ConfigLocation:0
 ConfigLocation=""
@@ -7,4 +7,13 @@ ConfigLocation=""
 ##NAME:$testharnessarray:0
 $testharnessarray = ["rwdtinker_all_tests"]
 ##NAME:TestNow:0
-TestNow=false
+TestNow=false  # turning this on will run the unit tests
+##NAME:$testharness:0
+$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