Function Arrows, Down=down
;
; This function draws bit-mapped arrows for display on widget buttons. 
; The default is to draw an up arrow in a 16-by-16 bit map.
; 
; Keyword DOWN: Reverses the direction of the arrow so it points down.
;

arrow =  [           $
      [000B, 000B],        $
      [128B, 000B],        $
      [192B, 001B],        $
      [224B, 003B],        $
      [176B, 006B],        $
      [136B, 008B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [128B, 000B],        $
      [000B, 000B]         $
      ]

If KeyWord_Set(down) Then arrow = Reverse(arrow, 2)
Return, arrow
END ; ******************************************************************