Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Auto open prefix group dialog. [2e08dd0200] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f0aac8ede2c4fdcf59310bf423dd1124 |
| User & Date: | peter 2019-03-12 22:30:31.479 |
Context
|
2019-05-22
| ||
| 08:38 | Synch text with wiki. check-in: 64dd38f229 user: peter tags: trunk | |
|
2019-03-12
| ||
| 22:30 | Auto open prefix group dialog. [2e08dd0200] check-in: f0aac8ede2 user: peter tags: trunk | |
| 22:16 | Adjust zoom popup for corner case. [0903a2b6b8] check-in: cf1823be38 user: peter tags: trunk | |
Changes
Changes to src/preprocess.tcl.
| ︙ | ︙ | |||
423 424 425 426 427 428 429 |
foreach item {name active save re} {
set tmp $::TmpPref(preprocess,$item,$r)
set ::TmpPref(preprocess,$item,$r) $::TmpPref(preprocess,$item,$p)
set ::TmpPref(preprocess,$item,$p) $tmp
}
}
| | > > > | 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 |
foreach item {name active save re} {
set tmp $::TmpPref(preprocess,$item,$r)
set ::TmpPref(preprocess,$item,$r) $::TmpPref(preprocess,$item,$p)
set ::TmpPref(preprocess,$item,$p) $tmp
}
}
proc EditPrefPreprocessAddItem {w autoEdit} {
set r $::TmpPref(preprocess,n)
incr r
if {![info exists ::TmpPref(preprocess,name,$r)]} {
set ::TmpPref(preprocess,name,$r) ""
set ::TmpPref(preprocess,active,$r) 0
set ::TmpPref(preprocess,save,$r) 0
set ::TmpPref(preprocess,re,$r) ""
}
ttk::entry $w.fp.ne$r -textvariable ::TmpPref(preprocess,name,$r)
addBalloon $w.fp.ne$r "Name of preprocess group (optional)"
ttk::checkbutton $w.fp.cba$r -text "Active" \
-variable ::TmpPref(preprocess,active,$r)
addBalloon $w.fp.cba$r "Activate group for this session"
ttk::checkbutton $w.fp.cbs$r -text "Save" \
-variable ::TmpPref(preprocess,save,$r)
addBalloon $w.fp.cbs$r "Save group when preferences are saved"
ttk::button $w.fp.be$r -text "Edit" \
-command [list EditPrefRegsub $w $r]
addBalloon $w.fp.be$r "Edit the associated list of regexps"
if {$autoEdit} {
after idle [list after 50 [list $w.fp.be$r invoke]]
}
ttk::button $w.fp.bu$r -image $::img(up) \
-command [list EditPrefPreUp $r]
addBalloon $w.fp.bu$r "Move group up in list"
grid $w.fp.ne$r $w.fp.cba$r $w.fp.cbs$r $w.fp.be$r $w.fp.bu$r -sticky we \
-padx 3 -pady 3
# Make buttons symmetric
grid $w.fp.be$r $w.fp.bu$r -sticky news
|
| ︙ | ︙ | |||
467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 |
incr r
set ::TmpPref(preprocess,name,$r) $name
set ::TmpPref(preprocess,active,$r) [dict get $data active]
set ::TmpPref(preprocess,save,$r) [dict get $data save]
set ::TmpPref(preprocess,re,$r) [dict get $data preprocess]
}
# Create one if there is none, to simplify GUI usage
if {$r == 0} {
incr r
}
set ::TmpPref(preprocess,n) 0
set nItems $r
ToplevelForce $w "Preferences: Preprocess"
# Frame for List of preprocessing
ttk::frame $w.fp -padding 3
grid columnconfigure $w.fp 0 -weight 1
for {set r 1} {$r <= $nItems} {incr r} {
| > > | | | 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 |
incr r
set ::TmpPref(preprocess,name,$r) $name
set ::TmpPref(preprocess,active,$r) [dict get $data active]
set ::TmpPref(preprocess,save,$r) [dict get $data save]
set ::TmpPref(preprocess,re,$r) [dict get $data preprocess]
}
# Create one if there is none, to simplify GUI usage
set autoEdit 0
if {$r == 0} {
set autoEdit 1
incr r
}
set ::TmpPref(preprocess,n) 0
set nItems $r
ToplevelForce $w "Preferences: Preprocess"
# Frame for List of preprocessing
ttk::frame $w.fp -padding 3
grid columnconfigure $w.fp 0 -weight 1
for {set r 1} {$r <= $nItems} {incr r} {
EditPrefPreprocessAddItem $w $autoEdit
}
# Frame for action buttons
ttk::frame $w.fa -padding 3
ttk::button $w.fa.b1 -text "Add" \
-command [list EditPrefPreprocessAddItem $w 1]
addBalloon $w.fa.b1 "Add a preprocess group"
grid $w.fa.b1 -sticky we
grid columnconfigure $w.fa {0 2 4} -uniform a
grid columnconfigure $w.fa {1 3} -weight 1
|
| ︙ | ︙ |