diff options
| author | treectrl <treectrl> | 2005-07-16 18:05:23 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-07-16 18:05:23 (GMT) |
| commit | d9f28f5dcc36d4752653a45e1519291fec6e65e1 (patch) | |
| tree | 40bb94377d8855132cc146791047c116daaac84b | |
| parent | d711740df67a22b8119287f8c472253a40c0dff4 (diff) | |
| download | tktreectrl-d9f28f5dcc36d4752653a45e1519291fec6e65e1.zip tktreectrl-d9f28f5dcc36d4752653a45e1519291fec6e65e1.tar.gz tktreectrl-d9f28f5dcc36d4752653a45e1519291fec6e65e1.tar.bz2 | |
Remove newlines in message on unix/mac because unix messagebox already wraps lines (unlike windows). Not sure if mac wraps lines.
| -rw-r--r-- | demos/biglist.tcl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/demos/biglist.tcl b/demos/biglist.tcl index 0a489ae..8661dea 100644 --- a/demos/biglist.tcl +++ b/demos/biglist.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: biglist.tcl,v 1.4 2005/07/15 01:19:17 treectrl Exp $ +# RCS: @(#) $Id: biglist.tcl,v 1.5 2005/07/16 18:05:23 treectrl Exp $ proc DemoBigList {} { @@ -286,11 +286,15 @@ puts "reuse window $w" } # Button - button $w.b3 -text "Anal Probe Wizard..." -command [list tk_messageBox \ - -parent . -message \ + set message \ "After abducting and probing these people over the last\n\ 50 years, the only thing we've learned for certain is that\n\ - one in ten just doesn't seem to mind." -title "Anal Probe 2.0"] + one in ten just doesn't seem to mind." + if {$::thisPlatform ne "windows"} { + set message [string map {\n ""} $message] + } + button $w.b3 -text "Anal Probe Wizard..." -command [list tk_messageBox \ + -parent . -message $message -title "Anal Probe 2.0"] grid $w.label1 -row 0 -column 0 -sticky w -padx {0 8} grid $w.entry1 -row 0 -column 1 -sticky w -pady 4 |