Tk Library Source Code

Artifact 2ebca486de8da43ba334fbed0e3bd81d30db6d76:

Attachment "paned-diff.txt" to ticket [442474ffff] added by bach 2001-07-18 23:35:28.

---

*** panedw.tcl	Tue Jun 12 11:01:00 2001
--- /home/bosch/bach/work/wf/bwidget/panedw.tcl	Wed Jul 18 17:47:38 2001
***************
*** 25,34 ****
  
      Widget::declare PanedWindow {
          {-side       Enum       top 1 {top left bottom right}}
!         {-width      Int        10  1 "%d >=6"}
          {-pad        Int        4   1 "%d >= 0"}
          {-background TkResource ""  0 frame}
          {-bg         Synonym    -background}
      }
  
      variable _panedw
--- 25,35 ----
  
      Widget::declare PanedWindow {
          {-side       Enum       top 1 {top left bottom right}}
!         {-width      Int        10  1 "%d >=3"}
          {-pad        Int        4   1 "%d >= 0"}
          {-background TkResource ""  0 frame}
          {-bg         Synonym    -background}
+         {-activator  Enum       ""  1 {line button}}
      }
  
      variable _panedw
***************
*** 115,121 ****
  		-highlightthickness 0 -bg $bg -width $wbut -height $wbut]
  	set placeButton 1
  	set sepsize     2
! 	if { $::tcl_platform(platform) != "windows" } {
  	    set activator $but
  	} else {
  	    set activator $sep
--- 116,131 ----
  		-highlightthickness 0 -bg $bg -width $wbut -height $wbut]
  	set placeButton 1
  	set sepsize     2
! 
! 	set activator [Widget::getoption $path -activator]
! 	if {$activator == ""} {
! 	    if { $::tcl_platform(platform) != "windows" } {
! 		set activator button
! 	    } else {
! 		set activator line
! 	    }
! 	}
! 	if {$activator == "button"} {
  	    set activator $but
  	} else {
  	    set activator $sep