History diff of DisclosureTriangle(No. 1)

History
View the diff current.
View the source.
Go to DisclosureTriangle.
- 1 (2005-07-06 (Wed) 03:48:42)

The added line is THIS COLOR.
The deleted line is THIS COLOR.

***DisclosureTriangle [#mb8d3d88]
Tk widget implementation.~
http://reddog.s35.xrea.com/software/DisclosureTriangle.tcl

***Example [#n717d306]
 source ../DisclosureTriangle.tcl
 
 set msg {Give me chocolate}
 set type ok
 
 entry .e -textvariable msg -width 30
 button .show -text Show -width 8 \
 	-command {tk_messageBox -message $msg -type $type}
 button .exit -text Exit -width 8 -command exit
 DisclosureTriangle::DisclosureTriangle .dt -separator 0 \
 	-font {{Arial Bold} 8 bold} -width 40 \
 	-showtext {Show Detail ...} -hidetext {Hide Detail}
 
 pack .dt -side bottom -fill both -expand yes
 pack .exit .show -side right -padx 2
 pack .e -side left -fill x
 
 set f [.dt getframe]
 $f configure -bd 2 -relief groove
 proc mkRadio {name value text} {
 	radiobutton $name -variable type -value $value \
 	-text $text -justify left
 }
 mkRadio $f.abort       abortretryignore Abort
 mkRadio $f.ok          ok               OK
 mkRadio $f.okcancel    okcancel         {OK Cancel}
 mkRadio $f.retrycancel retrycancel      {Retry Cancel}
 mkRadio $f.yesno       yesno            {Yes No}
 mkRadio $f.yesnocancel yesnocancel      {Yes No Cancel}
 
 grid $f.abort $f.ok $f.okcancel -sticky w
 grid $f.retrycancel $f.yesno $f.yesnocancel -sticky w
 
 wm resizable . 0 0
 focus -force .

***Comment [#ic822aa4]
#comment
----
[[CategoryTclTk]] [[CategorySoft]]

History diff of DisclosureTriangle (No. 1)