bigtinker 0.97 → 0.98

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

@@ -0,0 +1,45 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+  
+def rwdschedule_all_tests 
+	print "in rwdschedule all tests\n"
+  $testrwdscheduletestcase = TestSuite.new
+	test_runrwdschedule
+end
+
+def test_runrwdschedule
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtorrent tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdschedulemenu10   
+    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdscheduleconfiguration
+    assert_equal(RwdScheduleName,@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
+
+
+
+

data/code/superant.com.schedule/uploadrwdschedulefiles.rb

@@ -0,0 +1,30 @@
+def uploadrwdschedulefiles
+  require 'net/ftp'
+  BasicSocket.do_not_reverse_lookup = true 
+   @rwdscheduleftpdisplays = ""
+  begin
+    ftp = Net::FTP::new($rwdschedule_ftpsite)
+@rwdscheduleftpdisplay  = "files uploaded" + "\n" 
+    
+    fileListarray = Dir.new($rwdschedule_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+    if fileListarray
+      ftp.debug_mode = false
+      ftp.login($rwdschedule_ftplogin, $rwdschedule_ftppassword)
+      ftp.chdir($rwdschedule_ftpdirectory)
+      print "I'm in the directory ", ftp.pwd(), "\n"
+      fileListarray.each do |temp|
+             tmpfilenametoupload = File.join($rwdschedule_directory,temp)
+             ftp.puttextfile(tmpfilenametoupload  , temp)
+             @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + temp + "\n"   
+        end
+      end
+   ftp.close
+  
+rescue
+ 
+ if ftp
+ ftp.close
+end
+print "ftp error"
+end
+end

data/code/superant.com.schedule/viewevent.rb

@@ -0,0 +1,20 @@
+  def viewevent 
+   require 'fileutils'
+    $currenteventtext = "%s" % [@a_viewevent]
+	 
+        begin # exception trapped block
+       
+     
+	 fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+        
+	fd = File.open(fileName,"r")
+	 @displayevent = " "
+	while ! fd.eof?
+	 @displayevent = fd.read
+	 end
+	 fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.schedule/viewicsevent.rb

@@ -0,0 +1,20 @@
+  def viewicsevent 
+   require 'fileutils'
+    $currenticseventtext = "%s" % [@a_viewicsevent]
+	 
+        begin # exception trapped block
+       
+     
+	 fileName = $rwdschedule_directory + "/" + $currenticseventtext + ".ics"
+        
+	fd = File.open(fileName,"r")
+	 @displayicsevent = " "
+	while ! fd.eof?
+	 @displayicsevent = fd.read
+	 end
+	 fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.schedule/viewrwdschedulesconfiguration.rb

@@ -0,0 +1,21 @@
+  def viewrwdschedulesconfiguration 
+    require 'fileutils'
+    begin # exception trapped block
+    
+     Dir.chdir($progdir)
+     rwdschedulesconfigurationfile = File.join( "configuration", RwdScheduleName )
+     if  File.exist?(rwdschedulesconfigurationfile)
+       fd = File.open(rwdschedulesconfigurationfile,"r")
+       @rwdschedulesconfigurationtext = " "
+       while ! fd.eof?
+	        @rwdschedulesconfigurationtext = fd.read
+       end
+       fd.close
+     else
+	@rwdschedulesconfigurationtext  = "File error"
+     end
+    rescue SystemCallError, StandardError
+     $stderr.print "system call error: " + $!
+     @rwdschedulesconfigurationtext = "File error"
+    end # exception rescue
+  end

data/code/zz0applicationend/zz0end.rb

@@ -1,4 +1,5 @@
-
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
+# end of rwdtinker class
 
 end # end of rwdtinker class
 	

data/configuration/bigtinker.dist

@@ -1,3 +1,6 @@
-##VERSION: (0.97)
+##VERSION: (0.98)
+##NAME: ($tinkerdocumentsarray):(0.98)
+$tinkerdocumentsarray << "HowTo_BigTinker.txt"
 $tinkerhelpaboutarray += ["BigTinker"]
-BigTinkerVersion = "0.97"
+##NAME: (BigTinkerVersion):(0.98)
+BigTinkerVersion = "0.98"

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.82)
+##VERSION: (1.85)
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -10,6 +10,6 @@ LangDir = "lang"
     $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716"]   # remote control code not actived 2007
  $port = 7705
-##NAME: (RwdTinkerVersion):(1.82)
-RwdTinkerVersion = "1.82"
+##NAME: (RwdTinkerVersion):(1.85)
+RwdTinkerVersion = "1.85"
 

data/configuration/rwdwschedule.dist

@@ -0,0 +1,28 @@
+##VERSION: (1.07)
+##NAME: ($rwdschedule_directory):(1.06)
+$rwdschedule_directory = "rwd_files/schedules"
+##NAME: ($rwdschedule_ftpsite):(1.05)
+$rwdschedule_ftpsite = "ftp.site.com"
+##NAME: ($rwdschedule_ftplogin):(1.05)
+$rwdschedule_ftplogin = "login"
+##NAME: ($rwdschedule_ftppassword):(1.05)
+$rwdschedule_ftppassword = "anonymous"
+##NAME: ($rwdschedule_ftpdirectory):(1.05)
+$rwdschedule_ftpdirectory = "/incoming/rwdschedules"
+##NAME: ($rwdschedule_updatedirectory):(1.05)
+$rwdschedule_updatedirectory = "updates"
+$testharnessarray += ["rwdschedule_all_tests"]
+$tinkerhelpaboutarray += ["RwdSchedule"] 
+$tinkerdocumentsarray += ["HowTo_Schedule.txt"]
+##NAME: ($extras_directory):(1.06)
+$extras_directory = "lib"
+##NAME: (JumpLink):(1.05)
+JumpLink.update(:RwdScheduleConfiguration=>"runrwdschedulemenu10", :ScheduleEditRecord=>"runrwdschedulemenu1", :ScheduleICSwindow=>"runrwdscheduleicsbackwindow")
+##NAME: ($rwdjumplink):(1.05) 
+$rwdjumplink +=["ScheduleICSwindow","ScheduleEditRecord","RwdScheduleConfiguration"]
+##NAME: (DeleteScheduleConfig):(1.06)
+DeleteScheduleConfig = true
+##NAME: (RwdScheduleVersion):(1.07)
+RwdScheduleVersion = "1.07"
+##NAME: (RwdScheduleName):(1.05)
+RwdScheduleName = "rwdwschedule"

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.82)
+##VERSION: (1.85)
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME: ($zipslocation):(1.78)
 $zipslocation = "zips" # location of applets to add

data/gui/tinkerbackwindows/superant.com.rwdschedulebackwindow/1appname.rwd

@@ -0,0 +1,5 @@
+$rwdguivar=
+"
+<window name = \"rwdschedulesyncwindow\" title=\"Rwdschedules Sync Window\">
+
+<tabs>"

data/gui/tinkerbackwindows/superant.com.rwdschedulebackwindow/20downloadftp.rwd

@@ -0,0 +1,45 @@
+$rwdguivar=
+"
+	<tab name=\"rwdschedulesynctasks\" caption=\"Rwdschedule Sync Functions\">
+
+
+    <table>
+    <row> <p align=\"right\"> </row>
+    <row> <p align=\"right\">Upload schedule events to a ftp server to sync </row>
+    
+      <row> <p align=\"right\">Set your ftp details in the configuration file </row>
+   
+
+    </table>
+
+      <horizontal>
+       <button caption=\"Download schedule files from ftp site\" action=\"downloadrwdschedulefiles\"/>
+          <button caption=\"Upload schedule files to ftp site\" action=\"uploadrwdschedulefiles\"/>
+     
+    </horizontal>
+      <horizontal>
+       <button caption=\"Delete local update files\" action=\"deleterwdscheduleupdatefiles\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdschedule\"/>
+     </horizontal>
+          <p>%rwdscheduleftpdisplay%</p>
+
+    <table>
+      <row> <p align=\"right\"> </row>
+
+    </table>
+
+ 
+      <horizontal>
+       <button caption=\"Sync Local data with downloaded data\" action=\"syncrwdscheduledata\"/>
+      
+      
+    </horizontal>
+ 
+ 
+
+    <p>%rwdschedulesyncresult%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.rwdschedulebackwindow/67viewconfiguration.rwd

@@ -0,0 +1,29 @@
+$rwdguivar=
+"
+ <tab name=\"viewrwdscheduleconfiguration\" caption=\"RwdSchedule Configuration\">
+
+
+	
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can view or edit the rwdschedule configuration file here</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadrwdscheduleconfiguration\"/>
+      <button caption=\"Save Changes\" action=\"saverwdscheduleconfiguration\"/>
+     <button caption=\"Reload Variables\" action=\"loadrwdscheduleconfigurationvariables\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdschedule\"/>
+    </horizontal>
+   <table>
+
+       <p>  <textarea name=\"a_schconfigurationfile\"/>
+      
+    </table>
+    <p>%extraschconfigdatadisplay%</p>
+    <p>
+    <p>%newschconfigurationresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.rwdschedulebackwindow/70rwddiagnostics.rwd

@@ -0,0 +1,16 @@
+$rwdguivar=
+"
+	<tab name=\"diagnostictab\" caption=\"Diagnostic Tab\">
+
+
+    <horizontal>
+       <button caption=\"view platform\" action=\"runviewplatform\"/>
+           
+    </horizontal>
+
+    <p>%platformdisplay%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.rwdschedulebackwindow/m01menubegin.rwd

@@ -0,0 +1,18 @@
+$rwdguivar=
+"	
+      <tab name=\"rwdscheduleselectiontab\" caption=\"RwdSchedule Menu\">
+
+<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>
+</tab>
+"

data/gui/tinkerbackwindows/{superant.com.foldeditor/9end.rwd → superant.com.rwdschedulebackwindow/zvbackend.rwd}

@@ -1,6 +1,6 @@
-$rwdguivar=
-"
-</tabs>
-</window>"
-
-
+$rwdguivar=
+"    
+</tabs>
+</window>"
+
+

data/gui/tinkerbackwindows/superant.com.rwdschedules/1appname.rwd

@@ -0,0 +1,5 @@
+$rwdguivar=
+"
+<window name = \"rwdschedulewindow\" title=\"Rwdschedules Window\">
+
+<tabs>"

data/gui/tinkerbackwindows/superant.com.rwdschedules/gg0viewevent.rwd

@@ -0,0 +1,27 @@
+$rwdguivar=  
+	"
+	
+	<tab name=\"Vieweventlist\" caption=\"View Event\">
+
+    <table>
+    <row>View your event list and detail on this Tab</row>
+     <row> <p> </row> 
+      <row> <p align=\"right\">Event Date:</p>  <text name=\"a_viewevent\"/> </row>
+
+    </table>
+      <horizontal>
+      <button caption=\"Open Detail\" action=\"viewevent\"/>
+      <button caption=\"Archive Past Event\" action=\"archiveevent\"/>
+     <button caption=\"Help\" action=\"runhelpwindowrwdschedule\"/>
+      
+    </horizontal>
+
+    <p>%displayevent%</p>
+      <horizontal>
+      <button caption=\"List Events\" action=\"listeventdates\"/>
+      
+           
+    </horizontal>
+
+    <p>%%eventrecordsresult%%</p>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.rwdschedules/gl6editrecord.rwd

@@ -0,0 +1,56 @@
+$rwdguivar=
+"
+	<tab name=\"editeventrecordfile\" caption=\"Edit Event\">
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can create a new record here or edit one</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadeventrecord\"/>
+      <button caption=\"Save Changes\" action=\"saveeventrecord\"/>
+      <button caption=\"Export ics Record\" action=\"exporteventrecord\"/>
+
+      <button caption=\"Clear\" action=\"cleareventscreendisplay\"/>
+      
+     <button caption=\"Help\" action=\"runhelpwindowrwdschedule\"/>
+
+    
+    </horizontal>
+    <table>
+    <horizontal>
+     <row> <p align=\"right\">FileName:</p>  <text size=70 name=\"a_eventfilename\"/> </row>
+     </horizontal>
+      <horizontal>
+       <p align=\"right\">Year:</p>  <text size=10 name=\"a_eventyear\"/> 
+     <p align=\"right\"> Month:</p>  <text size=20 name=\"a_eventmonth\"/> 
+      <p align=\"right\">Day:</p>  <text size=10 name=\"a_eventday\"/> 
+        
+        </horizontal>
+        </table>
+        <table>
+              <horizontal>
+       <p align=\"right\">Begin Hour:</p>  <text size=20 name=\"a_eventbeginhour\"/> 
+       <p align=\"right\">Begin Minute:</p>  <text size=20 name=\"a_eventbeginminute\"/> 
+      </horizontal>     
+          <horizontal>
+       <p align=\"right\">End Hour:</p>  <text size=20 name=\"a_eventendhour\"/> 
+       <p align=\"right\">End Minute:</p>  <text size=20 name=\"a_eventendminute\"/> 
+      </horizontal>     
+      </table>
+      <table>
+     <row> <p align=\"right\">Summary:</p>  <text size=70 name=\"a_eventsummary\"/> </row>
+      <row> <p align=\"right\">Description:</p>  <text size=70 name=\"a_eventdescription\"/> </row>
+      <row> <p align=\"right\">Location:</p>  <text size=70 name=\"a_eventlocation\"/> </row>
+ <horizontal>
+      <button caption=\"Save Changes\" action=\"saveeventrecord\"/>
+
+</horizontal>   
+    </table>
+    <p>%extraeventdatadisplay%</p>
+    <p>
+    <p>%neweventresult%</p>
+     
+      
+
+	</tab>"
+