/[ascend]/trunk/tcltk98/TK/templates/asctkfbox84.tcl
ViewVC logotype

Diff of /trunk/tcltk98/TK/templates/asctkfbox84.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 537 by ben.allan, Sat Apr 22 06:07:09 2006 UTC revision 538 by ben.allan, Tue Apr 25 22:49:54 2006 UTC
# Line 340  proc ::tk::IconList_DeleteAll {w} { Line 340  proc ::tk::IconList_DeleteAll {w} {
340  ##  ##
341  # looks up special cases for icons. baa  # looks up special cases for icons. baa
342  proc ::tk::CustomImage {img f} {  proc ::tk::CustomImage {img f} {
343        variable ::tk::Priv
344      set a4c $Priv(a4cImage);      set a4c $Priv(a4cImage);
345      set a4l $Priv(a4lImage);      set a4l $Priv(a4lImage);
346      set a4s $Priv(a4sImage);      set a4s $Priv(a4sImage);
# Line 404  proc ::tk::IconList_Add {w image items} Line 405  proc ::tk::IconList_Add {w image items}
405    
406      set image0 $image      set image0 $image
407      foreach text $items {      foreach text $items {
408          set image [::tk:CustomImage image0 $text]          set image [ ::tk::CustomImage $image0 $text ]
409      set iTag [$data(canvas) create image 0 0 -image $image -anchor nw \      set iTag [$data(canvas) create image 0 0 -image $image -anchor nw \
410          -tags [list icon $data(numItems) item$data(numItems)]]          -tags [list icon $data(numItems) item$data(numItems)]]
411      set tTag [$data(canvas) create text  0 0 -text  $text  -anchor nw \      set tTag [$data(canvas) create text  0 0 -text  $text  -anchor nw \

Legend:
Removed from v.537  
changed lines
  Added in v.538

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22