Tk 최상위 윈도우 경로에 고유 한 이름을 생성하는 방법은 무엇입니까?

Question

Tk 최상위 윈도우 경로에 대해 사용되지 않는 이름을 생성하는 방법이 필요합니다. 이는 #auto처럼 Itcl 객체에 사용됩니다.

어떻게하면됩니까? 어쩌면 Tk도 비슷한 유틸리티를 가지고 있을까요?

Answer 1

, 나는 이런 식으로 뭔가를 사용 : 존재하지 않는 위젯의 이름을 반환하는 보장의

variable sequencecounter 0; # Don't touch outside this code! 
proc unique {{parent ""}} { 
    variable sequencecounter 
    while {[winfo exists [set w $parent.w$sequencecounter]]} { 
     incr sequencecounter 
    } 
    return $w 
} 

. (TK는 더 심한 경쟁 조건이없는 알 수 있도록 단일 스레드를 실행하도록 보장한다.) 이런 식으로 사용 :

set top [toplevel [unique]] 
set btn [button [unique $top] -text "Hi" -command { exit }] 
pack $btn 

Answer 2

은 아마 그것을 할 몇 가지 애호가 방법이 있습니다,하지만 고유 한 이름이 필요 내 경우에는, 난 그냥, 시간 데이터에서 기타 등의 많은있다

set systemTime [clock seconds]; 
set myname [concat [clock format $systemTime -format %H%M%S] ".myext"] 

같은 것을 하나를 구성 다른 서식 지정 가능성.

우아하지는 않지만 내 물건에 대해 작업하고 있으며, 특정 트랙을 유지해야하는 경우에도 유용합니다. 나는 독특한 위젯 이름을 필요로 할 때