rwdschedule 0.98 → 0.99

data/code/01rwdcore/01rwdcore.rb

@@ -3,20 +3,20 @@
 # http://www.erikveen.dds.nl/rubywebdialogs/index.html 
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
 # This class is the top class for the RwdTinker application 
- 
+
 class RwdTinker  < RWDialog
- 
-  def main
-    @rwd_window = "main"
-    @result = "idle"
-    @display= "idle"
-    if TestNow 
-    
-      rwdtest_harness
-    end
-  end
-  
-  def inspect
-   "Rwdtinker Application " 
-   end
-  
+
+	def main
+		@rwd_window = "main"
+		@result = "idle"
+		@display= "idle"
+		if TestNow 
+
+			rwdtest_harness
+		end
+	end
+
+	def inspect
+		"#{$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/openhelpwindow.rb

@@ -1,31 +1,31 @@
 # this code is to call the help window
 def runhelpwindow
-  $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
-  
- if @rwd_window == "main"
-   if @rwd_tab == "documentsrwdtinkerone"
-     $help_topic = "documents_rwdtinker"
-   end
- 
-end
- 
-   if @rwd_window == "rwdtinkerhelpwindow"
-   puts "in help window processing"
-  else
-   $previouswindow = @rwd_window
-   $previoustab = @rwd_tab
-   end
-    
-   
-  @rwdhelptopic = $help_topic
-  @rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
-  @rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
-  @rwd_window = "rwdtinkerhelpwindow"
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+
+	if @rwd_window == "main"
+		if @rwd_tab == "documentsrwdtinkerone"
+			$help_topic = "documents_rwdtinker"
+		end
+
+	end
+
+	if @rwd_window == "rwdtinkerhelpwindow"
+		puts "in help window processing"
+	else
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+
+
+	@rwdhelptopic = $help_topic
+	@rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
+	@rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
+	@rwd_window = "rwdtinkerhelpwindow"
 end
- 
- def choosenewhelptopic(inffile)
-  $help_topic                 = inffile
-  runhelpwindow
-  end
+
+def choosenewhelptopic(inffile)
+	$help_topic                 = inffile
+	runhelpwindow
+end
 
 

data/code/01rwdcore/returntomain.rb

@@ -1,10 +1,10 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # 
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def returntomain
-   @rwd_window = "main"
-   @rwd_tab = "selectiontab"
-   end   
-   
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def returntomain
+	@rwd_window = "main"
+	@rwd_tab = "selectiontab"
+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/rwdtinkerversion.rb

@@ -1,15 +1,14 @@
 # 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 runrwdtinkerversion
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdTinker"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdTinkerVersion
-
-   end
-  
-  
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdtinkerversion
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdTinker"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+end
+
+

data/code/01rwdcore/rwdwindowreturn.rb

@@ -1,11 +1,9 @@
 # this code is to return to the window back from the help window
 def rwdwindowreturn
- 
 
-   @rwd_window = "#{$previouswindow}"
-   @rwd_tab = "#{$previoustab}"
-   end
- 
+	@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/test_cases.rb

@@ -1,126 +1,109 @@
 # test harness
-def rwdtinker_all_tests 
-print "in rwdtinker all tests\n"
-test_runrwdtinkerbackwindow
- end
 
+	
+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
-  
-runrwdtinkerbackwindow
 
-   raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
 
-   rescue  NotImplementedError
-  $stderr.print $!
-  
-  end
-  end
-  
+	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 test_choosenewhelptopic
-    raise NotImplementedError, 'Need to write test_choosenewhelptopic'
-  end
 
 
-  def test_listinstalledfiles
-    raise NotImplementedError, 'Need to write test_listinstalledfiles'
-  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'
 
-  
-  def test_listzipfilestoinstall
-    raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
-  end
-
-  def test_loadconfigurationrecord
-    raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
-  end
+	raise NotImplementedError, 'Need to write test_main'
 
-  def test_loadconfigurationvariables
-    raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
-  end
+	raise NotImplementedError, 'Need to write test_network_demon'
 
-  def test_loadgemspecrecord
-    raise NotImplementedError, 'Need to write test_loadgemspecrecord'
-  end
+	raise NotImplementedError, 'Need to write test_network_start'
 
-  def test_loadrubyslippersconfiguration
-    raise NotImplementedError, 'Need to write test_loadrubyslippersconfiguration'
-  end
+	raise NotImplementedError, 'Need to write test_openappletname'
 
-  def test_loadrubyslippersconfigurationvariables
-    raise NotImplementedError, 'Need to write test_loadrubyslippersconfigurationvariables'
-  end
+	raise NotImplementedError, 'Need to write test_removeapplet'
 
-  def test_main
-    raise NotImplementedError, 'Need to write test_main'
-  end
+	raise NotImplementedError, 'Need to write test_returntomain'
 
-  def test_network_demon
-    raise NotImplementedError, 'Need to write test_network_demon'
-  end
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
 
-  def test_network_start
-    raise NotImplementedError, 'Need to write test_network_start'
-  end
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
 
-  def test_openappletname
-    raise NotImplementedError, 'Need to write test_openappletname'
-  end
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
 
-  def test_removeapplet
-    raise NotImplementedError, 'Need to write test_removeapplet'
-  end
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
 
-  def test_returntomain
-    raise NotImplementedError, 'Need to write test_returntomain'
-  end
+	raise NotImplementedError, 'Need to write test_runviewplatform'
 
-  def test_runcontrolcommand
-    raise NotImplementedError, 'Need to write test_runcontrolcommand'
-  end
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
 
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
 
-  def test_runhelpwindow
-    raise NotImplementedError, 'Need to write test_runhelpwindow'
-  end
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+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

@@ -1,15 +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
- 
 
+	print "in test harness\n"
+  
+	$testharnessarray.each { |x| 
+		print "calling #{x}\n"
+		eval("#{x}")
 
+	}
+
+end