Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | UI pretty much working now, need to polish and update user docs |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
bb18dda27aa3507e49a83c0f3efc45b8 |
User & Date: | kevin 2019-08-21 06:18:15 |
Context
2019-08-24
| ||
15:01 | Fix disappearing text in clickLink proc check-in: 9207cda0d8 user: kevin tags: trunk | |
2019-08-21
| ||
06:18 | UI pretty much working now, need to polish and update user docs check-in: bb18dda27a user: kevin tags: trunk | |
2019-08-20
| ||
12:47 | More progress check-in: 1e0323ae61 user: kevin tags: trunk | |
Changes
Changes to libs/manpower/manpower-main.tcl.
︙ | ︙ | |||
231 232 233 234 235 236 237 | ttk::separator .bottomsep1 -orient vertical pack .bottomsep1 -side bottom -fill both -expand no -side bottom #additional bindings bind .tool.toolbar.frame.browser <Return> {singleManPage} | | | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 | ttk::separator .bottomsep1 -orient vertical pack .bottomsep1 -side bottom -fill both -expand no -side bottom #additional bindings bind .tool.toolbar.frame.browser <Return> {singleManPage} bind .tool.toolbar.frame.entry <Return> {.middle.left.tree selection set "Search"} ttk::frame .bottom pack .bottom -side bottom -fill both -expand no ttk::separator .bottomsep -orient vertical pack .bottomsep -side bottom -fill both -expand no -side bottom |
︙ | ︙ | |||
490 491 492 493 494 495 496 | global status global rmanpath global cachedir .middle.left.tree selection remove [.middle.left.tree selection] set manitem [.tool.toolbar.frame.browser get] | < < | 490 491 492 493 494 495 496 497 498 499 500 501 502 503 | global status global rmanpath global cachedir .middle.left.tree selection remove [.middle.left.tree selection] set manitem [.tool.toolbar.frame.browser get] clearData clearText .middle.right.lower.right.log configure -state normal after 50 set rawman [exec man $manitem > $cachedir/$manitem-man.txt 2>$cachedir/manerror] |
︙ | ︙ | |||
594 595 596 597 598 599 600 | if {$searchterm == ""} { return } clearData clearText | | | 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 | if {$searchterm == ""} { return } clearData clearText set status "Man pages with keyword \"$searchterm\"" set parsesearch [lsearch -all -inline $manlist *$searchterm*] foreach "item" $parsesearch { .middle.right.upper.frame.listbox insert {} end -values $item } } |
︙ | ︙ | |||
625 626 627 628 629 630 631 | proc manCat {} { global manlist set catlist "" clearData clearText | | | < | | | | 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 | proc manCat {} { global manlist set catlist "" clearData clearText set basecat [.middle.left.tree item [.middle.left.tree selection] -text] set interimnum [lindex [split $basecat \.] 0] foreach item $manlist { if {[regexp \\($interimnum\\) [lindex $item 0]]} { set manpage [lindex $item 0] set description [lindex $item 1] lappend interimcat [list $manpage $description] } else { continue } } set sortlist [lsort -dictionary $interimcat] set catlist [lrange $sortlist 1 end-1] foreach item $catlist { .middle.right.upper.frame.listbox insert {} end -values $item } } |
︙ | ︙ |