2025/03 검색 결과

해당 글 50건

필요시만 스크롤바 보이게 하기

출처: http://wiki.tcl.tk/950 아래의 코드를 이용하면 필요할때만 스크롤바를 보이게 할 수 있습니다.#----------------------------------------------------------------------## autoscroll.tcl --## Package to create scroll bars that automatically appear when# a window is too small to display its content.##---------------------------------------------------------------------- package provide autoscroll 1.0 namespace eval a..
Tcl & Tk/팁 (Tip) 2025. 3. 6. 16:02

Wish8x를 실행시킬 때 마다 특정 코드를 자동실행

bonkora 님이 제공해 주신 팁입니다.ActiveTcl을 사용하시는 경우 Wish8x를 실행시키면 콘솔 창과 wish8x 창이 뜹니다. 이럴 때 마다 특정 코드를 자동적으로 실행시키기를 원한다면 그 코드를 ActiveTcl이 설치되어 있는 디렉터리의 아래에 있는 파일 lib\tk8.x\tk.tcl을 찾아서 맨 끝에다가 원하는 코드를 넣어 놓으면 됩니다. 예를 들어 ActiveTcl이 C:\Tcl에 설치되어 있다면 파일 C:\Tcl\lib\tk8.x\tk.tcl을 편집하면 되겠습니다. 저의 경우 이 tk.tcl의 맨 끝에 아래의 한 줄을 넣어 놓고source "C:/Documents and Settings/Administrator/My Documents/tcl/init.tcl"자동실행시킬 코드는 내 문..
Tcl & Tk/팁 (Tip) 2025. 3. 6. 15:57

특정 윈도우의 자식 윗젯들을 한꺼번에 없애기

bonkora 님이 제공해 주신 팁입니다.ActiveTcl의 Wish8x를 실행시켜 wish8x 창과 콘솔 창을 띄운 후 만든 코드를 콘솔에서 실행시키고 난 뒤에 한번 더 코드를 실행시키면 "window name "xxx" already exists in parent"라는 에러메시지가 뜨면서 실행이 멈춥니다. 처음에 코드를 실행시킬 때 만든 위젯들이 있기 때문인데 같은 코드를 실행시킬 때는 앞서 만든 위젯들을 모두 없애야 합니다. 일일이 위젯들을 없애기는 불편하기 때문에 아래의 프러시저가 유용할 것입니다. proc clw {{w .}} { foreach {mywidgets} [winfo children $w] { destroy $mywidgets }}메인 윈도우인 "."의 자식 위..
Tcl & Tk/팁 (Tip) 2025. 3. 6. 15:56

음악에 쓰이는 음들의 진동수(주파수) 구하는 식

bonkora 님이 제공해 주신 팁입니다. 음악에 쓰이는 음들의 높낮이를 진동수 또는 주파수로 표현할 수 있습니다. 세계적인 표준으로 쓰이는 음이 440Hz의 음이고 이것이 A음인데 다장조에서의 "라"가 되겠습니다. 피아노 건반에서 49번째 건반의 소리입니다. 한 옥타브 높거나 낮은음은 그 음의 진동수의 각각 두 배와 1/2입니다. 즉 440Hz의 A음보다 한 옥타브 낮은 A음은 220Hz이며 또 이것보다 한 옥타브 낮은 A음은 110Hz입니다. 반대로 440Hz의 A음보다 한 옥타브 높은 A음은 440Hz이며 또 이것보다 한 옥타브 높은 A음은 880Hz입니다. 440Hz A음에서 반음씩 올라가는 음들의 진동수를 구하려면 이렇게 합니다.A = 440 A# = 440 * 2^(1/12) B = 440 *..
Tcl & Tk/팁 (Tip) 2025. 3. 6. 15:47

문자열로 비트맵 이미지 만들기

bonkora 이 제공해 주신 팁입니다.제가 시험해 보니 MS윈도의 비트맵 파일은 Tcl/Tk에서 불러서 사용할 수 없습니다. Tcl/Tk의 비트맵 이미지는 전경색과 배경색으로 이루어져 있습니다. 각 픽셀이 전경색으로 되어 있는지 배경색으로 되어 있는지를 문자열에 기록하여 이것으로 비트맵 이미지를 만드는 방법이 있어 소개드립니다. 이 내용은 wiki.tcl.tk에서 구한 자료를 참조하였습니다. proc str2bmp strimj { set width [string length [lindex $strimj 0]] set height [llength $strimj] set bytes {} foreach line [string map {. 0} $strimj] { regsu..
Tcl & Tk/팁 (Tip) 2025. 3. 6. 14:53

TDK (Tcl Dev Kit) 오픈 소스

홈페이지: https://github.com/ActiveState/tdk Tcl 개발 키트(TDK)에는 독립적이고 쉽게 배포할 수 있는 애플리케이션을 빠르게 개발하는 데 필요한 모든 것이 포함되어 있습니다. Tcl 프로그램을 바로 실행할 수 있는 실행 파일, 스타킷 또는 스타팩으로 전환하여 Windows, Mac OS X, Linux, Solaris, AIX 및 HP-UX에 사용할 수 있습니다. 버그를 찾아서 수정하고, 복잡한 코드 베이스를 관리하고, 프로그램을 최적화하는 도구로 개발을 간소화하세요. 커버리지 및 핫스팟 분석기를 사용하여 사용하지 않거나 과도하게 사용된 코드를 쉽게 찾아내세요. 대부분의 도구에 대해 GUI 또는 명령줄 인터페이스를 선택하여 원하는 방식으로 제어하고 작업할 수 있습니다. T..
Tcl & Tk/툴 (Tool) 2025. 3. 6. 10:07