rwdmovies 0.94 → 0.95

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.rwdmovies/runrwdmoviesconfiguration.rb

@@ -0,0 +1,9 @@
+# Application Rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdmoviesconfiguration
+	@rwd_window = "main"
+	@rwd_tab= "viewrwdmoviesconfiguration"
+end   
+

data/code/superant.com.rwdmovies/runrwdmoviestab.rb

@@ -0,0 +1,9 @@
+# Application Rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdmoviestab
+	@rwd_window = "main"
+	@rwd_tab= "viewrwdmovielist"
+end   
+

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

@@ -0,0 +1,48 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdmovies_all_tests 
+	print "in rwdmovies all tests\n"
+  $testrwdmoviestestcase = TestSuite.new
+	test_runrwdmovies
+end
+
+def test_runrwdmovies
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdmovies tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdmoviestab   
+     assert_equal("viewrwdmovielist",@rwd_tab) ; testasserts += 1
+    runrwdmoviesconfiguration
+    assert_equal("viewrwdmoviesconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdmoviesconfiguration
+    assert_equal("rwdmovies.cnf",@a_movconfigurationfilename) ; 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/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.62
-$rwdapplicationidentity = "rwdtinker main application"
+##VERSION:1.63
+$rwdapplicationidentity = "rwdmovies application"
 

data/configuration/rwdmovies.dist

@@ -1,10 +1,10 @@
-##VERSION:0.94
+##VERSION:0.95
 ##NAME:$rwdmovies_directory:0
 $rwdmovies_directory="movies"
 ##NAME:$tmpmoviepicture_directory:0
 $tmpmoviepicture_directory = "/tmp"
-
-
+##NAME:$testharnessarray:0
+$testharnessarray += ["rwdmovies_all_tests"]
 DEV_TOKEN     = "D23XFCO2UKJY82"    # your development token
 
-RwdMoviesVersion = "0.94"
+RwdMoviesVersion = "0.95"

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=\"RwdMovies - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindow0/superant.com.rwdmovies/6editrecord.rwd

@@ -15,15 +15,15 @@ $rwdguivar=
     
     </horizontal>
 <table>
-      <row> <p align=\"right\">FileName:</p>  <text name=\"a_moviefilename\"/> </row>
-      <row> <p align=\"right\">Movie Name:</p>  <text name=\"a_moviename\"/> </row>
-      <row> <p align=\"right\">Director:</p>  <text name=\"a_moviedirector\"/> </row>
-      <row> <p align=\"right\">Actors:</p>  <text name=\"a_movieactors\"/> </row>
-      <row> <p align=\"right\">Year:</p>  <text name=\"a_movieyear\"/> </row>
-      <row> <p align=\"right\">Studio:</p>  <text name=\"a_moviestudio\"/> </row>
-      <row> <p align=\"right\">Comment1:</p>  <text name=\"a_moviecomment1\"/> </row>
-      <row> <p align=\"right\">Comment2:</p>  <text name=\"a_moviecomment2\"/> </row>
-      <row> <p align=\"right\">Comment3:</p>  <text name=\"a_moviecomment3\"/> </row>
+      <row> <p align=\"right\">FileName:</p>  <text size=60 name=\"a_moviefilename\"/> </row>
+      <row> <p align=\"right\">Movie Name:</p>  <text size=70 name=\"a_moviename\"/> </row>
+      <row> <p align=\"right\">Director:</p>  <text size=70 name=\"a_moviedirector\"/> </row>
+      <row> <p align=\"right\">Actors:</p>  <text size=70 name=\"a_movieactors\"/> </row>
+      <row> <p align=\"right\">Year:</p>  <text size=70 name=\"a_movieyear\"/> </row>
+      <row> <p align=\"right\">Studio:</p>  <text size=70 name=\"a_moviestudio\"/> </row>
+      <row> <p align=\"right\">Comment1:</p>  <text size=70  name=\"a_moviecomment1\"/> </row>
+      <row> <p align=\"right\">Comment2:</p>  <text size=70 name=\"a_moviecomment2\"/> </row>
+      <row> <p align=\"right\">Comment3:</p>  <text size=70 name=\"a_moviecomment3\"/> </row>
     </table>
     <p>%extramoviedatadisplay%</p>
     <p>

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>
+"