rwdshell 0.99 → 1.00

data/Readme.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/code/01rwdcore/01rwdcore.rb

@@ -14,9 +14,12 @@ class RwdTinker  < RWDialog
 
 			rwdtest_harness
 		end
+            showjumplinkoptions
+            setuptinkerdocuments
+            setuphelpaboutoptionspassive
 	end
 
 	def inspect
-		"Rwdtinker Application " 
+		"#{$rwdapplicationidentity}" 
 	end
 

data/code/01rwdcore/jumplinkcommand.rb

@@ -3,28 +3,24 @@ JumpLink = Hash.new { |hh, kk| hh[kk] = "ERROR: link not found: #{kk.inspect}.";
     locationlink = {
     :helpscreen=> "runhelpwindow",
     :tinkerbackwindow=>"runrwdtinkerbackwindow",
-    :returntomain=>"returntomain"
+    :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
+   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/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/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/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/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.rwdshell/loadconfigurationrecord.rb

@@ -13,16 +13,8 @@
         
         
 	      fd = File.open(fileName,"r")
-	      @a_rshellconfigline1=        fd.readline.chomp
-	      @a_rshellconfigline2 =  fd.readline.chomp
-        @a_rshellconfigline3 = fd.readline.chomp
-          @a_rshellconfigline4 = fd.readline.chomp
-        @a_rshellconfigline5 = fd.readline.chomp
-         @a_rshellconfigline6 = fd.readline.chomp 
-          @a_rshellconfigline7 =fd.readline.chomp
-          @a_rshellconfigline8 = fd.readline.chomp
-           @a_rshellconfigline9 = fd.readline.chomp
-	 
+	      @a_rshellconfiguration=        fd.read
+	     
 
 
         fd.close

data/code/superant.com.rwdshell/loadconfigurationvariables.rb

@@ -1,13 +1,13 @@
    # this method loads the on screen variables into the running class
-   def loadrubyslippersconfigurationvariables
+   def loadrwdshellconfigurationvariables
    
-   configfiletoload = File.join(ConfigurationDir,"rubyslippers.cnf")
+   configfiletoload = File.join(ConfigurationDir,"rwdshell.cnf")
    begin
     load configfiletoload
-    @extrarsconfigdatadisplay = ""
-@newrsconfigurationresult = "Config Variables loaded"
+    @extrarshellconfigdatadisplay = ""
+@newrshellconfigurationresult = "Config Variables loaded"
 rescue
  @extrarsconfigdatadisplay = ""
- @newrsconfigurationresult = "loading error"
+ @newrshellconfigurationresult = "loading error"
  end
   end

data/code/superant.com.rwdshell/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 rwdshellhelpaboutsetup
+return ["RwdShell","(c) 2004,2005 Steven Gibson ","Version #{RwdShellVersion}"]
+end
+
+  

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

@@ -1,16 +1,16 @@
   # this method adds a new address record
-  def saverubyslippersconfiguration
+  def saverwdshellconfiguration
    require 'fileutils'
    
-   newname = "rubyslippers.cnf" # grab the filename to create
-   newdata =@a_rsconfigline1.to_s + "\n" + @a_rsconfigline2.to_s + "\n" + @a_rsconfigline3.to_s + "\n" + @a_rsconfigline4.to_s + "\n" + @a_rsconfigline5.to_s + "\n" + @a_rsconfigline6.to_s + "\n" + @a_rsconfigline7.to_s + "\n" + @a_rsconfigline8.to_s + "\n" + @a_rsconfigline9.to_s + "\n"
+   newname = "rwdshell.cnf" # grab the filename to create
+   newdata =@a_rshellconfiguration
 	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )
         	fd = File.open(fileName,"w")
 	        fd.print(newdata) # save the record info to the file
 	        fd.close
-          @newconfigurationresult=newdata # show the record info in the browser
+          @newrshellconfigurationresult=newdata # show the record info in the browser
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!
         end # exception rescue

data/code/superant.com.rwdshell/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 rwdshell_all_tests 
+	print "in rwdshell all tests\n"
+  $testrwdshelltestcase = TestSuite.new
+	test_runrwdshell
+end
+
+def test_runrwdshell
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdshell tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdschedulemenu10   
+    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdscheduleconfiguration
+    assert_equal("rwdschedule.cnf",@a_schconfigurationfilename) ; 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
+
+
+
+