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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to libs/manpower/manpower-main.tcl.

   351    351   
   352    352       ttk::frame .middle.right.lower.right -height 100
   353    353       pack .middle.right.lower.right -side right -fill both -expand yes
   354    354   
   355    355       #output display--text
   356    356       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
   357    357   
          358  +    tclservices::registerservicewidget .middle.right.lower.right.log
          359  +    bind  .middle.right.lower.right.log <<Selection>> checkTextSelection 
          360  +
   358    361   
   359    362       scrollbar .middle.right.lower.right.vsb -command ".middle.right.lower.right.log yview" 
   360    363   
   361    364       pack .middle.right.lower.right.log -side left -fill both -expand yes
   362    365       pack .middle.right.lower.right.vsb -side right -fill y
   363    366   
   364    367       .middle.right.lower.right.log tag configure manref -foreground blue -underline on
................................................................................
  1319   1322   
  1320   1323       if {[.tool.toolbar.frame.browser  selection present]} {
  1321   1324   	updateClipboard [ttk::entry::EntrySelection .tool.toolbar.frame.browser ] 
  1322   1325       } else {
  1323   1326   	return
  1324   1327       }
  1325   1328   }
         1329  +
         1330  +#check for selection in text widget
         1331  +proc checkTextSelection {} {
         1332  +
         1333  +     updateClipboard  [.middle.right.lower.right.log get sel.first sel.last]
         1334  +}
         1335  +
  1326   1336   
  1327   1337   ##write selected text to clipboard
  1328   1338   proc updateClipboard {selection} {
  1329   1339   
  1330   1340       clipboard clear
  1331   1341       clipboard append $selection
  1332   1342