diff options
| author | culler <culler> | 2023-01-30 17:18:11 (GMT) |
|---|---|---|
| committer | culler <culler> | 2023-01-30 17:18:11 (GMT) |
| commit | ebc8c7fe8e57c06dc8bf9b15c5364e67434121df (patch) | |
| tree | 60af5a49943397f110fdde5cfea1c49513b57105 /library | |
| parent | ba084026be93362126c6ae4e8bf1145a374d66b3 (diff) | |
| download | tk-ebc8c7fe8e57c06dc8bf9b15c5364e67434121df.zip tk-ebc8c7fe8e57c06dc8bf9b15c5364e67434121df.tar.gz tk-ebc8c7fe8e57c06dc8bf9b15c5364e67434121df.tar.bz2 | |
Change -type to -class. Update the man page.
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/mac_wm.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/demos/mac_wm.tcl b/library/demos/mac_wm.tcl index 2f1c198..dfdb298 100644 --- a/library/demos/mac_wm.tcl +++ b/library/demos/mac_wm.tcl @@ -24,14 +24,14 @@ set winlist {} ## See Code / Dismiss pack [addSeeDismiss $w.buttons $w] -side bottom -fill x -proc launch {name windowInfo type} { +proc launch {name windowInfo class} { if {[winfo exists $name]} { wm deiconify $name focus -force $name return } - wm attributes $name -type $type; toplevel $name - wm title $name $type + wm attributes $name -class $class; toplevel $name + wm title $name $class set f $name.f ttk::frame $f set t $f.t @@ -45,7 +45,7 @@ proc launch {name windowInfo type} { grid $t -row 0 -column 0 -columnspan 2 -sticky NSEW ttk::labelframe $f.stylemask -text "styleMask bits" # titled - if {$type == "nswindow"} { + if {$class == "nswindow"} { ttk::checkbutton $f.stylemask.titled -text titled -variable $name.titled \ -command [list setbit $name $f.stylemask.titled titled] $f.stylemask.titled state selected @@ -60,7 +60,7 @@ proc launch {name windowInfo type} { ttk::checkbutton $f.stylemask.miniaturizable -text miniaturizable \ -variable $name.miniaturizable \ -command [list setbit $name $f.stylemask.miniaturizable miniaturizable] - if {$type == "nswindow"} { + if {$class == "nswindow"} { $f.stylemask.miniaturizable state selected } else { $f.stylemask.miniaturizable state !alternate |