rwddemo 0.8 → 0.90

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

@@ -0,0 +1,42 @@
+# this code is to call the help window
+def runhelpwindowtinkerwin2
+ 
+  # $helptopicsarray =  $helptopicsarray | [""]
+
+        $help_topic = "tinkerwin2_help"
+   if @rwd_tab == "rwdzipslister"
+     $help_topic = "tinkerwin2_help"
+   end
+  
+    if @rwd_tab == "filelister" 
+       $help_topic = "applet_viewing"
+   
+    end
+      if @rwd_tab == "zipslister" 
+       $help_topic = "applet_installation"
+       
+    end
+     if @rwd_tab == "editconfigurationfile"
+       $help_topic = "applet_tinkerbackeditconfiguration"
+      
+    end
+     if @rwd_tab == "rwdremotecontrol"
+      $help_topic = "remote_control"
+      
+      end
+       if @rwd_tab == "superantcomremotezipsinstall"
+       $help_topic = "remotegemapplet_install"
+       end
+          
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+      else
+           $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -0,0 +1,24 @@
+# This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
+  
+def superantcomremotegemlist
+  gemcommandoption = "search --remote "
+    gemfilename = "rwdzip"
+    commandtext = "gem search --remote rwdzip"  
+    commandtemp = $xpcommand  + commandtext
+    begin # exception trapped block
+         
+     tempremotegemappletsresult = `#{commandtemp}  2>&1`
+     @superantcomremotegemappletsfullresult = tempremotegemappletsresult
+     fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+    
+  @superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+      rescue SystemCallError, StandardError
+     @superantcomremotegemappletsresult  = "system call error: " + $!
+    end # exception rescue
+end
+ 
+def superantcomremotegemappletdirsname(inffile)
+  applet                = inffile
+  @superantcominstallremoteappletinput       = applet
+  
+end

data/code/{xa5rwdtinkercallable/callable.rb → superant.com.rwdtinkerbackwindow/runrwdtinkerbackwindow.rb}

@@ -4,10 +4,9 @@
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
   
   # call the rwdtinker helpwindow  
-  def runrwdtinkerhelpwindow
-   @rwd_window = "rwdtinkerhelpwindow"
-   end
+
   def runrwdtinkerbackwindow
    @rwd_window = "tinkerbackwindow"
+   @rwd_tab = "rwdzipslister"
    end   
    

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/saveconfigurationrecord.rb

@@ -1,4 +1,4 @@
-  # this method adds a new address record
+  # this method saves the configuration record
   def saveconfigurationrecord 
    require 'fileutils'
    if @a_configurationfilename

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

@@ -0,0 +1,21 @@
+  def viewappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     fileName = File.join($zipslocation,fullname)
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fileName)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,21 @@
+  def viewgemappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fullname)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

data/configuration/{rwdplayscripts.cnf → playscripts.cnf}

@@ -1,4 +1,2 @@
 
-"
 $shellscript_directory = "scripts"
-RwdShellVersion = "0.92"

data/configuration/rwdapplicationidentity.cnf

@@ -0,0 +1,3 @@
+
+$rwdapplicationidentity = "rwdtinker main application"
+

data/configuration/rwdcalc.cnf

@@ -1,3 +1,4 @@
 
 $frunningtotal = ""
 $runningtotal = ""
+$calcscript_directory = "scripts"

data/configuration/rwdcalendar.cnf

@@ -1,27 +1,4 @@
-
-$extras_directory = "extras"
-
-
-class LanguageTextrwdcalendar
-
- def locale(languagecode,wordtotranslate)
-
-  case languagecode
-
-   when "en"
-    case wordtotranslate
-     when "year"
-      return "year"
-     when "month"
-      return "month"   
-    end
-   when "nl"
-    case wordtotranslate
-     when "year"
-      return "jaar"
-     when "month"
-      return "maand"   
-    end
-  end
- end
-end
+
+$extras_directory = "extras"
+
+

data/configuration/rwdcalendarversion.cnf

@@ -0,0 +1,4 @@
+
+
+
+

data/configuration/rwdshellversion.cnf

@@ -0,0 +1,2 @@
+
+RwdShellVersion = "0.95"

data/configuration/rwdtinker.cnf

@@ -7,6 +7,10 @@ RWDFile	= "rwdtinker.rwd"
 LangDir = "lang"
 TempLangHashFile = LangDir + "/" + "templangfile.rb"
 LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb" 
- CodeDir = "code"
- GuiDir = "gui" 
+ CodeDir = "code" 
+ GuiDir = "gui"  
+  $help_topic = "general_help"
+   $helptopicsarray = [ "general_help","network_help"]
+  $prevouswindow ="main" 
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705

data/configuration/rwdtinkerversion.cnf

@@ -1,2 +1,2 @@
 
-RwdTinkerVersion = "1.44"
+RwdTinkerVersion = "1.54"

data/configuration/tinkerwin2variables.cnf

@@ -1,8 +1,12 @@
 
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 $zipslocation = "zips" # location of applets to add
-$unzipprogram = "unzip -o " 
-
-
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+ $xpcommand = " "  # Linux machines
+# $xpcommand =  "cmd /C "  # XP machines with cmd shell
+ $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+# $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
 
 

data/configuration/tinkerwin2version.cnf

@@ -1,3 +1,3 @@
 
-RwdTinkerWin2Version = "0.7"
+RwdTinkerWin2Version = "0.8"
 

data/ev/rwd.rb

@@ -267,7 +267,7 @@ class OpenTag
       template	= $rwd_html_PDA_1	if pda
 
       res <<(template(template, args))
-    when "p"		then res << "<p #{align}>"
+    when "p"		then     res << "<p #{align} > "
     when "pre"		then res << "<pre #{align}>"
     when "big"		then res << "<p #{align}><big>"
     when "small"	then res << "<p #{align}><small>"
@@ -308,9 +308,10 @@ class OpenTag
     when "hidden"	then res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='hidden'>"
     when "text"
       maxlength	= ""
-      maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
+       maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
       size	= ""
-      size	= "size='%s'" % 10			if pda
+      size = "size='%s'" % @args["size"] if @args.include?("size")
+        size	= "size='%s'" % 10			if pda
       res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='text' #{maxlength} #{size}>"
       oneormorefields	<< "true"
     when "textarea"

data/extras/cal.rb

@@ -0,0 +1,158 @@
+#! /usr/bin/env ruby
+
+# cal.rb: Written by Tadayoshi Funaba 1998-2004
+# $Id: cal.rb,v 2.8 2004-09-25 12:50:10+09 tadf Exp $
+
+require 'date'
+
+class Cal
+
+  START =
+    {
+    'cn' => true,    # China
+    'de' => 2342032, # Germany (protestant states)
+    'dk' => 2342032, # Denmark
+    'en' => 2361222, # English
+    'es' => 2299161, # Spain
+    'fi' => 2361390, # Finland
+    'fr' => 2299227, # France
+    'gb' => 2361222, # United Kingdom
+    'gr' => 2423868, # Greece
+    'hu' => 2301004, # Hungary
+    'it' => 2299161, # Italy
+    'jp' => true,    # Japan
+    'no' => 2342032, # Norway
+    'nl' => 2361222,
+    'pl' => 2299161, # Poland
+    'pt' => 2299161, # Portugal
+    'ru' => 2421639, # Russia
+    'se' => 2361390, # Sweden
+    'us' => 2361222, # United States
+    'os' => false,   # (old style)
+    'ns' => true     # (new style)
+  }
+
+  DEFAULT_START = 'gb'
+
+  def initialize
+    opt_j; opt_m; opt_t; opt_y; opt_c
+  end
+
+  def opt_j(flag=false) @opt_j = flag end
+  def opt_m(flag=false) @opt_m = flag end
+  def opt_t(flag=false) @opt_t = flag end
+  def opt_y(flag=false) @opt_y = flag end
+
+  def opt_c(arg=DEFAULT_START) @start = START[arg] end
+
+  def set_params
+    @dw = if @opt_j then 3 else 2 end
+    @mw = (@dw + 1) * 7 - 1
+    @mn = if @opt_j then 2 else 3 end
+    @tw = (@mw + 2) * @mn - 2
+    @k  = if @opt_m then 1 else 0 end
+    @da = if @opt_j then :yday else :mday end
+  end
+  
+ 
+
+  def nl_pict(y, m)
+    d = (1..31).detect{|d| Date.valid_date?(y, m, d, @start)}
+    fi = Date.new(y, m, d, @start)
+    fi -= (fi.jd - @k + 1) % 7
+
+    ve  = (fi..fi +  6).collect{|cu|
+      %w(zo ma di wo do vr za)[cu.wday]
+    }
+    ve += (fi..fi + 41).collect{|cu|
+      if cu.mon == m then cu.send(@da) end.to_s
+    }
+
+    ve = ve.collect{|e| e.rjust(@dw)}
+
+    gr = group(ve, 7)
+    gr = trans(gr) if @opt_t
+    ta = gr.collect{|xs| xs.join('  ')}
+
+    ca = %w(januari februari  maart  april mei juni juli
+	    augustus september oktober november december)[m - 1]
+    ca = ca + ' ' + y.to_s if not @opt_y
+    ca = ca.center(@mw)
+
+    ta.unshift(ca)
+  end
+
+
+  def en_pict(y, m)
+    d = (1..31).detect{|d| Date.valid_date?(y, m, d, @start)}
+    fi = Date.new(y, m, d, @start)
+    fi -= (fi.jd - @k + 1) % 7
+
+    ve  = (fi..fi +  6).collect{|cu|
+      %w(Su Mo Tu We Th Fr Sa)[cu.wday]
+    }
+    ve += (fi..fi + 41).collect{|cu|
+      if cu.mon == m then cu.send(@da) end.to_s
+    }
+
+    ve = ve.collect{|e| e.rjust(@dw)}
+
+    gr = group(ve, 7)
+    gr = trans(gr) if @opt_t
+    ta = gr.collect{|xs| xs.join('  ')}
+
+    ca = %w(January February March April May June July
+	    August September October November December)[m - 1]
+    ca = ca + ' ' + y.to_s if not @opt_y
+    ca = ca  #.center(@mw)
+
+    ta.unshift(ca)
+  end
+
+  def group(xs, n)
+    (0..xs.size / n - 1).collect{|i| xs[i * n, n]}
+  end
+
+  def trans(xs)
+    (0..xs[0].size - 1).collect{|i| xs.collect{|x| x[i]}}
+  end
+
+  def stack(xs)
+    if xs.empty? then [] else xs[0] + stack(xs[1..-1]) end
+  end
+
+  def block(xs, n)
+    stack(group(xs, n).collect{|ys| trans(ys).collect{|zs| zs.join('  ')}})
+  end
+
+  def unlines(xs)
+    xs.collect{|x| x + "\n"}.join
+  end
+
+  def monthly(y, m)
+   if $lang == "nl"
+    return nl_pict(y,m)
+    end
+    return en_pict(y,m)
+    #unlines(pict(y, m))
+  end
+
+  def addmon(y, m, n)
+    y, m = (y * 12 + (m - 1) + n).divmod(12)
+    return y, m + 1
+  end
+
+  def yearly(y)
+    y.to_s.center(@tw) + "\n\n" +
+      unlines(block((0..11).collect{|n| pict(*addmon(y, 1, n))}, @mn)) + "\n"
+  end
+
+  def print(y, m)
+    set_params
+    if @opt_y then yearly(y) else monthly(y, m) end
+  end
+
+end
+
+
+

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"Tinker - RubyWebDialogs\">
+  <window name=\"main\" title=\"rwddemo for Tinker - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindow0/superant.com.tinkercalendar/hl9calendar.rwd

@@ -1,20 +1,27 @@
-$rwdguivar=
-"
-	<tab name=\"calendar\" caption=\"Show Month\">
-    <table>
-      <row> <p align=\"right\">Year:</p>  <text name=\"a_year\"/> </row>
-<row> <p align=\"right\">Month:</p>  <text name=\"a_month\"/> </row>
-    </table>
-    <p>%showmonthresult%</p>
-      <horizontal>
-      
-      <button caption=\"ShowMonth\" action=\"showmonth\"/>
-
-      <button caption=\"Cancel\" action=\"main\"/>
-
-    
-    </horizontal>
-      
-
-	</tab>"
-
+$rwdguivar=
+"
+	<tab name=\"calendar\" caption=#{Message[:show_month]}>
+    <table>
+      <row> <p align=\"right\">#{Message[:year]}</p>  <text name=\"a_year\"/> </row>
+<row> <p align=\"right\">#{Message[:month]}</p>  <text name=\"a_month\"/> </row>
+    </table>
+        <horizontal>
+      <button caption=#{Message[:show_month]} action=\"showmonth\"/>
+
+     <button caption=\"Help\" action=\"runhelpwindowrwdschedule\"/>
+  
+    </horizontal>
+     <p> %showcalendartitle%</p>
+     <p>%showcalendarweektitles%</p>
+     <p>%%showmonthresult1%%</p>
+    <p>%%showmonthresult2%%</p>
+  <p>%%showmonthresult3%%</p>
+   <p>%%showmonthresult4%%</p>
+   <p>%%showmonthresult5%%</p>
+<p>%%showmonthresult6%%</p>     
+      
+    
+  
+
+	</tab>"
+

data/gui/frontwindowselectionbegin/selectiontabbegin/selectiontabbegin.rwd

@@ -8,7 +8,7 @@ $rwdguivar=
      </table>
       <horizontal>
       
-      <button caption=#{Message[:rwdtinker_help_window]} action=\"runrwdtinkerhelpwindow\"/>
+      <button caption=#{Message[:rwdtinker_help_window]} action=\"runhelpwindow\"/>
       
       
      </horizontal>"

data/gui/frontwindowselections/superant.com.rwdshellselectiontab/rwdshellbackwindowselectiontab.rwd

@@ -0,0 +1,12 @@
+$rwdguivar=
+"	
+     <row> <p></row>
+
+      <horizontal>
+      
+      <button caption=\"rwdshell Back Window\" action=\"runrwdshellbackwindow\"/>
+      
+      
+    </horizontal>"
+
+

data/gui/frontwindowtdocumentbegin/superant.com.documentsbegin/tt0documentbegin.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-  <tab name=\"one\" caption=#{Message[:documents]}>
+  <tab name=\"documentsrwdtinkerone\" caption=#{Message[:documents]}>
     <horizontal>
     <table>"
 	

data/gui/frontwindowtdocuments/uu6rwdcalcdocument/uu5documents.rwd

@@ -0,0 +1,6 @@
+$rwdguivar=
+"
+      <row> <p align=\"left\"> 
+      <a href=HowTo_RwdCalc.txt>Howto_RwdCalc.txt</a></p></row>"
+     
+	

data/gui/frontwindowtdocumentzend/superant.com.documentsend/ww0documentend.rwd

@@ -3,5 +3,10 @@ $rwdguivar=
  <row> <p align=\"left\"><a href=.>Spawn a clone Dialog window</a></p></row>
     </table>
         </horizontal>
+         <horizontal>
+       
+      <button caption=\"Help\" action=\"runhelpwindow\"/>
+      
+    </horizontal>
 	</tab>"
 	

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

@@ -1,4 +1,4 @@
 $rwdguivar=
 "
-<window name = \"rwdcalcwindow\" title=\"rwdcalc  \">
+<window name = \"rwdcalcwindow\" title=\"rwd Calc  \">
 <tabs>"

data/gui/tinkerbackwindows/superant.com.rwdcalc/35mathcommands.rwd

@@ -0,0 +1,25 @@
+$rwdguivar=
+"
+	<tab name=\"mathcommands\" caption=\"Math Tools\">
+      <horizontal>
+    <p>Input A:  <text name=\"a_mathtoola\"/> </p>  
+    <p>Input B:  <text name=\"a_mathtoolb\"/> </p>  
+    </horizontal>
+    <horizontal>
+       <button caption=\"Help\" action=\"runhelpwindowrwdcalc\"/>
+    </horizontal>
+<p>%viewgemcommandresult%</p>
+<horizontal>
+<button caption=\"Show Math Command Choices\" action=\"showmathcommandoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_mathcommandinput\">  %%mathcommandoptions%% </select>
+
+   </table>
+      <horizontal>
+      <button caption=\"Run Command\" action=\"runmathcommand\"/>
+      
+    </horizontal>
+  <p>%mathcommandresult%</p>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.rwdcalc/44listplayscripts.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"
+<tab name=\"calcscriptlister\" caption=\"List\\Run Scripts\">  
+	  <horizontal>
+	 <text name=\"a_calcnumx\"/> 
+   <text name=\"a_calcnumy\"/> 
+   </horizontal>
+	    <table>
+      <row> <p align=\"right\">Script Name:</p>  <text name=\"a_calcscriptcmd\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Execute\" action=\"playcalcscript\"/>
+      
+      
+    </horizontal>
+ <p>%playcalcscript_display%</p>"
+	

data/gui/tinkerbackwindows/superant.com.rwdcalc/45listscripts.rwd

@@ -0,0 +1,25 @@
+$rwdguivar=
+"
+    <table>
+      <row> <p align=\"right\">ScriptName:</p>  <text name=\"a_calcscriptfilename\"/> </row>
+
+    </table>
+    
+      <horizontal>
+       <button caption=\"ViewScript\" action=\"viewcalcscript\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdcalc\"/>
+      
+    </horizontal>
+    <p>%displayscripttext%</p>
+        
+    <horizontal>
+      
+      <button caption=\"ListFiles\" action=\"listcalcscripts\"/>
+      <button caption=\"Cancel\" action=\"main\"/>
+      
+    </horizontal>
+    <p>%%listcalcscriptresult%%</p>
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.rwdcalc/46editscriptrecord.rwd

@@ -0,0 +1,30 @@
+$rwdguivar=
+"
+	<tab name=\"editeventrecordfile\" caption=\"Edit Script\">
+ <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=\"loadcalcscriptrecord\"/>
+      <button caption=\"Save Changes\" action=\"savecalcrecord\"/>
+      <button caption=\"Clear\" action=\"clearcalcscreendisplay\"/>
+        <button caption=\"Help\" action=\"runhelpwindowrwdcalc\"/>
+          </horizontal>
+<horizontal>
+<row> <p align=\"right\">FileName:</p>  
+     <text name=\"a_calcscriptfilename\"/>
+    </horizontal>
+    <table>
+      <textarea name=\"a_calcscriptrecord\"/> </row>
+    
+
+    </table>
+   
+    <p>
+    <p>%neweventresult%</p>
+     
+      
+
+	</tab>"
+