mingw/lib/tk8.5/ttk/cursors.tcl

   1 #
   2 # $Id: cursors.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
   3 #
   4 # Ttk package: Symbolic cursor names.
   5 #
   6 # @@@ TODO: Figure out appropriate platform-specific cursors
   7 #       for the various functions.
   8 #
   9
  10 namespace eval ttk {
  11
  12     variable Cursors
  13
  14     switch -glob $::tcl_platform(platform) {
  15         "windows" {
  16             array set Cursors {
  17                 hresize         sb_h_double_arrow
  18                 vresize         sb_v_double_arrow
  19                 seresize        size_nw_se
  20             }
  21         }
  22
  23         "unix" -
  24         * {
  25             array set Cursors {
  26                 hresize         sb_h_double_arrow
  27                 vresize         sb_v_double_arrow
  28                 seresize        bottom_right_corner
  29             }
  30         }
  31
  32     }
  33 }
  34
  35 #*EOF*