Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further tweak of services api |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9950b08b34dfb60282df6d511f32f38b |
| User & Date: | kevin 2017-12-09 05:27:10 |
Context
|
2018-04-23
| ||
| 02:05 | Rev bump check-in: b1cd9f7086 user: kevin tags: trunk | |
|
2017-12-09
| ||
| 05:27 | Further tweak of services api check-in: 9950b08b34 user: kevin tags: trunk | |
| 04:51 | Minor fix to services check-in: c1d549749d user: kevin tags: trunk | |
Changes
Changes to libs/manpower/manpower-main.tcl.
| ︙ | ︙ | |||
351 352 353 354 355 356 357 358 359 360 361 362 363 364 |
ttk::frame .middle.right.lower.right -height 100
pack .middle.right.lower.right -side right -fill both -expand yes
#output display--text
text .middle.right.lower.right.log -borderwidth .1 -relief sunken -wrap word -highlightcolor SlateGray3 -yscrollcommand {.middle.right.lower.right.vsb set} -bg white -state disabled
scrollbar .middle.right.lower.right.vsb -command ".middle.right.lower.right.log yview"
pack .middle.right.lower.right.log -side left -fill both -expand yes
pack .middle.right.lower.right.vsb -side right -fill y
.middle.right.lower.right.log tag configure manref -foreground blue -underline on
| > > > | 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 |
ttk::frame .middle.right.lower.right -height 100
pack .middle.right.lower.right -side right -fill both -expand yes
#output display--text
text .middle.right.lower.right.log -borderwidth .1 -relief sunken -wrap word -highlightcolor SlateGray3 -yscrollcommand {.middle.right.lower.right.vsb set} -bg white -state disabled
tclservices::registerservicewidget .middle.right.lower.right.log
bind .middle.right.lower.right.log <<Selection>> checkTextSelection
scrollbar .middle.right.lower.right.vsb -command ".middle.right.lower.right.log yview"
pack .middle.right.lower.right.log -side left -fill both -expand yes
pack .middle.right.lower.right.vsb -side right -fill y
.middle.right.lower.right.log tag configure manref -foreground blue -underline on
|
| ︙ | ︙ | |||
1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 |
if {[.tool.toolbar.frame.browser selection present]} {
updateClipboard [ttk::entry::EntrySelection .tool.toolbar.frame.browser ]
} else {
return
}
}
##write selected text to clipboard
proc updateClipboard {selection} {
clipboard clear
clipboard append $selection
| > > > > > > > | 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 |
if {[.tool.toolbar.frame.browser selection present]} {
updateClipboard [ttk::entry::EntrySelection .tool.toolbar.frame.browser ]
} else {
return
}
}
#check for selection in text widget
proc checkTextSelection {} {
updateClipboard [.middle.right.lower.right.log get sel.first sel.last]
}
##write selected text to clipboard
proc updateClipboard {selection} {
clipboard clear
clipboard append $selection
|
| ︙ | ︙ |