Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29854
Modified Files: Tag: desiredata bgerror.tcl Log Message: not much
Index: bgerror.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/bgerror.tcl,v retrieving revision 1.1.2.2.2.1 retrieving revision 1.1.2.2.2.2 diff -C2 -d -r1.1.2.2.2.1 -r1.1.2.2.2.2 *** bgerror.tcl 7 Aug 2007 19:30:35 -0000 1.1.2.2.2.1 --- bgerror.tcl 12 Aug 2007 02:38:45 -0000 1.1.2.2.2.2 *************** *** 25,29 **** proc ::tk::dialog::error::Return {} { variable button - .bgerrorDialog.ok configure -state active -relief sunken update idletasks --- 25,28 ---- *************** *** 32,39 **** }
! proc ::tk::dialog::error::Details {} { ! if {[catch {Details2}]} {::error_dump} ! } ! proc ::tk::dialog::error::Details2 {} { set w .bgerrorDialog --- 31,35 ---- }
! proc ::tk::dialog::error::Details {} {if {[catch {Details2}]} {::error_dump}} proc ::tk::dialog::error::Details2 {} { set w .bgerrorDialog *************** *** 54,62 **** set allFiles * } ! set types [list \ ! [list [mc "Log Files"] .log] \ ! [list [mc "Text Files"] .txt] \ ! [list [mc "All Files"] $allFiles] \ ! ] set filename [tk_getSaveFile -title [mc "Select Log File"] \ -filetypes $types -defaultextension .log -parent .bgerrorDialog] --- 50,57 ---- set allFiles * } ! set types [list \ ! [list [mc "Log Files"] .log] \ ! [list [mc "Text Files"] .txt] \ ! [list [mc "All Files"] $allFiles]] set filename [tk_getSaveFile -title [mc "Select Log File"] \ -filetypes $types -defaultextension .log -parent .bgerrorDialog] *************** *** 110,114 **** }
- # Truncate the message if it is too wide (longer than 30 characacters) or # too tall (more than 4 newlines). Truncation occurs at the first point at --- 105,108 ---- *************** *** 117,125 **** set lines 0 foreach line [split $err \n] { ! if { [string length $line] > 30 } { append displayedErr "[string range $line 0 29]..." break } ! if { $lines > 4 } { append displayedErr "..." break --- 111,119 ---- set lines 0 foreach line [split $err \n] { ! if {[string length $line]>30} { append displayedErr "[string range $line 0 29]..." break } ! if {$lines>4} { append displayedErr "..." break *************** *** 161,174 ****
set W [frame $w.top.info] ! text $W.text \ ! -bd 2 \ ! -yscrollcommand [list $W.scroll set]\ ! -setgrid true \ ! -width 80 \ ! -height 10 \ ! -state normal \ ! -relief $textRelief \ ! -highlightthickness $textHilight \ ! -wrap char
scrollbar $W.scroll -relief sunken -command [list $W.text yview] --- 155,160 ----
set W [frame $w.top.info] ! text $W.text -bd 2 -yscrollcommand [list $W.scroll set] -setgrid true \ ! -width 80 -height 10 -state normal -relief $textRelief -highlightthickness $textHilight -wrap char
scrollbar $W.scroll -relief sunken -command [list $W.text yview] *************** *** 181,186 **** $W.text configure -state disabled
! # 2. Fill the top part with bitmap and message ! # Max-width of message is the width of the screen... set wrapwidth [winfo screenwidth .bgerrorDialog] --- 167,171 ---- $W.text configure -state disabled
! # 2. Fill the top part with bitmap and message. # Max-width of message is the width of the screen... set wrapwidth [winfo screenwidth .bgerrorDialog] *************** *** 211,227 ****
# 3. Create a row of buttons at the bottom of the dialog. - set i 0 foreach {name caption} $buttons { ! button .bgerrorDialog.$name \ ! -text $caption \ ! -default normal \ ! -command [namespace code [list set button $i]] ! grid .bgerrorDialog.$name \ ! -in .bgerrorDialog.bot \ ! -column $i \ ! -row 0 \ ! -sticky ew \ ! -padx 10 grid columnconfigure .bgerrorDialog.bot $i -weight 1 # We boost the size of some Mac buttons for l&f --- 196,203 ----
# 3. Create a row of buttons at the bottom of the dialog. set i 0 foreach {name caption} $buttons { ! button .bgerrorDialog.$name -text $caption -default normal -command [namespace code [list set button $i]] ! grid .bgerrorDialog.$name -in .bgerrorDialog.bot -column $i -row 0 -sticky ew -padx 10 grid columnconfigure .bgerrorDialog.bot $i -weight 1 # We boost the size of some Mac buttons for l&f *************** *** 237,251 **** .bgerrorDialog.ok configure -default active
! bind .bgerrorDialog <Return> [namespace code Return] ! bind .bgerrorDialog <Destroy> [namespace code [list Destroy %W]] .bgerrorDialog.function configure -command [namespace code Details]
# 6. Update all the geometry information so we know how big it wants # to be, then center the window in the display and deiconify it. - ::tk::PlaceWindow .bgerrorDialog
# 7. Ensure that we are topmost. - raise .bgerrorDialog if {$tcl_platform(platform) eq "windows"} { --- 213,225 ---- .bgerrorDialog.ok configure -default active
! bind .bgerrorDialog <Return> [namespace code Return] ! bind .bgerrorDialog <Destroy> [namespace code [list Destroy %W]] .bgerrorDialog.function configure -command [namespace code Details]
# 6. Update all the geometry information so we know how big it wants # to be, then center the window in the display and deiconify it. ::tk::PlaceWindow .bgerrorDialog
# 7. Ensure that we are topmost. raise .bgerrorDialog if {$tcl_platform(platform) eq "windows"} { *************** *** 258,262 ****
# 8. Set a grab and claim the focus too. - ::tk::SetFocusGrab .bgerrorDialog .bgerrorDialog.ok
--- 232,235 ---- *************** *** 266,278 **** # may take the focus away so we can't redirect it. Finally, # restore any grab that was in effect. - vwait [namespace which -variable button] set copy $button; # Save a copy... - ::tk::RestoreFocusGrab .bgerrorDialog .bgerrorDialog.ok destroy ! ! if {$copy == 1} { ! return -code break ! } }]} { ::error_dump --- 239,246 ---- # may take the focus away so we can't redirect it. Finally, # restore any grab that was in effect. vwait [namespace which -variable button] set copy $button; # Save a copy... ::tk::RestoreFocusGrab .bgerrorDialog .bgerrorDialog.ok destroy ! if {$copy == 1} {return -code break} }]} { ::error_dump