arcadia 0.9.3 → 0.10.0

data/lib/a-tkcommons.rb

@@ -264,8 +264,12 @@ end
 class TkFrameAdapter < TkFrame
   include TkMovable
   attr_reader :frame
-  def initialize(scope_parent=nil, *args)
-    super(scope_parent, *args)
+  def initialize(scope_parent=nil, args=nil)
+    newargs =  Arcadia.style('panel')
+    if !args.nil?
+      newargs.update(args) 
+    end
+    super(scope_parent, newargs)
     @scope_parent = scope_parent
     @movable = true
     #ObjectSpace.define_finalizer(self, self.method(:detach_frame).to_proc)
@@ -330,10 +334,10 @@ class AGTkSplittedFrames < TkFrameAdapter
   attr_reader :frame1
   attr_reader :frame2
   def initialize(parent=nil, frame=nil, length=10, slen=5, user_control=true, keys=nil)
-    if keys.nil?
-      keys = Hash.new
-    end
-    keys.update(Arcadia.style('panel'))
+#    if keys.nil?
+#      keys = Hash.new
+#    end
+#    keys.update(Arcadia.style('panel'))
     super(parent, keys)
     @parent = parent
     @slen = slen
@@ -788,6 +792,7 @@ class TkBaseTitledFrame < TkFrame
 
     @buttons = Hash.new
     @menu_buttons = Hash.new
+    @panels = Hash.new
     @last_for_frame = Hash.new
     self.head_buttons
   end
@@ -804,26 +809,34 @@ class TkBaseTitledFrame < TkFrame
     __add_menu_button(_name, _image, _side, _args, @button_frame)
   end
 
+  def add_fixed_panel(_name='default',_side= 'right', _args=nil)
+    __add_panel(_name, _side, _args, @button_frame)
+  end
+
   def add_fixed_sep(_width=0)
     __add_sep(_width, @button_frame)
   end
 
   def __add_button(_label,_proc=nil,_image=nil, _side= 'right', _frame=nil)
     return if _frame.nil?
-    last = @last_for_frame[_frame]
-    @last_for_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
-      text  _label if _label
-      image  TkPhotoImage.new('dat' => _image) if _image
-      font 'helvetica 8 bold'
-      padx 0
-      pady 0
-      if last
-        pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
-      else
-        pack('side'=> _side,'anchor'=> 'e')
-      end
-      bind('1',_proc) if _proc
-    }
+    begin
+      last = @last_for_frame[_frame]
+      @last_for_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
+        text  _label if _label
+        image  Arcadia.image_res(_image) if _image
+        font 'helvetica 8 bold'
+        padx 0
+        pady 0
+        if last
+          pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+        else
+          pack('side'=> _side,'anchor'=> 'e')
+        end
+        bind('1',_proc) if _proc
+      }
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e)
+    end
   end
   private :__add_button
 
@@ -836,7 +849,7 @@ class TkBaseTitledFrame < TkFrame
       menu TkMenu.new(mb, Arcadia.style('titlemenu'))
       if _image
         indicatoron false
-        image TkPhotoImage.new('dat' => _image)
+        image Arcadia.image_res(_image)
       else
         indicatoron true
       end
@@ -851,6 +864,27 @@ class TkBaseTitledFrame < TkFrame
   end
   private :__add_menu_button
 
+  def __add_panel(_name='default', _side= 'right', _args=nil, _frame=nil)
+    return if _frame.nil?
+    args = Arcadia.style('panel').update('background'=>_frame.background, 'highlightbackground'=>_frame.background)
+    args.update(_args) if _args
+    begin
+      last = @last_for_frame[_frame]
+      @last_for_frame[_frame] = @panels[_name]= TkFrame.new(_frame, args){
+        padx 0
+        pady 0
+        if last
+          pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+        else
+          pack('side'=> _side,'anchor'=> 'e')
+        end
+      }
+      @panels[_name]
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e)
+    end
+  end
+  private :__add_panel
 
   def __add_sep(_width=0, _frame=nil)
     return if _width <= 0 || _frame.nil?
@@ -984,13 +1018,13 @@ class TkTitledFrame < TkBaseTitledFrame
     if @state == 'normal'
       if p.kind_of?(AGTkSplittedFrames)
         p.maximize(@parent)
-        @bmaxmin.image(TkPhotoImage.new('dat' => W_NORM_GIF))
+        @bmaxmin.image(Arcadia.image_res(W_NORM_GIF))
       end
       @state = 'maximize'
     else
       if p.kind_of?(AGTkSplittedFrames)
         p.minimize(@parent)
-        @bmaxmin.image(TkPhotoImage.new('dat' =>W_MAX_GIF))
+        @bmaxmin.image(Arcadia.image_res(W_MAX_GIF))
       end
       @state = 'normal'
     end
@@ -1156,8 +1190,7 @@ class TkTitledFrameAdapter < TkTitledFrame
 
   def forge_transient_adapter(_name)
     if @transient_frame_adapter[_name].nil?
-      @transient_frame_adapter[_name] = TkFrameAdapter.new(Arcadia.layout.root,
-      Arcadia.style('frame').update({'background'=>  Arcadia.conf('titlelabel.background')}))
+      @transient_frame_adapter[_name] = TkFrameAdapter.new(Arcadia.layout.root, {'background'=>  Arcadia.conf('titlelabel.background')})
       __attach_adapter(@transient_frame_adapter[_name])
       @transient_frame_adapter[_name].raise
     end
@@ -1192,6 +1225,11 @@ class TkTitledFrameAdapter < TkTitledFrame
     __add_menu_button(_name, _image, _side, _args, @transient_frame_adapter[_sender_name])
   end
 
+  def add_panel(_sender_name, _name='default',_side= 'right', _args=nil)
+    forge_transient_adapter(_sender_name)
+    __add_panel(_name, _side, _args, @transient_frame_adapter[_sender_name])
+  end
+
   def add_sep(_sender_name, _width=0)
     forge_transient_adapter(_sender_name)
     __add_sep(_width, @transient_frame_adapter[_sender_name])
@@ -1216,7 +1254,7 @@ class TkResizingTitledFrame < TkFrame
     super(parent, *args)
     @resizing_label=TkLabel.new(self, Arcadia.style('label')){
       text '-'
-      image TkPhotoImage.new('dat'=>EXPAND_LIGHT_GIF)
+      image Arcadia.image_res(EXPAND_LIGHT_GIF)
     }.pack('side'=> 'right','anchor'=> 's')
     start_resizing(@resizing_label, self)
   end
@@ -1239,7 +1277,7 @@ class TkFloatTitledFrame < TkBaseTitledFrame
 
     @resizing_label=TkLabel.new(self, Arcadia.style('label')){
       text '-'
-      image TkPhotoImage.new('dat'=>EXPAND_LIGHT_GIF)
+      image Arcadia.image_res(EXPAND_LIGHT_GIF)
     }.pack('side'=> 'right','anchor'=> 's')
     start_moving(@right_label, self)
     start_moving(frame, self)
@@ -1318,9 +1356,9 @@ class TkProgressframe < TkFloatTitledFrame
     :relief=>'flat',
     :maximum=>_max).place('width' => '150','x' => 25,'y' => 30,'height' => 15)
 
-    @buttons_frame = TkFrame.new(self).pack('fill'=>'x', 'side'=>'bottom')
+    @buttons_frame = TkFrame.new(self, Arcadia.style('panel')).pack('fill'=>'x', 'side'=>'bottom')
 
-    @b_cancel = TkButton.new(@buttons_frame){|_b_go|
+    @b_cancel = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
       default  'disabled'
       text  'Cancel'
       overrelief  'raised'
@@ -1396,8 +1434,6 @@ class TkWidgetFactory
         require 'tkextlib/tile'
         if Tk::Tile::Style.theme_names.include?(Arcadia.conf('tile.theme'))
           Tk::Tile::Style.theme_use(Arcadia.conf('tile.theme'))
-        else
-          @use_tile = false
         end
       rescue
         @use_tile = false
@@ -1410,8 +1446,8 @@ class TkWidgetFactory
     #TScrollbar
     Tk::Tile::Style.configure("Arcadia.TScrollbar", Arcadia.style('scrollbar'))
     Tk::Tile::Style.map("Arcadia.TScrollbar",
-    :background=>[:pressed, '#694418', :disabled, '#333333', :active, Arcadia.style('scrollbar')['activebackground']],
-    :arrowcolor=>[:pressed, '#FEF7CB', :disabled, Arcadia.style('scrollbar')['background'], :active, Arcadia.style('scrollbar')['activebackground']],
+    :background=>[:pressed, Arcadia.style('scrollbar')['activebackground'], :disabled, Arcadia.style('scrollbar')['background'], :active, Arcadia.style('scrollbar')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('scrollbar')['background'], :disabled, Arcadia.style('scrollbar')['highlightbackground'], :active, Arcadia.style('scrollbar')['background']],
     :relief=>[:pressed, :sunken])
 
     Tk::Tile::Style.layout(Tk::Tile.style('Vertical', "Arcadia.TScrollbar"),
@@ -1454,12 +1490,15 @@ class TkWidgetFactory
   end
 
   def scrollbar(_parent,_args=nil, &b)
-    if @use_tile
-      return Tk::Tile::Scrollbar.new(_parent,{:style=>"Arcadia.TScrollbar"}.update(_args), &b)
-    else
-      return TkScrollbar.new(_parent,Arcadia.style('scrollbar').update(_args), &b)
+    begin
+      if @use_tile
+        return Tk::Tile::Scrollbar.new(_parent,{:style=>"Arcadia.TScrollbar"}.update(_args), &b)
+      else
+        return TkScrollbar.new(_parent,Arcadia.style('scrollbar').update(_args), &b)
+      end
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
     end
-
   end
 
 end
@@ -1469,14 +1508,33 @@ end
 class TkArcadiaText < TkText
   def initialize(parent=nil, keys={})
     super(parent, keys)
-    self.bind_append("<Copy>"){Arcadia.process_event(CopyTextEvent.new(self));break}
-    self.bind_append("<Cut>"){Arcadia.process_event(CutTextEvent.new(self));break}
-    self.bind_append("<Paste>"){Arcadia.process_event(PasteTextEvent.new(self));break}
-    self.bind_append("<Undo>"){Arcadia.process_event(UndoTextEvent.new(self));break}
-    self.bind_append("<Redo>"){Arcadia.process_event(RedoTextEvent.new(self));break}
+#    self.bind_append("<Copy>"){Arcadia.process_event(CopyTextEvent.new(self));break}
+#    self.bind_append("<Cut>"){Arcadia.process_event(CutTextEvent.new(self));break}
+#    self.bind_append("<Paste>"){Arcadia.process_event(PasteTextEvent.new(self));break}
+#    self.bind_append("<Undo>"){Arcadia.process_event(UndoTextEvent.new(self));break}
+#    self.bind_append("<Redo>"){Arcadia.process_event(RedoTextEvent.new(self));break}
   end
 end
 
+module TkInputThrow
+  def self.extended(_widget)
+    _widget.__initialize_throw(_widget)
+  end
+
+  def self.included(_widget)
+    _widget.__initialize_throw(_widget)
+  end
+
+  def __initialize_throw(_widget)
+    #_widget.bind_append("Enter", proc{p "Enter on #{_widget}";Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>_widget))})
+    _widget.bind_append("<Copy>"){Arcadia.process_event(CopyTextEvent.new(_widget));break}
+    _widget.bind_append("<Cut>"){Arcadia.process_event(CutTextEvent.new(_widget));break}
+    _widget.bind_append("<Paste>"){Arcadia.process_event(PasteTextEvent.new(_widget));break}
+    _widget.bind_append("<Undo>"){Arcadia.process_event(UndoTextEvent.new(_widget));break}
+    _widget.bind_append("<Redo>"){Arcadia.process_event(RedoTextEvent.new(_widget));break}
+    _widget.bind_append("1", proc{Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>_widget))})
+  end
+end
 
 module TkAutoPostMenu
 
@@ -1511,6 +1569,7 @@ module TkAutoPostMenu
     @event_posting_on = false
     @m_show = Hash.new
     chs.each{|ch|
+      next if ch.kind_of?(String)
       ch.menu.bind_append("Map", proc{ @m_show[ch.menu] = true })
       ch.menu.bind_append("Unmap", proc{ @m_show[ch.menu] = false })
       ch.bind_append("Enter", proc{|x,y,rx,ry|
@@ -1570,14 +1629,23 @@ module TkAutoPostMenu
         @posting_on=true if @event_posting_on
         if @last_post && @last_post != ch.menu
           @last_post.unpost
+       #   @last_post.bind_remove("1")
           @last_post = nil
         end
         @last_post=ch.menu #if ch.state == 'active'
         ch.configure('state'=>'normal')
         @last_clicked = ch.menu
+        
+#        ch.menu.bind_append("1", proc{|mx,my,mrx,mry|
+#          if ch.menu.index("active").nil?
+#            ch.menu.activate(ch.menu.index("@#{mry}")) 
+#          end
+#        }, "%X %Y %x %y")
+        
         #@last_post.unpost
         #@last_post.post(0,0)
         #@last_post.set_focus
+        @posting_on=true  if @event_posting_on
 
       }, "%X %Y %x %y")
 
@@ -1598,11 +1666,6 @@ module TkAutoPostMenu
       }).start
     })
 
-
-    _widget.bind_append("1", proc{
-      @posting_on=true  if @event_posting_on
-    })
-
   end
 end
 
@@ -1634,6 +1697,14 @@ module TkScrollableWidget
     @v_scroll.destroy
   end
 
+  def call_after_next_show_h_scroll(_proc_to_call=nil)
+    @h_proc = _proc_to_call
+  end
+
+  def call_after_next_show_v_scroll(_proc_to_call=nil)
+    @v_proc = _proc_to_call    
+  end
+
   def add_yscrollcommand(cmd=Proc.new)
     @v_scroll_command = cmd
   end
@@ -1646,7 +1717,8 @@ module TkScrollableWidget
         begin
           @v_scroll.set(first,last) #if TkWinfo.mapped?(@v_scroll)
         rescue Exception => e
-          p "#{e.message}"
+          Arcadia.runtime_error(e)
+          #p "#{e.message}"
         end
       elsif delta == 1 || delta == 0
         hide_v_scroll
@@ -1654,6 +1726,7 @@ module TkScrollableWidget
       @v_scroll_command.call(first,last) if !@v_scroll_command.nil?
       @last_y_last = last if last.to_f < 1
     end
+    
   end
 
   def add_xscrollcommand(cmd=Proc.new)
@@ -1668,7 +1741,8 @@ module TkScrollableWidget
         begin
           @h_scroll.set(first,last) #if TkWinfo.mapped?(@h_scroll)
         rescue Exception => e
-          p "#{e.message}"
+          Arcadia.runtime_error(e)
+          #p "#{e.message}"
         end
       elsif  delta == 1 || delta == 0
         hide_h_scroll
@@ -1676,6 +1750,13 @@ module TkScrollableWidget
       @h_scroll_command.call(first,last) if !@h_scroll_command.nil?
       @last_x_last = last if last.to_f < 1
     end
+    if @x_proc
+      begin
+        @x_proc.call
+      ensure
+        @x_proc=nil
+      end
+    end
   end
 
   def show(_x=0,_y=0,_w=nil,_h=nil,_border_mode='inside')
@@ -1702,7 +1783,8 @@ module TkScrollableWidget
     begin
       arm_scroll_binding
     rescue  Exception => e
-      p "#{e.message}"
+      Arcadia.runtime_error(e)
+      #p "#{e.message}"
     end
   end
 
@@ -1742,8 +1824,16 @@ module TkScrollableWidget
         @v_scroll.pack('side' => 'right', 'fill' => 'y')
         @v_scroll_on = true
         @v_scroll.raise
+        if @v_proc
+          begin
+            @v_proc.call
+          ensure
+            @v_proc=nil
+          end
+        end
       rescue RuntimeError => e
-        p "RuntimeError : #{e.message}"
+        #p "RuntimeError : #{e.message}"
+        Arcadia.runtime_error(e)
       end
     end
   end
@@ -1755,8 +1845,16 @@ module TkScrollableWidget
         @h_scroll.pack('side' => 'bottom', 'fill' => 'x')
         @h_scroll_on = true
         @h_scroll.raise
+        if @h_proc
+          begin
+            @h_proc.call
+          ensure
+            @h_proc=nil
+          end
+        end
       rescue RuntimeError => e
-        p "RuntimeError : #{e.message}"
+        #p "RuntimeError : #{e.message}"
+        Arcadia.runtime_error(e)
       end
     end
   end
@@ -1768,7 +1866,8 @@ module TkScrollableWidget
         @v_scroll.unpack
         @v_scroll_on = false
       rescue RuntimeError => e
-        p "RuntimeError : #{e.message}"
+        Arcadia.runtime_error(e)
+        #p "RuntimeError : #{e.message}"
       end
 
     end
@@ -1781,7 +1880,8 @@ module TkScrollableWidget
         @h_scroll.unpack
         @h_scroll_on = false
       rescue RuntimeError => e
-        p "RuntimeError : #{e.message}"
+        Arcadia.runtime_error(e)
+        #p "RuntimeError : #{e.message}"
       end
     end
   end

data/lib/anigif.rb

@@ -0,0 +1,9 @@
+TkPackage.require("anigif")
+
+module Tk
+  module Anigif
+    def self.image(_widget, _file)
+      Tk.tk_call("eval","::anigif::anigif", _file, _widget.path)
+    end
+  end
+end

data/tcl/anigif/anigif.tcl

@@ -0,0 +1,199 @@
+# AniGif Package written in pure Tcl/Tk
+#
+# anigif.tcl v1.3 2002-09-09 (c) 2001-2002 Ryan Casey
+#
+# AniGif is distributed under the same license as Tcl/Tk.  As of
+# AniGif 1.3, this license is applicable to all previous versions.
+#
+# ###############################  USAGE  #################################
+#
+#  ::anigif::anigif FILENAME WIDGET INDEX
+#    FILENAME: appropriate path and file to use for the animated gif
+#    WIDGET:   a label widget to place the animated gif into
+#    DELAY:    how long to wait before loading next image (Default: 100ms)
+#    INDEX:    what image to begin on (first image is 0) (Default: 0)
+#
+#  ::anigif::stop WIDGET
+#  ::anigif::restart WIDGET INDEX
+#    INDEX:    defaults to next index in loop
+#  ::anigif::destroy WIDGET
+#
+#  NOTES:
+#    There is currently a -zoom and -subsample hack to keep transparency.
+#    Anigif does not handle interlaced gifs properly.  The image will look
+#      distorted.
+#    A delay of 0 renders as fast as possible, per the GIF specification.
+#      This is currently set to 40 ms to approximate the IE default.
+#    If you experience a problem with a compressed gif, try uncompressing
+#      it. Search the web for gifsicle.    
+#
+# ############################## HISTORY #################################
+#
+#  1.3: Fixed error in disposal flag handling.
+#       Added handling for non-valid comment/graphic blocks.
+#       Searches for actual loop control block.  If it extists, loops.
+#       Added more comments.
+#  1.2: Now handles single playthrough gifs or gifs with partial images
+#       Fixed bug in delay time (unsigned int was being treated as signed)
+#  1.1: Reads default timing instead of 100 ms or user-defined.
+#       You can no longer set the delay manually.
+#  1.0: Moved all anigif variables to the anigif namespace
+#  0.9: Initial release
+# 
+
+namespace eval anigif {
+
+  proc anigif2 {w list delay {idx 0}} {
+    if { ![winfo exists $w] } {
+#Cleanup
+#???
+      destroy $w
+      return
+    } else {
+      if { $idx >= [llength $list]  } {
+        set idx 0
+        if { [set ::anigif::${w}(repeat)] == 0} {
+          # Non-repeating GIF
+          ::anigif::stop $w
+          return
+        }
+      } 
+      set dispflag [lindex [set ::anigif::${w}(disposal)] $idx]
+      switch "$dispflag" {
+        "000" {
+              # Do nothing
+            }
+        "001" {
+              # Do not dispose
+            }
+        "100" {
+              # Restore to background
+              [set ::anigif::${w}(curimage)] blank
+            }
+        "101" {
+              # Restore to previous - not supported
+              # As recommended, since this is not supported, it is set to blank
+              [set ::anigif::${w}(curimage)] blank
+            }
+        default { puts "no match: $dispflag" }
+      }
+      [set ::anigif::${w}(curimage)] copy [lindex $list $idx] -subsample 2 2
+      if { [lindex $delay $idx] == 0 } {
+        ::anigif::stop $w
+        return
+      }
+      update
+      set ::anigif::${w}(asdf) "::anigif::anigif2 $w [list $list]"
+      set ::anigif::${w}(loop) [after [lindex $delay $idx] "[set ::anigif::${w}(asdf)] [list $delay] [expr {$idx + 1}]"]
+      set ::anigif::${w}(idx) [incr idx]
+    }
+  }
+
+  proc anigif {fnam w {idx 0}} {
+    set n 0
+    set images {}
+    set delay {}
+
+    set fin [open $fnam r]
+    fconfigure $fin -translation binary
+    set data [read $fin [file size $fnam]]
+    close $fin
+
+    # Find Loop Record
+    set start [string first "\x21\xFF\x0B" $data]
+
+    if {$start < 0} {
+      set repeat 0
+    } else {
+      set repeat 1
+    }
+
+    # Find Control Records
+    set start [string first "\x21\xF9\x04" $data]
+    while {![catch "image create photo xpic$n$w \
+      -file ${fnam} \
+      -format \{gif89 -index $n\}"]} {
+        set stop [string first "\x00" $data [expr {$start + 1}]]
+        if {$stop < $start} {
+          break
+        }
+        set record [string range $data $start $stop]
+        binary scan $record @4c1 thisdelay
+        if {[info exists thisdelay]} {
+
+          # Change to unsigned integer
+          set thisdelay [expr {$thisdelay & 0xFF}];
+
+          binary scan $record @2b3b3b1b1 -> disposalval userinput transflag
+
+          lappend images pic$n$w
+          image create photo pic$n$w
+          pic$n$w copy xpic$n$w -zoom 2 2
+          image delete xpic$n$w
+          lappend disposal $disposalval
+
+          # Convert hundreths to thousandths for after
+          set thisdelay [expr {$thisdelay * 10}]
+
+          # If 0, set to fastest (25 ms min to seem to match browser default)
+          if {$thisdelay == 0} {set thisdelay 100}
+
+          lappend delay $thisdelay
+          unset thisdelay
+
+          incr n
+        }
+
+        if {($start >= 0) && ($stop >= 0)} {
+          set start [string first "\x21\xF9\x04" $data [expr {$stop + 1}]]
+        } else {
+          break
+        }
+    }
+    set ::anigif::${w}(repeat) $repeat
+    set ::anigif::${w}(delay) $delay
+    set ::anigif::${w}(disposal) $disposal
+    set ::anigif::${w}(curimage) [image create photo]
+    [set ::anigif::${w}(curimage)] blank
+    [set ::anigif::${w}(curimage)] copy pic0${w} -subsample 2 2
+    $w configure -image [set ::anigif::${w}(curimage)]
+
+    anigif2 $w $images $delay $idx
+  }
+
+  proc stop {w} {
+    catch {
+      after cancel [set ::anigif::${w}(loop)]
+    }
+  }
+
+  proc restart {w {idx -1}} {
+    if {$idx == -1} {
+      if { [lindex ::anigif::${w}(delay) $idx] < 0 } {
+        set idx 0
+      } else {
+        set idx [set ::anigif::${w}(idx)]
+      }
+    }
+    catch {
+      ::anigif::stop $w
+      eval "[set ::anigif::${w}(asdf)] [list [set ::anigif::${w}(delay)]] $idx"
+    }
+  }
+
+  proc destroy {w} {
+    catch {
+      ::anigif::stop $w
+      set wlength [string length $w]
+      foreach imagename [image names] {
+        if {[string equal [string range $imagename [string first "." $imagename] end] $w]} {
+          image delete $imagename
+        }
+      }
+     unset ::anigif::${w}
+    }
+  }
+
+}
+
+package provide anigif 1.3