You are here

클립보드 사용하기

bonkora의 아바타

Tcl/Tk에서 클립보드로 텍스트를 주고 받는 예제입니다.
버튼 하나에 텍스트 윗젯의 내용을 클립보드로 보내기 위한 명령을,
또 하나에는 클립보드의 내용을 텍스트 윗젯으로 갖고 오는 명령을
할당하였습니다.
메모장을 열어놓고 테스트 해보시면 되겠습니다.

물론 텍스트 윗젯에서 범위를 지정한 후 control-c를 이용해도 되겠지만
명령어를 사용하면 텍스트를 여러모로 조작한 후
클립보드로 보낼 수도 있기 때문에 유용할 때가 있을 것입니다.
혹 필요하신 분이 계실까봐 올려봅니다.

proc exportclip {} {
    # 클립보드의 내용을 지운다

    clipboard clear
   # 텍스트 윗젯의 내용을 클립보드에 보낸다
    clipboard append [.t get 0.0 end]
}

proc importclip {} {
    # 텍스트 윗젯의 내용을 지운다

    .t delete 0.0 end
   # 클립보드의 내용을 텍스트 윗젯으로 옮긴다
    .t insert end [selection get -selection CLIPBOARD]
}

text .t -width 60 -height 10
grid .t -

button .b1 -text "보내기" -font {fixed 10} -width 20 -command {exportclip}
button .b2 -text "가져오기" -font {fixed 10} -width 20 -command {importclip}
grid .b1 .b2

포럼: