Browse code
rehelper: add button to copy the PRIMARY selection to the CLIPBOARD selection
Dario Rodriguez authored on 01/02/2024 19:52:55
Showing 1 changed files
| ... | ... |
@@ -23,8 +23,12 @@ wm geometry . 128x42 |
| 23 | 23 |
|
| 24 | 24 |
option add *font "-*-*-*-*-*-*-20-*-*-*-*-*-*-*" |
| 25 | 25 |
|
| 26 |
+button .b0 -text copysel -command {
|
|
| 27 |
+ selection handle -selection CLIPBOARD . selectionrequest |
|
| 28 |
+ selection own -selection CLIPBOARD . } -font "-*-*-*-*-*-*-12-*-*-*-*-*-*-*" |
|
| 29 |
+pack .b0 -side left -fill both -expand false |
|
| 26 | 30 |
button .b -text Exit -command exit |
| 27 |
-pack .b -side top -fill both -expand true |
|
| 31 |
+pack .b -side left -fill both -expand true |
|
| 28 | 32 |
|
| 29 | 33 |
set curselection "" |
| 30 | 34 |
|