calendar.tcl

来自「用于TCL/TK的可视化集成开发环境.(GUI)」· TCL 代码 · 共 1,278 行 · 第 1/3 页

    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(19)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {13} \
    -textvariable {cday(19)} \
    -width {2}

  # build widget .frame3.frame18.frame32.button29
  button .frame3.frame18.frame32.button29 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(20)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {red} \
    -highlightcolor {blue} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {14} \
    -textvariable {cday(20)} \
    -width {2}

  # build widget .frame3.frame18.frame32.button30
  button .frame3.frame18.frame32.button30 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(21)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {15} \
    -textvariable {cday(21)} \
    -width {2}

  # build widget .frame3.frame18.frame33
  frame .frame3.frame18.frame33 \
    -background {#dcdcdc} \
    -height {27} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -width {165}

  # build widget .frame3.frame18.frame33.button24
  button .frame3.frame18.frame33.button24 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(22)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {16} \
    -textvariable {cday(22)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button25
  button .frame3.frame18.frame33.button25 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(23)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {solid} \
    -text {17} \
    -textvariable {cday(23)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button26
  button .frame3.frame18.frame33.button26 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(24)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {18} \
    -textvariable {cday(24)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button27
  button .frame3.frame18.frame33.button27 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(25)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {19} \
    -textvariable {cday(25)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button28
  button .frame3.frame18.frame33.button28 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(26)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {20} \
    -textvariable {cday(26)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button29
  button .frame3.frame18.frame33.button29 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(27)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {red} \
    -highlightcolor {blue} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {21} \
    -textvariable {cday(27)} \
    -width {2}

  # build widget .frame3.frame18.frame33.button30
  button .frame3.frame18.frame33.button30 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(28)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {22} \
    -textvariable {cday(28)} \
    -width {2}

  # build widget .frame3.frame18.frame34
  frame .frame3.frame18.frame34 \
    -background {#dcdcdc} \
    -height {27} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -width {165}

  # build widget .frame3.frame18.frame34.button24
  button .frame3.frame18.frame34.button24 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(29)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {23} \
    -textvariable {cday(29)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button25
  button .frame3.frame18.frame34.button25 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(30)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {24} \
    -textvariable {cday(30)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button26
  button .frame3.frame18.frame34.button26 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(31)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {25} \
    -textvariable {cday(31)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button27
  button .frame3.frame18.frame34.button27 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(32)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {26} \
    -textvariable {cday(32)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button28
  button .frame3.frame18.frame34.button28 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(33)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {27} \
    -textvariable {cday(33)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button29
  button .frame3.frame18.frame34.button29 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(34)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {red} \
    -highlightcolor {blue} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {28} \
    -textvariable {cday(34)} \
    -width {2}

  # build widget .frame3.frame18.frame34.button30
  button .frame3.frame18.frame34.button30 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -command {calendar_selDay $cday(35)} \
    -font {Helvetica 10} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {29} \
    -textvariable {cday(35)} \
    -width {2}

  # build widget .frame3.frame18.frame43
  frame .frame3.frame18.frame43 \
    -background {#dcdcdc} \
    -height {27} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -width {165}

  # build widget .frame3.frame18.frame43.button24
  button .frame3.frame18.frame43.button24 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {Su} \
    -width {2}

  # build widget .frame3.frame18.frame43.button25
  button .frame3.frame18.frame43.button25 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {M} \
    -width {2}

  # build widget .frame3.frame18.frame43.button26
  button .frame3.frame18.frame43.button26 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {Tu} \
    -width {2}

  # build widget .frame3.frame18.frame43.button27
  button .frame3.frame18.frame43.button27 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {W} \
    -width {2}

  # build widget .frame3.frame18.frame43.button28
  button .frame3.frame18.frame43.button28 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {#dcdcdc} \
    -highlightcolor {#000000} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {Th} \
    -width {2}

  # build widget .frame3.frame18.frame43.button29
  button .frame3.frame18.frame43.button29 \
    -activebackground {gray75} \
    -activeforeground {#000000} \
    -background {#dcdcdc} \
    -borderwidth {1} \
    -font {Helvetica 10 bold} \
    -foreground {#000000} \
    -highlightbackground {red} \
    -highlightcolor {blue} \
    -highlightthickness {0} \
    -padx 2 -pady 0 \
    -relief {flat} \
    -text {F} \
    -width {2}

  # build widget .frame3.frame18.frame43.button30
  button .frame3.frame18.frame43.button30 \
    -activebackground {gray75} \
    -activeforeground {#000000} \