rwdaddresses 1.02 → 1.03

data/code/01rwdcore/01rwdcore.rb

@@ -17,6 +17,6 @@ class RwdTinker  < RWDialog
 	end
 
 	def inspect
-		"Rwdtinker Application " 
+		"#{$rwdapplicationidentity}" 
 	end
 

data/code/01rwdcore/jumplinkcommand.rb

@@ -0,0 +1,26 @@
+# Bind message passing socket to rwdtinker application
+JumpLink = Hash.new { |hh, kk| hh[kk] = "ERROR: link not found: #{kk.inspect}."; hh[kk] }
+    locationlink = {
+    :helpscreen=> "runhelpwindow",
+    :tinkerbackwindow=>"runrwdtinkerbackwindow",
+    :returntomain=>"returntomain",
+    :opendocuments=>"runtinkerdocuments",
+    :editconfiguration=>"runeditconfiguration"
+    }
+    locationlink.each { |kk, vv| JumpLink[kk] = vv }
+    
+def runjumplinkcommand
+if  @a_jumplinkinput
+runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
+
+self.send(runjumplocation)
+ end
+   end
+
+
+# list the remote control options on the screen
+def showjumplinkoptions
+  
+	@jumplinkoptions = $rwdjumplink.rwd_options
+	
+end

data/code/01rwdcore/rundocuments.rb

@@ -0,0 +1,10 @@
+# Application menu orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+       def runtinkerdocuments
+   @rwd_window = "main"
+   @rwd_tab = "documentsrwdtinkerone"
+   end 
+   

data/code/01rwdcore/runeditconfiguration.rb

@@ -0,0 +1,10 @@
+# Application menu orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+       def runeditconfiguration
+   @rwd_window = "tinkerbackwindow"
+   @rwd_tab = "editconfigurationfile"
+   end 
+   

data/code/01rwdcore/runhelpabout.rb

@@ -0,0 +1,10 @@
+# Application menu orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+   def runtinkerhelpabout
+   @rwd_window = "rwdtinkerhelpwindow"
+  
+   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/test_cases.rb

@@ -1,112 +1,106 @@
 # 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
 
-	require 'test/unit' 
-	begin
 
+	begin
+  testasserts = 0
+  print "Starting rwdtinker tests!\n"
 		runrwdtinkerbackwindow
-
-		raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
-
-	rescue  NotImplementedError
+    
+    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 test_choosenewhelptopic
+def teststobedown
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
 	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
-end
-
-
-def test_listinstalledfiles
 	raise NotImplementedError, 'Need to write test_listinstalledfiles'
-end
-
-
-def test_listzipfilestoinstall
 	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
-end
-
-def test_loadconfigurationrecord
 	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
-end
-
-def test_loadconfigurationvariables
 	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
-end
-
 
-
-def test_main
 	raise NotImplementedError, 'Need to write test_main'
-end
 
-def test_network_demon
 	raise NotImplementedError, 'Need to write test_network_demon'
-end
 
-def test_network_start
 	raise NotImplementedError, 'Need to write test_network_start'
-end
 
-def test_openappletname
 	raise NotImplementedError, 'Need to write test_openappletname'
-end
 
-def test_removeapplet
 	raise NotImplementedError, 'Need to write test_removeapplet'
-end
 
-def test_returntomain
 	raise NotImplementedError, 'Need to write test_returntomain'
-end
 
-def test_runcontrolcommand
 	raise NotImplementedError, 'Need to write test_runcontrolcommand'
-end
-
 
-def test_runhelpwindow
 	raise NotImplementedError, 'Need to write test_runhelpwindow'
-end
-
-
 
-
-def test_runrwdtinkerversion
 	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
-end
 
-def test_runrwdtinkerwin2version
 	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
-end
 
-def test_runviewplatform
 	raise NotImplementedError, 'Need to write test_runviewplatform'
-end
 
-def test_rwdtinkerversiondiagnostic
 	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
-end
 
-def test_rwdwindowreturn
 	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
-end
-
-def test_saveconfigurationrecord
 	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
-end
-
 
-def test_viewappletcontents
 	raise NotImplementedError, 'Need to write test_viewappletcontents'
 end
 

data/code/01rwdcore/test_harness.rb

@@ -2,6 +2,7 @@
 def rwdtest_harness
 
 	print "in test harness\n"
+  
 	$testharnessarray.each { |x| 
 		print "calling #{x}\n"
 		eval("#{x}")

data/code/superant.com.rwdaddresses/downloadrwdaddressfiles.rb

@@ -13,15 +13,15 @@ def downloadrwdaddressfiles
 		schfiles = ftp.nlst($rwdaddresses_ftpdirectory) 
 		schfiles.each do |x|
 			#adjust the filters to the files you want to see...
-			if(!test(?d,x))
+			
 				if x =~ /nam/
-					lastslash = x.rindex('/')+1
-					newstring = x.slice!(lastslash..256)
-					localupdatefile = File.join($rwdaddresses_updatedirectory, "#{newstring}")
-					ftp.getbinaryfile("#{newstring}" , localupdatefile )
+					 newstring = x
+               localupdatefile = File.join($rwdaddresses_updatedirectory, "#{x}")
+               ftp.getbinaryfile("#{x}" , localupdatefile )
+					
 					@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + newstring + "\n"                               
 				end
-			end
+			
 
 		end
 		ftp.close

data/code/superant.com.rwdaddresses/jumplinkupdate.rb

@@ -0,0 +1,11 @@
+#jumplinkupdate 
+
+JumpLink.update(:RwdAddressesBackWindow=>"runrwdaddressessynbackwindow",
+:RwdAddressesConfiguration=>"runrwdaddressesmenu10",
+:ViewContactTab=>"runrwdaddressesmenu1",
+:EditContactRecord=>"runrwdaddressesmenu2",
+:ContactUtilitiesTab=>"runrwdaddressesmenu3",
+:AddressesSyncTab=>"runrwdaddressesmenu4"
+
+)
+$rwdjumplink +=["RwdAddressesBackWindow","ContactUtilitiesTab","EditContactRecord","ViewContactTab","RwdAddressesConfiguration","AddressesSyncTab"]

data/code/superant.com.rwdaddresses/test_cases.rb

@@ -0,0 +1,46 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdaddresses_all_tests 
+	print "in rwdaddresses all tests\n"
+  $testrwdaddressestestcase = TestSuite.new
+	test_runrwdaddresses
+end
+
+def test_runrwdaddresses
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdaddresses tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdaddressesmenu10   
+    assert_equal("viewaddressesconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdaddressesconfiguration
+    assert_equal("rwdaddresses.cnf",@a_adconfigurationfilename) ; 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
+end
+
+
+
+

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/configuration/rwdaddresses.dist

@@ -1,4 +1,4 @@
-##VERSION:1.02
+##VERSION:1.03
 #rwdaddresses contact book
 $photodelay = 1
 ##NAME:$addressfiles_directory:0
@@ -15,5 +15,5 @@ $rwdaddresses_ftppassword = "mypassword"
 $rwdaddresses_ftpdirectory = "/incoming/rwdnames/"
 ##NAME:$rwdaddresses_updatedirectory:0
 $rwdaddresses_updatedirectory = "updates"
-
-RwdAddressesVersion = "1.02"
+$testharnessarray += ["rwdaddresses_all_tests"]
+RwdAddressesVersion = "1.03"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.59
-$rwdapplicationidentity = "rwdaddresses contact book"
+##VERSION:1.63
+$rwdapplicationidentity = "rwdaddresses - Contact Book"
 

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.62
+##VERSION:1.64
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -11,5 +11,5 @@ LangDir = "lang"
   $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
-
-RwdTinkerVersion = "1.62"
+$rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
+RwdTinkerVersion = "1.64"

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.62
+##VERSION:1.63
 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=\"RwdAddresses - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindowselectionbegin/selectiontabbegin/selectiontabbegin.rwd

@@ -3,14 +3,9 @@ $rwdguivar=
       <tab name=\"selectiontab\" caption=#{Message[:selection_panel]}>
 
       <table>
-      <row> <p align=\"right\">Open a new window with callable applets you have loaded</row>
+      <row> <p align=\"right\">Open a new location </row>
 
      </table>
-      <horizontal>
-      
-      <button caption=#{Message[:rwdtinker_help_window]} action=\"runhelpwindow\"/>
-      
-      
-     </horizontal>"
+"
 
 

data/gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+    </horizontal>
+"

data/gui/tinkerbackwindows/superant.com.rwdaddressessyncbackwindow/94selectiontab.rwd

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