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
}
}
|
| ︙ | ︙ |