Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Clear text when new directory added |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
3fad865399fc78d307099053f07bba04 |
User & Date: | kevin 2018-05-14 12:23:08 |
Context
2018-06-05
| ||
03:12 | Tweak software for GUI without console on Windows check-in: 1b3b2f81d2 user: kevin tags: trunk | |
2018-05-14
| ||
12:23 | Clear text when new directory added check-in: 3fad865399 user: kevin tags: trunk | |
2018-04-26
| ||
03:10 | Fix DMG corruption in software update package check-in: 79d360d6dd user: kevin tags: trunk | |
Changes
Changes to scriptlibs/textsweep/textsweep-main.tcl.
︙ | ︙ | |||
327 328 329 330 331 332 333 | bind all <[xplat::controlkey]-Z> batchUndo bind all <[xplat::controlkey]-z> batchUndo focus -force .f.foldersearch.foldervar } | > > > > > | > > > | 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 | bind all <[xplat::controlkey]-Z> batchUndo bind all <[xplat::controlkey]-z> batchUndo focus -force .f.foldersearch.foldervar } #clear text contents proc clearText {} { .f.text.frame.t configure -state normal .f.text.frame.t delete 1.0 end .f.text.frame.t configure -state disabled } #set search directory proc setDir {} { global folder global patternvar global searchterm global searchvar global filelist set searchterm $searchvar catch {.f.text.list.listbox delete 0 end} catch {clearText} set folder [tk_chooseDirectory -parent . -initialdir $::env(HOME)] if { $folder == ""} { return; # they clicked cancel } else { set filelist [glob -type f -nocomplain -directory [join $folder] $patternvar] foreach item $filelist { |
︙ | ︙ | |||
466 467 468 469 470 471 472 | .f.text.frame.t delete 1.0 end .f.text.frame.t insert end $displaytext .f.text.frame.t configure -state disabled return } | < | < | 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 | .f.text.frame.t delete 1.0 end .f.text.frame.t insert end $displaytext .f.text.frame.t configure -state disabled return } clearText .f.text.frame.t tag configure search -background yellow set filename [lindex [.f.text.list.listbox get [.f.text.list.listbox curselection]] 0] if [file isdirectory $filename] { return |
︙ | ︙ | |||
551 552 553 554 555 556 557 | global searchterm global searchvar global filelist set selectedfile [ .f.text.list.listbox get [ .f.text.list.listbox curselection]] .f.text.list.listbox delete 0 end | > | | 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 | global searchterm global searchvar global filelist set selectedfile [ .f.text.list.listbox get [ .f.text.list.listbox curselection]] .f.text.list.listbox delete 0 end clearText set filelist [glob -type f -nocomplain -directory [join $folder] $patternvar] foreach item $filelist { if {[checkTextType $item] >= 0} { .f.text.list.listbox insert end [list $item] } } |
︙ | ︙ | |||
582 583 584 585 586 587 588 589 590 591 592 593 594 595 | global patternvar global searchterm global searchvar set searchterm $searchvar catch {.f.text.list.listbox delete 0 end} if {[file isfile $fname]} { return } if {[file isdir $fname]} { set folder $fname | > | > | 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 | global patternvar global searchterm global searchvar set searchterm $searchvar catch {.f.text.list.listbox delete 0 end} catch {clearText} if {[file isfile $fname]} { return } if {[file isdir $fname]} { set folder $fname .f.text.list.listbox delete 0 end clearText set filelist [glob -type f -nocomplain -directory [join $folder] $patternvar] foreach item $filelist { if {[checkTextType $item] >= 0} { .f.text.list.listbox insert end [list $item] } } |
︙ | ︙ | |||
686 687 688 689 690 691 692 693 694 695 696 697 698 | global filename global filelist global patternvar global searchterm global searchvar catch {.f.text.list.listbox delete 0 end} if {[file isfile $folder]} { return } if {[file isdir $folder]} { | > | > | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 | global filename global filelist global patternvar global searchterm global searchvar catch {.f.text.list.listbox delete 0 end} catch {clearText} if {[file isfile $folder]} { return } if {[file isdir $folder]} { .f.text.list.listbox delete 0 end clearText set filelist [glob -type f -nocomplain -directory [join $folder] $patternvar] foreach item $filelist { if {[checkTextType $item] >= 0} { .f.text.list.listbox insert end [list $item] } } |
︙ | ︙ |