Manpower

Check-in [9950b08b34]
Login

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
Hide Diffs Unified Diffs Show Whitespace Changes Patch

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