tcl/tk 클립 보드 관찰

Question

클립 보드에 무엇인가가 입력되면 함수를 실행하고 싶습니다 (예 : strg + c).

TCL/TK에서 클립 보드를 관찰하여 무언가가 켜지면 알림을 처리 할 수 ​​있습니다 (이벤트 기반).

나는 약간의 조사를했고, 명령은 after이 아니었다.

proc observeClipboard {} { 

     set lClipboardContent [clipboard get] 
     # do something with clipboard content 
     after 1000 observeClipboard 
} 

예상대로 작동하지 않으며 이벤트 구동 (더 매끄러운) 솔루션이 아닙니다.

Answer 1

가장 간단한 방법은 항상 클립 보드 선택 항목을 소유하는 것입니다.
여기에는 몇 가지 단점이 있습니다. 클립 보드에 책임이 있으며 일부 클립 보드 내용이 손실 될 수 있습니다. 따라서 이것은 방탄이 아닙니다. 호출 될 때 readclip

proc readclip {} { 
    after 50 { 
     puts [set cnt [clipboard get]] 
     clipboard clear 
     clipboard append $cnt 
     selection own -command readclip -selection CLIPBOARD . 
     selection handle . [list string range $cnt] 
    } 
} 
selection own -command readclip -selection CLIPBOARD . 

, 새로운 응용 프로그램은 클립 보드를 통해 소유권을 요청했지만 아직 소유권이없는, 그래서 우리는 등이 그것을 얻을 수 있도록하는 비트 설정 모든

을 기다립니다

두 개 이상의 응용 프로그램에서이 작업을 수행하는 경우 두 응용 프로그램 모두 클립 보드의 소유권에 "싸움"한다는 점에 유의하십시오. 이는 잘못된 것입니다.