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: | 9950b08b34dfb60282df6d511f32f38bea0998ac |
| 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
....
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
|
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
................................................................................
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
|
>
>
>
>
>
>
>
>
>
>
|
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
....
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
|
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
................................................................................
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
|