[PD-cvs] pd/src bgerror.tcl,1.1.2.2.2.1,1.1.2.2.2.2
Mathieu Bouchard
matju at users.sourceforge.net
Sun Aug 12 04:38:47 CEST 2007
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
More information about the Pd-cvs
mailing list