rwdschedule 0.5

data/ev/xml.rb

@@ -0,0 +1,4 @@
+require "ev/sgml"
+
+class XML < SGML
+end

data/extras/cal.rb

@@ -0,0 +1,166 @@
+#! /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 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(S M Tu W Th F S)[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)
+    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
+
+if __FILE__ == $0
+
+  require 'getoptlong'
+
+  def usage
+    warn 'usage: cal [-c iso3166] [-jmty] [[month] year]'
+    exit 1
+  end
+
+  cal = Cal.new
+
+  begin
+    GetoptLong.new(['-c', GetoptLong::REQUIRED_ARGUMENT],
+		   ['-j', GetoptLong::NO_ARGUMENT],
+		   ['-m', GetoptLong::NO_ARGUMENT],
+		   ['-t', GetoptLong::NO_ARGUMENT],
+		   ['-y', GetoptLong::NO_ARGUMENT]).
+    each do |opt, arg|
+      case opt
+      when '-c'; cal.opt_c(arg) || raise
+      when '-j'; cal.opt_j(true)
+      when '-m'; cal.opt_m(true)
+      when '-t'; cal.opt_t(true)
+      when '-y'; cal.opt_y(true)
+      end
+    end
+  rescue
+    usage
+  end
+
+  y, m = ARGV.values_at(1, 0).compact.collect{|x| x.to_i}
+  cal.opt_y(true) if y and not m
+
+  to = Date.today
+  y ||= to.year
+  m ||= to.mon
+
+  usage unless m >= 1 and m <= 12
+  usage unless y >= -4712
+
+  print cal.print(y, m)
+
+end

data/gui/en/aa2core/aa0rwdtop.rwd

@@ -0,0 +1,3 @@
+<application>
+  <window name="main" title="RwdSchedule - a RwdTinker Application">
+<tabs>

data/gui/en/gg0schedules/gg0viewevent.rwd

@@ -0,0 +1,27 @@
+  
+	
+	
+	<tab name="View file list" 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="Cancel" action="main"/>
+      
+    </horizontal>
+
+    <p>%displayevent%</p>
+      <horizontal>
+      <button caption="List Events" action="listeventdates"/>
+      
+           
+    </horizontal>
+
+    <p>%%eventrecordsresult%%</p>
+	</tab>

data/gui/en/gg0schedules/gl6editrecord.rwd

@@ -0,0 +1,34 @@
+	<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="Clear" action="cleareventscreendisplay"/>
+      
+
+
+    
+    </horizontal>
+    <table>
+      <row> <p align="right">FileName:</p>  <text name="a_eventfilename"/> </row>
+      <row> <p align="right">Start Time:</p>  <text name="a_eventtime"/> </row>
+      <row> <p align="right">What:</p>  <text name="a_eventwhat"/> </row>
+      <row> <p align="right">Where:</p>  <text name="a_eventaddress"/> </row>
+      <row> <p align="right">Phone:</p>  <text name="a_eventphone"/> </row>
+      <row> <p align="right">Email:</p>  <text name="a_eventemail"/> </row>
+      <row> <p align="right">Comment1:</p>  <text name="a_eventcomment1"/> </row>
+      <row> <p align="right">Comment2:</p>  <text name="a_eventcomment2"/> </row>
+      <row> <p align="right">Comment3:</p>  <text name="a_eventcomment3"/> </row>
+
+    </table>
+    <p>%extraeventdatadisplay%</p>
+    <p>
+    <p>%neweventresult%</p>
+     
+      
+
+	</tab>
+

data/gui/en/gg0schedules/gl8contactutilities.rwd

@@ -0,0 +1,23 @@
+  
+ <tab name="eventutilitiesrwdschedule" caption="Event Utilities">
+
+    <table>
+      <row> <p align="right">Event Title:</p>  <text name="a_viewevent"/> </row>
+      <row> <p align="right">New Name:</p>  <text name="a_changeeventdata"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption="Rename Event" action="changeeventdata"/>
+      <button caption="Delete Event" action="deleteeventrecord"/>
+          </horizontal>
+
+ <p>%%eventfilechangeresult%%</p>
+          <horizontal>
+      <button caption="List Events" action="listeventdates"/>
+         
+
+ </horizontal>
+
+ <p>%%eventrecordsresult%%</p>
+	</tab>

data/gui/en/hl9calendar/hl9calendar.rwd

@@ -0,0 +1,18 @@
+	<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>
+

data/gui/en/ll1selectiontabbegin/selectiontabbegin.rwd

@@ -0,0 +1,15 @@
+	
+      <tab name="selectiontab" caption="Selection Panel">
+
+      <table>
+      <row> <p align="right">Open a new window with callable applets you have loaded</row>
+
+     </table>
+      <horizontal>
+      
+      <button caption="RwdTinker Help Window" action="runrwdtinkerhelpwindow"/>
+      
+      
+     </horizontal>
+
+

data/gui/en/ll5rwdtinkerwin2selectiontab/rwdwin2selectiontab.rwd

@@ -0,0 +1,11 @@
+	
+     <row> <p></row>
+
+      <horizontal>
+      
+      <button caption="RwdTinker Back Window" action="runrwdtinkerbackwindow"/>
+      
+      
+    </horizontal>
+
+

data/gui/en/lz1selectiontabend/endselectiontab.rwd

@@ -0,0 +1 @@
+	</tab>

data/gui/en/tt0documentsbegin/tt0documentbegin.rwd

@@ -0,0 +1,5 @@
+
+  <tab name="one" caption="Documents">
+    <horizontal>
+    <table>
+	

data/gui/en/uu5rwddocuments/uu5documents.rwd

@@ -0,0 +1,13 @@
+      <row> <p align="left"> 
+      <a href=HowTo_Tinker.html>Howto_Tinker.html</a></p></row>
+      <row> <p align="left"> 
+      <a href=Readme.txt>Readme.txt</a></p></row>
+      <row> <p align="left"> 
+      <a href=COPYING>GPL License </a></p></row>
+      <row> <p align="left"> 
+      <a href=rwdapplications.html>more information about rwdapplications </a></p></row>
+      <row> <p align="left"> 
+      <a href=rwdindex.html>Link to online information about RubyWebdialogs </a></p></row>
+      
+     
+	

data/gui/en/uu6rwdtinkerwin2documents/uu5documents.rwd

@@ -0,0 +1,4 @@
+      <row> <p align="left"> 
+      <a href=HowTo_TinkerWin2.txt>Howto_TinkerWin2.txt</a></p></row>
+     
+	

data/gui/en/uu8schedule/uu8doc_rwdschedule.rwd

@@ -0,0 +1,4 @@
+      
+      <row> <p align="left"> 
+         <a href=HowTo_Schedule.txt>HowTo_Schedule.txt</a></p></row>
+      

data/gui/en/ww0documentsend/ww0documentend.rwd

@@ -0,0 +1,6 @@
+     
+ <row> <p align="left"><a href=.>Spawn a clone Dialog window</a></p></row>
+    </table>
+        </horizontal>
+	</tab>
+	

data/gui/en/wz6finaltabs/xx0rwdfirsttab.rwd

@@ -0,0 +1,4 @@
+</tabs>
+</window>
+
+

data/gui/en/xa1versionwindow/1appname.rwd

@@ -0,0 +1,17 @@
+<window name = "applicationversion" title="Application Version">
+
+ <row> <p></row>
+          <p>%versionappnamedisplay%</p>
+ <row> <p></row>
+<p>%versioncopyrightdisplay%</p>
+
+ <row> <p></row>
+<p>%versionnumberdisplay%</p>
+
+      <horizontal>
+       <cancel/>
+    </horizontal>
+
+</window>
+
+

data/gui/en/xa5rwdtinkercallablewindow/1appname.rwd

@@ -0,0 +1,15 @@
+<window name = "rwdtinkerhelpwindow" title="RwdTinker Help">
+<tabs>
+<tab name="main" caption="Help">
+ <row> <p></row>
+<row> <p>RwdTinker</row>
+<cancel/>
+</tab>
+
+<tab name="nexttab" caption="Next">
+ <row> <p></row>
+<row> <p>RwdTinker Help</row>
+<cancel/>
+</tab>
+
+</tabs>

data/gui/en/xa5rwdtinkercallablewindow/9end.rwd

@@ -0,0 +1,4 @@
+
+</window>
+
+

data/gui/en/xb1rwdtinkerbackwindow/1appname.rwd

@@ -0,0 +1,3 @@
+<window name = "tinkerbackwindow" title="Tinker Back Window">
+
+<tabs>

data/gui/en/xb1rwdtinkerbackwindow/2tab1.rwd

@@ -0,0 +1,9 @@
+  <tab name="backone" caption="Back Tab">
+
+<row> You can return to the previous window</row>
+<row><p> </row>
+<row><p> </row>
+<button caption="Return to top menu" action="main"/>
+
+  </tab>
+

data/gui/en/xb1rwdtinkerbackwindow/3arwddiagnostics.rwd

@@ -0,0 +1,31 @@
+	<tab name="diagnostictab" caption="Diagnostic Tab">
+      <horizontal>
+       <button caption="View Ruby Version" action="runrubyversion"/>
+    
+      
+    </horizontal>
+    <p>%rubyversion%</p>
+
+
+    <table>
+      <row> <p> </row>
+      
+    </table>
+
+    <horizontal>
+       <button caption="view platform" action="runviewplatform"/>
+           
+    </horizontal>
+
+    <p>%platformdisplay%</p>
+    <horizontal>
+       <button caption="View rwdtinker Version" action="rwdtinkerversiondiagnostic"/>
+           
+    </horizontal>
+
+    <p>%rwdtinkerversionreturn%</p>
+
+	</tab>
+
+
+