bigtinker 0.97 → 0.98

data/code/01rwdcore/01rwdcore.rb

@@ -1,8 +1,5 @@
 # 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
-# This class is the top class for the RwdTinker application 
+
 
 $DEBUG=false
 $VERBOSE=false
@@ -15,8 +12,7 @@ class RwdTinker  < RWDialog
 
 		@display= "idle"
 		if TestNow 
-
-			rwdtest_harness
+                     rwdtest_harness
 		end
             showjumplinkoptions
             setuptinkerdocuments
@@ -27,3 +23,7 @@ class RwdTinker  < RWDialog
 		"#{$rwdapplicationidentity}" 
 	end
 
+
+# for original RWD work see: 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 

data/code/01rwdcore/02helptexthashbegin.rb

@@ -1,14 +1,16 @@
-  
+  # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 
- Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Message-ID Unknown: #{kk.inspect}."; hh[kk] }
     helpmessage = {
-    :general_help          => "You can work with Applets:  go to 'Selection tab', <br>
-                                  On that back screen you will find:<br>
-                                  List Applets:  you can see and delete installed applets<br>
-                                  List Zips: you can see lists of applets that you can install<br>
-                                  Edit Configuration: You can view the rwdtinker configuration and change it<br>
-                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with<br>
-      "
-
+    :tinker_help          => "rwdtinker is the core application for the
+                       rwdapplications. "
+      
     }
-    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    
+
+=begin
+    this is to set up the help  buttons 
+    this uses a hash
+=end
+    

data/code/01rwdcore/jumplinkcommand.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind message passing socket to rwdtinker application
 
     locationlink = {
@@ -10,11 +11,20 @@
     locationlink.each { |kk, vv| JumpLink[kk] = vv }
     
 def runjumplinkcommand
-if  @a_jumplinkinput
-runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
+	
+	if TabHash.has_key?  JumpLink[:"#{@a_jumplinkinput}"].intern
+		
+		
+		@rwd_window = TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		@rwd_tab = JumpLink[:"#{@a_jumplinkinput}"]
+		
+	else
+		
+                            runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
 
-self.send(runjumplocation)
- end
+                                 self.send(runjumplocation)                         
+         end
+	 
    end
 
 

data/code/01rwdcore/openhelpwindow.rb

@@ -1,4 +1,7 @@
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to call the help window
+# for RwdTinker core
+
 def runhelpwindow
 	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
@@ -29,3 +32,7 @@ def choosenewhelptopic(inffile)
 end
 
 
+
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to call the help window
+# for RwdTinker core

data/code/01rwdcore/runhelpabout.rb

@@ -7,4 +7,9 @@
    @rwd_window = "rwdtinkerhelpwindow"
   
    end 
-   
+
+=begin
+This def runtinkerhelpabout
+is to call the rwdtinkerhelpwindow
+=end
+

data/code/01rwdcore/runtab.rb

@@ -0,0 +1,15 @@
+# Application RwdTinker orginally (c) 2004-2008 Steven Gibson under GPL. 
+#  rwdtinker application
+
+
+def runtablinkcommand
+
+		$stderr.puts TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		
+		@rwd_windows = "tinkerbackwindow"
+		@rwd_tab = "selectiontab"
+	
+   end
+
+
+

data/code/01rwdcore/selectiontab.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to return to the window back from the help window
+
 def runselectiontab
 
 	

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # help about option setup for rwdtinker application
+
 def setuphelpaboutoptions 
 
   @rwd_window = "tinkerhelpabout"

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind document names  to rwdtinker document tab
 def setuptinkerdocuments 
 

data/code/01rwdcore/test_cases.rb

@@ -1,71 +1,120 @@
 # 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
-
 
-	begin
-  testasserts = 0
-  print "Starting rwdtinker tests!\n"
+def rwdtinker_all_tests 
+	$rwdtinkerlog.info "in rwdtinker all tests"
+	
+    $rwdtinkerlog.info "Starting rwdtinker tests!\n"
 		runrwdtinkerbackwindow
-    
-    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
-     runselectiontab
-     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+
+    if  "tinkerbackwindow" == @rwd_window
+       $testasserts += 1 
+       else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerbackwindow"
+     end
+     
+  runselectiontab
+
+     if "selectiontab" == @rwd_tab
+	     $testasserts += 1
+	       else
+	     $testfailures += 1
+	     $testerrorarray << "selectiontab"
+     end
+         
     showjumplinkoptions
     @a_jumplinkinput = "returntomain"
    runjumplinkcommand
-    assert_equal("main",@rwd_window) ; testasserts += 1 
+    if "main"  == @rwd_window
+  $testasserts += 1
+  	       else
+	     $testfailures += 1
+	     $testerrorarray << "returntomain"
+     end
 		@a_jumplinkinput = "helpscreen"
     runjumplinkcommand 
     
-     assert_equal("rwdtinkerhelpwindow",@rwd_window)  ; testasserts += 1
-     returntomain
-     assert_equal("main",@rwd_window)  ; testasserts += 1
+     if  "rwdtinkerhelpwindow" == @rwd_window
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "helpscreen"
+     end
+
      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"
+     if "documentsrwdtinkerone" == @rwd_tab
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "runtinkerdocuments"
+     end
 
-	rescue  NotImplementedError, Exception
-		$stderr.print $!
 
-	end
-  
-end
+    runrwdtinkerwin2version
+      if "applicationversion" == @rwd_window
+	      $testasserts += 1
+	                  else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerwin2version"
+     end
 
+  
+    runremotezipsinstall
+     if "superantcomremotezipsinstall" ==  @rwd_tab
+	     $testasserts += 1     
+	     else
+	     $testfailures += 1
+	     $testerrorarray << "runremotezipsinstall"
+     end
 
+    runeditconfiguration   
+    if "editconfigurationfile" == @rwd_tab
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "runeditconfiguration"
+     end
+ runhelpwindowtinkerwin2
+ 
+  if  @rwd_tab == "editconfigurationfile"  && @rwdhelpdataoutput.include?("Remember to reload the configuration variables")
+   $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "applet_tinkerbackeditconfiguration"
+     end
+     
+     
+   rwd_jump("rwdlogfiletab", "rwd_tab_rwdlogfiletab")
+ 
+     if  @rwd_tab == "rwdlogfiletab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "rwdlogfiletab"
+     end
+     
+    rwd_jump( "diagnostictab")
+         if  @rwd_tab == "diagnostictab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "diagnostictab"
+     end
+ end
+ 
+ def rwd_jump(tab, go="")
+	 @rwd_tab = tab
+  @rwd_action = go
+  end
+ 
+ def teststobedown  
+          	runrwdtinkerbackwindow
+        @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
 
-def teststobedown
  runtinkerhelpabout
           assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
 	raise NotImplementedError, 'Need to write test_choosenewhelptopic'

data/code/01rwdcore/test_harness.rb

@@ -2,12 +2,19 @@
 def rwdtest_harness
 
 	print "in test harness\n"
-  
+       $testasserts = 0
+       $testerrorarray = [""]
+        $testfailures = 0 
+ 	
 	$testharnessarray.each { |x| 
 		print "calling #{x}\n"
 		eval("#{x}")
 
 	}
+	$rwdtinkerlog.info "successes = #{$testasserts}"
+	$rwdtinkerlog.info "failures  =  #{$testfailures}"
+	$rwdtinkerlog.info  "failed methods #{$testerrorarray}" 
+	$rwdtinkerlog.info  "tested methods #{$testharnessarray}"
 
 end
 

data/code/01rwdcore/uploadreturns.rb

@@ -1,3 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# return information to the author
+
 def uploadreturnsfile
 	require 'net/ftp'
 	BasicSocket.do_not_reverse_lookup = true 

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -1,3 +1,5 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
 def viewphoto
 	@rwd_window = "photo"
 end

data/code/superant.com.rwdcalendar/gh9calendar.rb

@@ -0,0 +1,40 @@
+ require 'fileutils'
+ 
+ def showmonth
+      require 'date'
+    begin      # begin rescue monitored block	
+    cal_path = File.join( $extras_directory, 'cal' )   
+     require cal_path
+      to = Date.today
+       tempyear ||= to.year
+       tempmonth ||= to.mon
+    if @a_year.to_i > 0 and @a_month.to_i > 1
+       tempyear = @a_year.to_i
+      tempmonth = @a_month.to_i
+          
+       end
+ tempweekdaystring = " "
+     
+     cal = Cal.new
+     calendardata = cal.print(tempyear,tempmonth)
+     @showcalendartitle = calendardata[0]
+     @showcalendarweektitles = calendardata[1]
+     tempweekdaystring = calendardata[2].tr(' ', '.')
+     @showmonthresult1 = tempweekdaystring
+          
+        tempweekdaystring = calendardata[3].tr(' ', '.')
+      @showmonthresult2 = tempweekdaystring
+       tempweekdaystring = calendardata[4].tr(' ', '.')
+      @showmonthresult3 =  tempweekdaystring 
+       tempweekdaystring = calendardata[5].tr(' ', '.')
+      @showmonthresult4 =  tempweekdaystring 
+     tempweekdaystring = calendardata[6].tr(' ', '.')
+      @showmonthresult5 =  tempweekdaystring 
+         tempweekdaystring = calendardata[7].tr(' ', '.')
+      @showmonthresult6 =  tempweekdaystring 
+   rescue # process exeption
+     @showmonthresult = "\n" + "error in eval"
+   end # end of rescue process  # of rescue monitored block        
+
+  end
+  

data/code/superant.com.rwdcalendar/helptexthashrwdschedule.rb

@@ -0,0 +1,14 @@
+  
+
+ Helptext.update( 
+ :calendar_help => "On the 'Show Month' tab
+   You can see the current month or
+   enter a year and month
+   for example:
+    Year: 2005
+    Month: 2
+    Click on 'show month'
+    
+    It will display one month
+      "
+)

data/code/superant.com.rwdcalendar/openhelpwindowrwdschedule.rb

@@ -0,0 +1,17 @@
+# this code is to call the help window
+def runhelpwindowrwdcalendar
+
+     $help_topic = "calendar_help"
+    if @rwd_tab  == "calendar"
+    $help_topic = "calendar_help"
+    end
+   $helptopicsarray =  $helptopicsarray | ["calendar_help"]
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.rwdtinkerbackwindow/changelocale.rb

@@ -0,0 +1,84 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004, 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+def  runlocalechangercommand
+	
+	$rwdtinkerlog.info "preparing to restart gui"
+	
+	  $lang = @a_localechooseinput  # pick the language of choice
+	  
+tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+
+  # build the English Language hash file from the parts
+
+   
+  require 'lib/rwdtinker/rwdlangdir'
+ 
+  tempdoc = " "
+  #go get all the po language file files in english
+    tempdoc = RwdtinkerTools.findlanguagefiles(LangDir,"en")
+
+  #writes the contents of doc into the  languagehashvariable 
+  languagehashvariable  =  tempdoc 
+
+  # END of en Lang building
+  tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+    
+  
+  
+   # Go get all the po files for the language of choice
+    tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
+    # the contents of doc into the variable
+    languagehashvariable =  languagehashvariable   + tempdoc 
+
+    Dir.chdir($progdir) # change back to top program directory
+    
+    # lets read those po files, first english then the chosen language
+    temp = eval(   languagehashvariable )
+
+  
+
+
+  # build the actual GUI from the gui parts
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+
+  # gui variable is done
+  guiRWD = ""
+  $rwd_gui_tinker =  tempdoc
+  
+   $rwdtinkerlog.info "restarting gui now"
+   
+RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+end
+
+