Changeset 81d4b20 in tol

Timestamp:

Dec 11, 2008, 3:08:58 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

47fce8a

Parents:

07da02f

Message:

Expert on calendars did not work due to poor specification of an argument in a call to ::tol::timeset

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@287 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/calendar.tcl (modified) (4 diffs)

tolbase/lib/toltk/calendar.tcl

@@ -113 +113 @@
   if {[info exists data(all)]} { ;# General calendar
     set data(allTms) [::tol::info variable TimeSet]
+    #puts "::CalendarTms::Create data(allTms) = $data(allTms)"
     foreach item $data(allTms) {
-      ::tol::timeset create $item $item
+      ::tol::timeset create $item [list TimeSet $item]
     }
     label $path.lTms -text [mc TimeSet]:
@@ -313 +314 @@
 #/////////////////////////////////////////////////////////////////////////////
   upvar \#0 ${instance}::data data    
-###    puts "##################"
-###  puts [ListHours $instance $day $month $year]
+#puts "##################"
+#puts [ListHours $instance $day $month $year]
   set data(date) $day/$month/$year
   $data(statusbar,cursor) configure\
@@ -324 +325 @@
 #/////////////////////////////////////////////////////////////////////////////    
   if { [lsearch $tags type2] != -1 } {
-#    puts "day: $day"
-#    puts "month: $month"
-#    puts "year: $year"
-#    puts "tags: $tags"
-#    puts [concat "textSalida: " [ListHours $instance $day $month $year] ]
+#puts "day: $day"
+#puts "month: $month"
+#puts "year: $year"
+#puts "tags: $tags"
+#puts [concat "textSalida: " [ListHours $instance $day $month $year] ]
             
     Tolcon_Trace [ListHours $instance $day $month $year]
@@ -501 +502 @@
   # The calendar has a Timeset
   if { [string length $data(tms)] } {
-    # The date belongs to the Timeset  
+    # The date belongs to the Timeset 
+    #puts "::CalendarTms::CheckDate data(tms) = $data(tms)"    
     set result [$data(tms) contain $date]
    #foreach {y0 m0 d0 h0 mi0 s0} [$data(tms) start [list $year $month $day]] break