Korea Tcl/Tk Community

bgexec 3.5

티클러 — Wed, 6 May 2026 15:40:47 +0900

출처: https://wiki.tcl-lang.org/page/Enhanced+Standalone+Bgexec+for+Unix+and+Windows

BLT의 bgexec를 critical 로 구현한 패키지로, 하나 이상의 프로세스를 포그라운드 또는 백그라운드로 실행하고, 표준 출력(stdout)과 표준 에러(stderr)를 Tcl 변수나 콜백 함수로 받을수 있는 확장 패키지입니다.

bgexec3-5.zip

2.31MB

날씨 정보 MCP 서버

티클러 — Wed, 29 Apr 2026 12:43:29 +0900

FastMCP로 구현함..

from mcp.server.fastmcp import FastMCP
import httpx
from datetime import datetime
from geopy.geocoders import Nominatim

# FastMCP 서버 초기화
mcp = FastMCP("Weather Server")

def get_weather_description(code: int) -> str:
    """WMO 날씨 코드를 한글 설명으로 변환"""
    weather_codes = {
        0: "맑음",
        1: "대체로 맑음",
        2: "부분적으로 흐림",
        3: "흐림",
        45: "안개",
        48: "서리 안개",
        51: "가벼운 이슬비",
        53: "보통 이슬비",
        55: "강한 이슬비",
        61: "약한 비",
        63: "보통 비",
        65: "강한 비",
        71: "약한 눈",
        73: "보통 눈",
        75: "강한 눈",
        77: "진눈깨비",
        80: "약한 소나기",
        81: "보통 소나기",
        82: "강한 소나기",
        85: "약한 눈 소나기",
        86: "강한 눈 소나기",
        95: "뇌우",
        96: "약한 우박을 동반한 뇌우",
        99: "강한 우박을 동반한 뇌우",
    }
    return weather_codes.get(code, f"알 수 없는 날씨 (코드: {code})")


@mcp.tool()
async def get_weather(region: str) -> str:
    """
    주소로 검색하여 현재 날씨 정보를 가져옵니다.  (예: 서울특별시 강남구 역삼동)

    Args:
        region: 주소

    Returns:
        날씨 정보 문자열
    """
    geolocator = Nominatim(user_agent="SouthKorea")
    location = geolocator.geocode(region)

    if location:
        print(f"위도: {location.latitude}, 경도: {location.longitude}")
    else:
        return f"'{region}' 주소를 찾을수 없습니다."

    try:
        # Open-Meteo API 사용 (무료, API 키 불필요)
        url = "https://api.open-meteo.com/v1/forecast"
        params = {
            "latitude": location.latitude,
            "longitude": location.longitude,
            "current": "temperature_2m,relative_humidity_2m,weather_code,wind_speed_10m",
            "timezone": "Asia/Seoul"
        }

        async with httpx.AsyncClient() as client:
            response = await client.get(url, params=params)
            response.raise_for_status()
            data = response.json()

        current = data["current"]
        temp = current["temperature_2m"]
        humidity = current["relative_humidity_2m"]
        wind_speed = current["wind_speed_10m"]
        weather_code = current["weather_code"]

        weather_description = get_weather_description(weather_code)

        result = f"""
{location} 날씨 정보
━━━━━━━━━━━━━━━━━━━━
온도: {temp}°C
습도: {humidity}%
풍속: {wind_speed} km/h
날씨: {weather_description}
━━━━━━━━━━━━━━━━━━━━
조회 시간: {datetime.now().strftime('%Y-%m-%d %H:%M:%S')}
        """

        return result.strip()

    except Exception as e:
        return f"날씨 정보를 가져오는 중 오류가 발생했습니다: {str(e)}"

def main():
    mcp.run()

if __name__ == "__main__":
    main()

테스트..

Tohil

티클러 — Tue, 28 Apr 2026 12:11:19 +0900

홈페이지: https://github.com/flightaware/tohil

Tohil

은 파이썬과 TCL 사이의 통합을 제공하는 것을 목표로 합니다.

Tohil은 파이썬 확장인 동시에 TCL 확장이기도 하며, Tcl 8.6 이상 및 Python 3.6 이상 버전에서 Tcl과 파이썬 간의 유연한 양방향 호출을 가능하게 합니다.

Tohil은 오픈 소스 소프트웨어이며, 허용적인 '3-clause BSD 라이선스'(LICENSE.txt 참조)에 따라 영리 목적이나 재배포를 포함하여 무료로 사용할 수 있습니다.

Tohil의 발음은 취향에 따라 '토-힐(toe-heel)' 또는 '토-힐(toe-hill)'로 부를 수 있습니다.

Tohil은 튜토리얼과 레퍼런스를 포함하여 계속해서 늘어나고 있는 문서들을 갖추고 있으며, https://flightaware.github.io/tohil-docs/ 에서 확인하실 수 있습니다.

>>> import tohil
>>> clock = 1616182348
>>> tohil.eval(f"clock format {clock} -locale es -gmt 1", to=str)
'vie mar 19 19:32:28 GMT 2021'

>>> tohil.eval('set a [list a 1 b 2 c 3]')
'a 1 b 2 c 3'
>>> tohil.eval('return $a', to=list)
['a', '1', 'b', '2', 'c', '3']
>>> tohil.eval('return $a',to=dict)
{'a': '1', 'b': '2', 'c': '3'}

>>> a, b, c = tohil.eval("list 1 2 3", to=tuple)
>>> c
'3'

>>> import tohil
>>> a = tohil.eval('list 1 [list 2 4 5] 3')
>>> print(a)
1 {2 4 5} 3

>>> import tohil
>>> tohil.eval('set a(99) goof')
'goof'
>>> tohil.eval('set a(5) foo')
'foo'
>>> tohil.getvar('a','99')
'goof'
>>> tohil.getvar(array='a',var='5')
'foo'
>>> tohil.getvar(array='a',var='16')


>>> tohil.eval('set a [list a 1 b 2 c 3]')
'a 1 b 2 c 3'
>>> tohil.subst("$a")
'a 1 b 2 c 3'
>>> tohil.eval('return $a')
'a 1 b 2 c 3'
>>> tohil.eval('return $a',to=list)
['a', '1', 'b', '2', 'c', '3']
>>> tohil.eval('return $a',to=dict)
{'a': '1', 'b': '2', 'c': '3'}

>>> tohil.eval(to=list,tcl_code="return [list 1 2 3 4]")
['1', '2', '3', '4']

package require tohil

puts "calling out to Python to add 5 + 5: [::tohil::eval "5 + 5"]"

tohil::exec {
print('hello, world')
}

tohil-main.zip

0.33MB

FastSignals

티클러 — Tue, 3 Feb 2026 10:13:30 +0900

홈페이지: https://github.com/ispringtech/FastSignals

Qt 스타일의 Signal 처리 라이브러리..

connect
emit
disconnect

// Creates signal and connects 1 slot, calls 2 times, disconnects, calls again.
// Outputs:
//  13
//  17
#include "libfastsignals/signal.h"

using namespace fastsignals;

int main()
{
    signal<void(int)> valueChanged;
    connection conn;
    conn = valueChanged.connect([](int value) {
        cout << value << endl;
    });
    valueChanged(13);
    valueChanged(17);
    conn.disconnect();
    valueChanged(42);
}

FastSignals-master.zip

0.13MB

LMDB를 이용한 Tree DB

티클러 — Thu, 8 Jan 2026 03:06:35 +0900

#include <iostream>
#include <string>
#include <vector>
#include <cstdint>
#include <lmdb.h>

class TreeDB {
private:
	MDB_env *env = nullptr;
	MDB_dbi dbi;
	std::string dbPath;
	size_t currentMapSize;

	// DB 초기화 및 오픈 (공통 로직)
	void initDB(size_t newSize) {
		if (env) mdb_env_close(env); // 기존 환경 닫기

		mdb_env_create(&env);
		mdb_env_set_mapsize(env, newSize);
		// MDB_WRITEMAP: 쓰기 시 성능 향상 및 확장 시 유리
		int rc = mdb_env_open(env, dbPath.c_str(), MDB_NOSUBDIR, 0664);

		if (rc != 0) {
			throw std::runtime_error("DB Open Failed!");
		}

		MDB_txn *txn;
		mdb_txn_begin(env, NULL, 0, &txn);
		mdb_dbi_open(txn, NULL, 0, &dbi);
		mdb_txn_commit(txn);

		currentMapSize = newSize;
		std::cout << "[System] DB Capacity Updated: " << currentMapSize / 1024 / 1024 << "MB" << std::endl;
	}

public:
	TreeDB(const std::string& path, size_t initialSize = 1048576) : dbPath(path) { // 기본 1MB
		initDB(initialSize);
	}

	~TreeDB() {
		mdb_dbi_close(env, dbi);
		mdb_env_close(env);
	}

	// 용량 부족 시 자동 재시도 로직이 포함된 Insert
	// 노드 추가 (부모 경로 + 현재 이름)
	bool insertNode(const std::string& parentPath, const std::string& nodeName, const std::string& value) {
		std::string fullPath = parentPath.empty() ? nodeName : parentPath + "/" + nodeName;

		MDB_val key, data;
		key.mv_size = fullPath.size();
		key.mv_data = (void*)fullPath.c_str();
		data.mv_size = value.size();
		data.mv_data = (void*)value.c_str();

		while (true) {
			MDB_txn *txn;
			mdb_txn_begin(env, NULL, 0, &txn);

			int rc = mdb_put(txn, dbi, &key, &data, 0);

			if (rc == MDB_MAP_FULL) {
				// 용량이 꽉 찼을 경우 현재 트랜잭션 취소
				mdb_txn_abort(txn);

				// 용량을 2배로 키워서 DB 재오픈
				initDB(currentMapSize * 2);

				// 루프를 통해 다시 시도 (while true)
				continue; 
			} else if (rc != 0) {
				mdb_txn_abort(txn);
				return false;
			}

			mdb_txn_commit(txn);
			return true;
		}
	}

	// 바이너리 데이터 저장을 위한 오버로딩 또는 수정
	bool insertNode(const std::string& parentPath, const std::string& nodeName, const std::vector<uint8_t>& binaryData) {
		std::string fullPath = parentPath.empty() ? nodeName : parentPath + "/" + nodeName;

		MDB_val key, data;
		// 1. 키(경로) 설정
		key.mv_size = fullPath.size();
		key.mv_data = (void*)fullPath.c_str();

		// 2. 바이너리 데이터 설정
		data.mv_size = binaryData.size();
		data.mv_data = (void*)binaryData.data(); // 바이트 배열의 시작 주소

		while (true) {
			MDB_txn *txn;
			mdb_txn_begin(env, NULL, 0, &txn);

			int rc = mdb_put(txn, dbi, &key, &data, 0);

			if (rc == MDB_MAP_FULL) {
				mdb_txn_abort(txn);
				initDB(currentMapSize * 2);
				continue; 
			} else if (rc != 0) {
				mdb_txn_abort(txn);
				return false;
			}

			mdb_txn_commit(txn);
			return true;
		}
	}

	// 특정 노드 및 자식 노드 검색 
	void listChildren(const std::string& path) {
		MDB_txn *txn;
		MDB_cursor *cursor;
		mdb_txn_begin(env, NULL, MDB_RDONLY, &txn);
		mdb_cursor_open(txn, dbi, &cursor);

		MDB_val key, data;
		key.mv_size = path.size();
		key.mv_data = (void*)path.c_str();

		// 경로로 이동
		int rc = mdb_cursor_get(cursor, &key, &data, MDB_SET_RANGE);

		while (rc == 0) {
			std::string foundKey((char*)key.mv_data, key.mv_size);

			// 현재 경로로 시작하는 데이터만 출력 (자식들)
			if (foundKey.find(path) != 0) break;

			std::cout << "Path: " << foundKey << " | Value: " << (char*)data.mv_data << std::endl;
			rc = mdb_cursor_get(cursor, &key, &data, MDB_NEXT);
		}

		mdb_cursor_close(cursor);
		mdb_txn_abort(txn);
	}

	// 특정 노드와 그 하위의 모든 자식 노드를 삭제하는 함수
	void deleteNodeRecursive(const std::string& path) {
		if (path.empty()) return;

		MDB_txn *txn;
		MDB_cursor *cursor;

		// 쓰기 트랜잭션 시작
		int rc = mdb_txn_begin(env, NULL, 0, &txn);
		if (rc != 0) return;

		rc = mdb_cursor_open(txn, dbi, &cursor);
		if (rc != 0) {
			mdb_txn_abort(txn);
			return;
		}

		MDB_val key, data;
		key.mv_size = path.size();
		key.mv_data = (void*)path.c_str();

		// 삭제를 시작할 위치(해당 경로)를 찾음
		rc = mdb_cursor_get(cursor, &key, &data, MDB_SET_RANGE);

		while (rc == 0) {
			std::string foundKey((char*)key.mv_data, key.mv_size);

			// 현재 찾은 키가 삭제하려는 path로 시작하는지 확인 (Prefix Check)
			// 예: path가 "Users/Alice"일 때 "Users/Alice/ProjectA"는 삭제 대상임
			if (foundKey.find(path) == 0) {
				// 해당 노드 삭제
				rc = mdb_cursor_del(cursor, 0);
				if (rc != 0) break;

				// 다음 노드로 이동 (삭제 후에는 현재 커서 위치가 다음 노드를 가리킴)
				rc = mdb_cursor_get(cursor, &key, &data, MDB_GET_CURRENT);
			} else {
				// 더 이상 해당 경로로 시작하는 키가 없으면 중단
				break;
			}
		}

		// 커서 닫기 및 트랜잭션 커밋 (실제 파일에 반영)
		mdb_cursor_close(cursor);
		mdb_txn_commit(txn);

		std::cout << "Successfully deleted path and its children: " << path << std::endl;
	}

	// ASCII 문자열로 가져오기 (std::string 반환)
	std::string getNodeValueAscii(const std::string& fullPath) {
		MDB_txn *txn;
		// 읽기 전용 트랜잭션은 가볍고 빠릅니다.
		int rc = mdb_txn_begin(env, NULL, MDB_RDONLY, &txn);
		if (rc != 0) return "";

		MDB_val key, data;
		key.mv_size = fullPath.size();
		key.mv_data = (void*)fullPath.c_str();

		rc = mdb_get(txn, dbi, &key, &data);

		std::string result = "";
		if (rc == 0) {
			// LMDB 내부 메모리 영역을 std::string으로 복사
			result.assign(reinterpret_cast<char*>(data.mv_data), data.mv_size);
		}

		mdb_txn_abort(txn); // 읽기 트랜잭션은 abort로 종료 (변경사항 없음)
		return result;
	}

	// Binary 데이터로 가져오기 (std::vector<uint8_t> 반환)
	std::vector<uint8_t> getNodeValueBinary(const std::string& fullPath) {
		MDB_txn *txn;
		int rc = mdb_txn_begin(env, NULL, MDB_RDONLY, &txn);
		if (rc != 0) return {};

		MDB_val key, data;
		key.mv_size = fullPath.size();
		key.mv_data = (void*)fullPath.c_str();

		rc = mdb_get(txn, dbi, &key, &data);

		std::vector<uint8_t> result;
		if (rc == 0) {
			// 바이너리 데이터는 안전하게 vector로 복사하여 전달
			uint8_t* ptr = reinterpret_cast<uint8_t*>(data.mv_data);
			result.assign(ptr, ptr + data.mv_size);
		}

		mdb_txn_abort(txn);
		return result;
	}
};

int main() 
{
	TreeDB db("mytree.db");

	// 아스키 데이타 삽입
	db.insertNode("", "Users", "Root for users");
	db.insertNode("Users", "Alice", "Developer");
	db.insertNode("Users", "Bob", "Designer");
	db.insertNode("Users/Alice", "ProjectA", "Lead");

	// 바이너리 데이타 삽입
	std::vector<uint8_t> data;
	for(int i=0; i<10; i++) data.push_back(i);
	db.insertNode("Users/Alice", "Data", data);

	// 트리 구조 출력
	std::cout << "--- Tree Structure under 'Users' ---" << std::endl;
	db.listChildren("Users");
	std::cout << "--- Tree Structure under 'Users/Alice' ---" << std::endl;
	db.listChildren("Users/Alice");

	// ASCII 데이터 읽기
	std::string value = db.getNodeValueAscii("Users/Bob");
	std::cout << "Value: " << value << std::endl;

	// Binary 데이터 읽기
	std::vector<uint8_t> data2 = db.getNodeValueBinary("Users/Alice/Data");
	if (!data2.empty()) {
		for(int i=0; i<data2.size(); i++) {
			printf("0x%x ", data2[i]);
		}
	}
	printf("\n");

	return 0;
}

테스트..

[MIN@DESKTOP-RSH0QT3 temp]$ g++ treedb.cpp  -llmdb

[MIN@DESKTOP-RSH0QT3 temp]$ ./a
[System] DB Capacity Updated: 1MB
--- Tree Structure under 'Users' ---
Path: Users | Value: Root for users
Path: Users/Alice | Value: Developer
Path: Users/Alice/Data | Value:
Path: Users/Alice/ProjectA | Value: Lead
Path: Users/Bob | Value: Designer
--- Tree Structure under 'Users/Alice' ---
Path: Users/Alice | Value: Developer
Path: Users/Alice/Data | Value:
Path: Users/Alice/ProjectA | Value: Lead
Value: Designer
0x0 0x1 0x2 0x3 0x4 0x5 0x6 0x7 0x8 0x9

Prebuilt Tclkit

티클러 — Mon, 5 Jan 2026 23:10:40 +0900

The files below are pre-built Tclkit binaries for various Tcl/Tk versions. They are supported only on 64-bit Windows.

Drawing clipping cap

티클러 — Mon, 5 Jan 2026 23:04:09 +0900

OpenGL에서 솔리드 파트의 경우 Clipping 시에 cap을 씌우는 기능을 드디어 완료함..

아래는 cap 씌우기전...

아래는 cap 씌운후...

plane도 그려봄..

다양한 방향으로 clipping..

Ray intersection with Embree 4

티클러 — Fri, 26 Dec 2025 21:32:28 +0900

Embree 4를 이용한.. Ray intersection..

#include <embree4/rtcore.h>
#include <iostream>
#include <vector>
#include <limits>

// 내부 에러 발생 시 호출
void errorHandler(void* userPtr, enum RTCError code, const char* str) {
    std::cerr << "Embree Error: " << str << std::endl;
}

int main() {
    // 디바이스 및 장면(Scene) 초기화
    RTCDevice device = rtcNewDevice(nullptr);
    rtcSetDeviceErrorFunction(device, errorHandler, nullptr);
    RTCScene scene = rtcNewScene(device);

    // 삼각형 메시 지오메트리 생성
    RTCGeometry geom = rtcNewGeometry(device, RTC_GEOMETRY_TYPE_TRIANGLE);

    // 정점 데이터 설정 (수백만 개 가능)
    float* vertices = (float*)rtcSetNewGeometryBuffer(geom, RTC_BUFFER_TYPE_VERTEX, 0, RTC_FORMAT_FLOAT3, 3 * sizeof(float), 3);
    vertices[0] = 0.f; vertices[1] = 0.f; vertices[2] = 0.f; // v0
    vertices[3] = 1.f; vertices[4] = 0.f; vertices[5] = 0.f; // v1
    vertices[6] = 0.f; vertices[7] = 1.f; vertices[8] = 0.f; // v2

    // 인덱스 데이터 설정 (삼각형 연결 정보)
    unsigned* indices = (unsigned*)rtcSetNewGeometryBuffer(geom, RTC_BUFFER_TYPE_INDEX, 0, RTC_FORMAT_UINT3, 3 * sizeof(unsigned), 1);
    indices[0] = 0; indices[1] = 1; indices[2] = 2;

    // 지오메트리 확정 및 장면에 추가
    rtcCommitGeometry(geom);
    rtcAttachGeometry(scene, geom);
    rtcReleaseGeometry(geom); // 장면에 붙인 후 해제 가능 (참조 카운팅)

    // 장면 확정 (BVH 빌드 시작)
    rtcCommitScene(scene);

	// 레이 쿼리 정의
    RTCRayHit rayhit;
    rayhit.ray.org_x = 0.2f; rayhit.ray.org_y = 0.2f; rayhit.ray.org_z = -1.0f;
    rayhit.ray.dir_x = 0.0f; rayhit.ray.dir_y = 0.0f; rayhit.ray.dir_z = 1.0f;
    rayhit.ray.tnear = 0.0f;
    rayhit.ray.tfar = std::numeric_limits<float>::infinity();
    rayhit.ray.mask = -1;
    rayhit.ray.flags = 0;
    rayhit.hit.geomID = RTC_INVALID_GEOMETRY_ID;
    rayhit.hit.instID[0] = RTC_INVALID_GEOMETRY_ID;

	// 쿼리
    RTCIntersectArguments args;
    rtcInitIntersectArguments(&args);
    args.feature_mask = RTC_FEATURE_FLAG_ALL; // 모든 기능 활성화 (성능에 따라 조절 가능)

    rtcIntersect1(scene, &rayhit, &args);

    // 결과 확인
    if (rayhit.hit.geomID != RTC_INVALID_GEOMETRY_ID) {
        std::cout << "충돌 발생! 거리: " << rayhit.ray.tfar << std::endl;
        std::cout << "충돌한 면(Primitive) ID: " << rayhit.hit.primID << std::endl;
    } else {
        std::cout << "충돌 없음" << std::endl;
    }

    // 정리
    rtcReleaseScene(scene);
    rtcReleaseDevice(device);

    return 0;
}

iconv 1.18

티클러 — Fri, 7 Nov 2025 15:48:48 +0900

다른 dll 의존성 없게 static compile 해서 올려봄.

iconv_no_i18n.zip

0.03MB

cuda_voxelizer

티클러 — Thu, 6 Nov 2025 17:17:53 +0900

https://github.com/Forceflow/cuda_voxelizer

CUDA를 이용해서 빠른 시간안에 복셀화를 시켜주는 프로그램.. 물론 CPU도 지원..

Grid size	GPU (GTX 1050 TI)	CPU (Intel i7 8750H, 12 threads)
64³	0.2 ms	39.8 ms
128³	0.3 ms	63.6 ms
256³	0.6 ms	118.2 ms
512³	1.8 ms	308.8 ms
1024³	8.6 ms	1047.5 ms
2048³	44.6 ms	4147.4 ms

# generates a 256 x 256 x 256 vox-based voxel model which will be stored in bunny_256.vox.
$ cuda_voxelizer -f bunny.ply -s 256 

# generates a solid (filled) 64 x 64 x 64 .obj voxel model which will be stored in torus_64.obj.
$ cuda_voxelizer -f torus.ply -s 64 -o obj -solid

cuda_voxelizer_v0.6.zip

2.64MB

테스트해보니.. 잘됨.

$ cuda_voxelizer.exe -f bunny.obj -s 100 -o obj
## CUDA VOXELIZER
CUDA Voxelizer v0.6 by Jeroen Baert
https://github.com/Forceflow/cuda_voxelizer - mail (at) jeroen-baert (dot) be

## PROGRAM PARAMETERS
[Info] Filename: bunny.obj
[Info] Grid size: 100
[Info] Output format: obj file (cubes)
[Info] Using CPU-based voxelization: No (default: No)
[Info] Using Solid Voxelization: No (default: No)

## READ MESH
[I/O] Reading mesh from bunny.obj
[Mesh] Number of triangles: 22236
[Mesh] Number of vertices: 11120
[Mesh] Computing bbox

## VOXELISATION SETUP
[Voxelization] Bounding Box: (0.000288,-0.073080,-0.008127)-(0.627064,0.553695,0.618648)
[Voxelization] Grid size: 100 100 100
[Voxelization] Triangles: 22236
[Voxelization] Unit length: x: 0.006268 y: 0.006268 z: 0.006268

## CUDA INIT
[CUDA] CUDA device(s) found, picking best one
[CUDA] GPU Device 0: "Pascal" with compute capability 6.1
[CUDA] Best device: Quadro P1000
[CUDA] Available device memory: 3363 of 4095 MB

## TRIANGLES TO GPU TRANSFER
[Mesh] Allocating 781 KB of CUDA-managed UNIFIED memory for triangle data
[Mesh] Copy 22236 triangles to CUDA-managed UNIFIED memory
[Perf] Mesh transfer time to GPU: 164.6 ms
[Voxel Grid] Allocating 122 KB of CUDA-managed UNIFIED memory for Voxel Grid

## GPU VOXELISATION
[Perf] Voxelization GPU time: 0.1 ms

## FILE OUTPUT
[I/O] Writing data in obj voxels format to file bunny.obj_100_voxels.obj
[I/O] Writing to file: 0%...25%...50%...75%...100%
[I/O] Reordering / Optimizing mesh with Trimesh2
[I/O] Writing final mesh to file bunny.obj_100_voxels.obj

## STATS
[Perf] Total runtime: 4198.3 ms

개발자 커피 사줘야겠네..

win-iconv

티클러 — Thu, 6 Nov 2025 14:52:32 +0900

https://github.com/win-iconv/win-iconv

windows api로만 이루어진 iconv 대용 프로그램.

딸랑 실행파일 하나면 있으면 되니 편함..

컴파일해서 올려봄..

win_iconv_exe.zip

0.07MB

보통의 경우 파일 내부의 dll은 필요없으나.. 아래의 경우 환경변수로 사용할수 있음.

ENVIRONMENT VARIABLE:
    WINICONV_LIBICONV_DLL
        If $WINICONV_LIBICONV_DLL is set, win_iconv uses the DLL.  If
        loading the DLL or iconv_open() failed, falls back to internal
        conversion.  If a few DLL are specified as comma separated list,
        the first loadable DLL is used.  The DLL should have
        iconv_open(), iconv_close() and iconv().  Or libiconv_open(),
        libiconv_close() and libiconv().
        (only available when USE_LIBICONV_DLL is defined at compile time)

Win32 API does not support strict encoding conversion for some codepage.
And MLang function drops or replaces invalid bytes and does not return
useful error status as iconv does.  This implementation cannot be used for
encoding validation purpose.

테스트..

C:\> win_iconv.exe -f utf-8 -t cp949 test.txt > test.txt

.ui 파일을 동적으로 탑재하기

티클러 — Tue, 4 Nov 2025 21:57:48 +0900

출처: https://ds31x.tistory.com/250

아래의 Qt Designer로 생성한 ui 파일을 Qt 위젯으로 동적 탑재하는 방법.

Ex1_QtDesigner.ui

0.00MB

import os
import sys

# PySide6에서 필요한 클래스들 import
from PySide6.QtWidgets import (
    QApplication,      # 어플리케이션 객체
    QMainWindow,       # 메인 윈도우 프레임
    QLineEdit,         # 한 줄 텍스트 입력 위젯
    QLabel             # 텍스트 표시 위젯
)
from PySide6.QtUiTools import QUiLoader     # .ui 파일을 런타임에 로드하는 도구
from PySide6.QtCore import QFile            # Qt 파일 입출력을 위한 클래스


# 메인 윈도우 클래스 정의
class MainWindow(QMainWindow):
    def __init__(self, ui_fstr):
        super().__init__()

        # UI 파일(.ui)로부터 위젯 트리를 생성하여 중앙 위젯으로 설정
        self.wnd = self.ds_get_wnd_from_ui(ui_fstr)

        # 위젯 참조를 찾아서 시그널-슬롯 연결
        self.ds_setup()

        # 생성된 위젯을 QMainWindow의 중앙에 배치
        self.setCentralWidget(self.wnd)
        self.show()

    # UI 내부 위젯에 접근하고 이벤트를 연결하는 함수
    def ds_setup(self):
        # objectName으로 QLineEdit와 QLabel 찾기
        self.lineEdit = self.wnd.findChild(QLineEdit, "lineEdit")
        self.label = self.wnd.findChild(QLabel, "label")

        # UI에 필수 위젯이 없다면 오류 발생
        # 누락된 위젯들 확인
        missing_widgets = []
        if not self.lineEdit:
            missing_widgets.append("lineEdit")
        if not self.label:
            missing_widgets.append("label")
        
        if missing_widgets:
            raise AttributeError(f"UI에 다음 위젯들이 없습니다: {', '.join(missing_widgets)}")
        

        # returnPressed 시 라벨 업데이트
        self.lineEdit.returnPressed.connect(self.ds_update_label)

    # 입력된 텍스트를 라벨에 표시하는 슬롯
    def ds_update_label(self):
        self.label.setText(f'Hello, {self.lineEdit.text()}')

    # .ui 파일을 열어서 QWidget으로 로딩하는 함수
    def ds_get_wnd_from_ui(self, ui_fstr):
        ui_loader = QUiLoader()

        # 현재 파일의 디렉토리 기준으로 .ui 파일 경로 구성
        root_dir = os.path.dirname(os.path.abspath(__file__))
        ui_path = os.path.join(root_dir, ui_fstr)

        # QFile 객체로 .ui 파일 준비
        ui_file = QFile(ui_path)
        if not ui_file.exists():
            raise FileNotFoundError(f"UI 파일이 존재하지 않습니다: {ui_path}")

        # 파일 열고 로드
        if not ui_file.open(QFile.ReadOnly):
            raise IOError(f"UI 파일을 열 수 없습니다: {ui_path}")

        try:
            wnd = ui_loader.load(ui_file, self)  # parent를 self로 설정
            if wnd is None:
                raise RuntimeError(f"UI 파일 로딩 실패: {ui_path}")
            return wnd
        finally:
            ui_file.close()  # 예외 발생해도 반드시 닫힘


# 애플리케이션 진입점
if __name__ == '__main__':
    app = QApplication(sys.argv)                 # Qt 애플리케이션 생성
    window = MainWindow('Ex1_QtDesigner.ui')     # 메인 윈도우 클래스 인스턴스 생성
    sys.exit(app.exec())                         # 이벤트 루프 실행

아래는 결과.

메인 스크립트인지 판단하기

티클러 — Tue, 28 Oct 2025 09:52:17 +0900

간혹 스크립틀 작성 후 테스트 코드를 작성할 때 메인 스크립트인지 아닌지를 판단해야 할 필요가 있습니다.

이러한 판단은 아래와 같이 가능합니다.

# a.tcl

if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} {
	puts "this is main script"
} else {
	puts "this is sub script"
}

source b.tcl

# b.tcl

if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} {
	puts "this is main script"
} else {
	puts "this is sub script"
}

실행을 해보면 a.tcl은 메인 스크립트로, b.tcl은 서브 스크립트로 판단이 잘 됨을 확인할 수 있습니다.

$ tclsh85 a.tcl
this is main script
this is sub script

libcpr

티클러 — Thu, 23 Oct 2025 16:57:21 +0900

https://github.com/libcpr/cpr

cpr (C++ Requests)은 libcurl을 간단히 감싼 래퍼로 아래와 같이 파일 다운로드도 간단히 할 수 있음.

# g++ test.cpp -lcpr

#include <fstream>
#include <iostream>
#include <cpr/cpr.h>

int main() {    
    const std::string url = "https://github.com/libcpr/cpr/archive/refs/tags/1.12.0.zip";
    const std::string output_filename = "download.zip";
    
    std::ofstream output_file(output_filename, std::ios::binary);

    if (!output_file.is_open()) {
        std::cerr << "파일을 열 수 없습니다: " << output_filename << std::endl;
        return 1;
    }

    // CPR 세션 생성
    cpr::Session session;
    session.SetUrl(cpr::Url{url});
    
    // 다운로드 요청 실행
    // cpr::Download를 사용하여 응답 본문을 파일 스트림에 직접 기록
    cpr::Response r = session.Download(output_file);

    // 다운로드 완료 후 파일 스트림 닫기
    output_file.close();

    // 응답 상태 확인
    if (r.status_code == 200) {
        std::cout << "파일 다운로드 성공: " << output_filename << std::endl;
    } else {
        std::cerr << "파일 다운로드 실패. HTTP 상태 코드: " << r.status_code << std::endl;
        std::cerr << "오류 메시지: " << r.error.message << std::endl;
        // 다운로드 실패 시 생성된 불완전한 파일 삭제 (선택 사항)
        remove(output_filename.c_str());
    }

    return 0;
}

절대 패스 <-> 상대 패스 상호 변환

티클러 — Thu, 23 Oct 2025 15:16:30 +0900

https://likle.github.io/cwalk/

https://github.com/likle/cwalk

C/C++용으로 아주 괜찮은 절대 패스 <-> 상대 패스 상호 변환 라이브러리.. cwalk..

윈도우즈/리눅스 스타일도 지원..

아래와 같이 간단한 래퍼 함수를 만들어봄..

#include <limits.h> // FILENAME_MAX 
#include <cwalk.h>

std::string Rel2AbsPath(const std::string& base, const std::string& relative, bool unix_style) 
{
	if(unix_style)
		cwk_path_set_style(CWK_STYLE_UNIX);
	else
		cwk_path_set_style(CWK_STYLE_WINDOWS);

	char buffer[FILENAME_MAX];
	cwk_path_get_absolute(base.c_str(), relative.c_str(), buffer, sizeof(buffer));
	return std::string(buffer);
}

std::string Abs2RelPath(const std::string& base, const std::string& absolute, bool unix_style) 
{
	if(unix_style)
		cwk_path_set_style(CWK_STYLE_UNIX);
	else
		cwk_path_set_style(CWK_STYLE_WINDOWS);

	char buffer[FILENAME_MAX];
	cwk_path_get_relative(base.c_str(), absolute.c_str(), buffer, sizeof(buffer));
	return std::string(buffer);
}

cwalk-master.zip

0.11MB

msgpack

티클러 — Mon, 13 Oct 2025 23:49:59 +0900

홈페이지: https://github.com/jdc8/msgpack

순수 Tcl로 구현된 오브젝트 직렬화 패키지입니다.

# 예제1
package require msgpack

set p [msgpack::packer new]

$p pack int 123456789
$p pack str "A MessagePack example"
$p pack dict int str {1 one 2 two}
set packed_data [$p data]

set u [msgpack::unpacker new]
$u unpack_string $packed_data
# {{integer 123456789} {str {A MessagePack example}} {map {{integer 1} {str one} {integer 2} {str two}}}}
$u destroy

# 예제2
set packed_data ""
append packed_data [msgpack pack int 0xFFFFFFFF]
append packed_data [msgpack pack bin "A Utility example"]
append packed_data [msgpack pack dict int str {3 three 4 four}]}

puts [msgpack unpack $packed_data]
# {{integer 4294967295} {bin {A Utility example}} {map {{integer 3} {str three} {integer 4} {str four}}}}

# 예제3
set up [msgpack::unpacker new]

proc xor {n type data} {
    set res {}
    foreach b [split $data {}] {
        set code [scan $b %c]
        append res [format %c [expr { $code ^ $n }]]
    }

    return [list encrypted $res]
}

$up set_ext_unpacker 100 {xor 5}
# Prints "{encrypted Hello!}".
puts [$up unpack_string [msgpack pack ext 100 M`iij$]]
$up destroy

msgpack-master.zip

0.03MB

Ttk file selection dialog

티클러 — Mon, 13 Oct 2025 11:09:08 +0900

홈페이지: https://chiselapp.com/user/schelte/repository/fsdialog/home

Tk의 파일 선택 커맨드는 윈도우와 맥에서는 O/S 네이티브 대화상자를 사용하고 유닉스 계열 플랫폼에서는 매우 단순한 대화상자가 사용됩니다. 이 프로젝트는 이런 플랫폼에서 공통으로 사용하고 더 보기 좋은 대화상자를 제공하기 위해 시작되었습니다.

초기 1.0 버전은 리눅스 버전의 Tk 코어에 포함될 가능성을 염두에 두고 설계되었습니다. 하지만 이에 대한 저항이 너무 커서, 2.0 버전에서는 이러한 전략이 폐기되었습니다. 이제 이 패키지는 auto_path 아래의 디렉토리에 위치하도록 되어 있습니다. 그런 다음 `[package require fsdialog]` 명령으로 패키지를 불러올 수 있습니다. 이렇게 하면 기본적으로 내장된 tk_getOpenFile, tk_getSaveFile, tk_chooseDirectory 함수들이 이 패키지의 버전으로 대체됩니다.

fsdialog.zip

0.16MB

ticklEcharts 3.2.8

티클러 — Sun, 12 Oct 2025 22:35:00 +0900

홈페이지: https://github.com/nico-robert/ticklecharts

Apache ECharts 를 Tcl로 바인딩한 패키지 입니다.

# line + bar on same canvas.
package require ticklecharts

# Initializes a new 2D Chart Class.
set chart [ticklecharts::chart new]

# Set options
$chart SetOptions -tooltip {show True trigger "axis" axisPointer {type "cross" crossStyle {color "#999"}}} \
                  -grid {left "3%" right "4%" bottom "3%" containLabel "True"} \
                  -legend {}
               
$chart Xaxis -data [list {"Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"}] \
             -axisPointer {type "shadow"}

# Encapsulates the string with braces + quotes or use 'ticklecharts::eString'
# class for 'formatter' property (See '# string template' section).
$chart Yaxis -name "Precipitation" -position "left" -min 0 -max 250 -interval 50 \
                                   -axisLabel {formatter {"{value} ml"}}
$chart Yaxis -name "Temperature"   -position "right" -min 0 -max 25  -interval 5 \
                                   -axisLabel [list formatter [new estr "{value} °C"]]

# Add bars series.
$chart Add "barSeries" -name "Evaporation" \
                       -data [list {2.0 4.9 7.0 23.2 25.6 76.7 135.6 162.2 32.6 20.0 6.4 3.3}]
                    
$chart Add "barSeries" -name "Precipitation" \
                       -data [list {2.6 5.9 9.0 26.4 28.7 70.7 175.6 182.2 48.7 18.8 6.0 2.3}]                    

# Add line series.                  
$chart Add "lineSeries" -name "Temperature" \
                        -yAxisIndex 1 \
                        -data [list {2.0 2.2 3.3 4.5 6.3 10.2 20.3 23.4 23.0 16.5 12.0 6.2}]

# Output
$chart Render

ticklecharts-3.2.8.tar.gz

18.02MB

toplevel의 타이틀바를 감추고 아웃라인 그리기

티클러 — Sat, 11 Oct 2025 01:06:36 +0900

아래의 코드는 toplevel의 타이틀바를 감추고 아웃라인을 그리는 코드입니다. 프로그램 초기 구동 시 스플래쉬 윈도우를 그리는 데 사용하면 좋을 듯하네요.

set win [toplevel .option -relief solid \
			-class Toplevel -borderwidth 0 -highlightthickness 1 \
			-highlightbackground [::tk::Darken "#30404A" 85] \
			-highlightcolor [::tk::Darken "#30404A" 85]]
wm overrideredirect $win 1; # hide title bar

TCLFPDF 1.7.2

티클러 — Thu, 9 Oct 2025 23:54:50 +0900

홈페이지: https://github.com/lamuzzachiodi/tclfpdf

이 확장 패키지는 PHP용 tFPDF(1.33)를 TCL로 포팅하는 것을 목표로 합니다. tFPDF는 FPDF(1.85)를 수정하여 UTF-8 지원을 추가한 클래스입니다. 따라서 이전 2014년 버전의 완전한 업데이트이며, 이전 버전과의 호환성을 유지하면서도 UTF-8을 완벽하게 지원합니다. 예제나 애드온을 최소한의 노력으로 포팅할 수 있게끔 tFPDF 프로그램의 이름과 구조를 최대한 원본에 가깝게 유지하려고 노력했습니다.

package require tclfpdf
namespace import  ::tclfpdf::*

AddPage;
# Add a Unicode font (uses UTF-8)
AddFont "DejaVu" "" "DejaVuSansCondensed.ttf" 1;
SetFont "DejaVu" "" 14;
Write 8 "		-----
English: Hello World
Greek: Γειά σου κόσμος
Polish: Witaj świecie
Portuguese: Olá mundo
Spanish: Hola mundo
Russian: Здравствулте мир
Vietnamese: Xin chào thế giới
		------";
Ln 10;		
AddFont "simhei" "" "simhei.ttf" 1;
SetFont "simhei" "" 20;		
Write 10 "Chinese: 你好世界";
#Select a standard font (uses windows-1252)
SetFont  "Arial" "" 14;
Ln 10;
Write 5 "The file size of this PDF is only 16 KB.";
Output "utf8.pdf";

tclfpdf-1.7.2.zip

0.29MB

Drag & Drop 패키지 tkDND

티클러 — Wed, 1 Oct 2025 12:21:26 +0900

tkDND

tkDND(Tk Drag & Drop)는 Tk 위젯에서 드래그 앤 드롭을 가능하게 해주는 확장 라이브러리입니다. 원래 드래그 앤 드롭 기능은 플랫폼 의존성이 매우 강한 처리로, Windows와 X 윈도우 시스템에서는 겉보기에는 비슷하게 동작하더라도 프로그래밍 방식이나 사용하는 API가 완전히 다르기 때문에 네이티브 API로 직접 구현하려면 꽤 힘든 작업입니다. 하지만 tkDND는 이러한 차이를 잘 흡수하여, 동일한 Tcl 코드로 Windows에서도 X 윈도우 시스템에서도 드래그 앤 드롭을 간단하게 구현할 수 있습니다. 게다가 단순히 Tk 위젯 간만이 아니라, Tk 위젯과 다른 애플리케이션의 아이콘 등과도 드래그 앤 드롭 동작을 할 수 있습니다. 이로써 편리한 데스크탑 도구를 누구나 손쉽게 만들 수 있게 되었습니다.

tkDND는 George Petasis 씨에 의해 개발된 패키지로, 이 페이지에서 다운로드할 수 있습니다. 또한 SourceForge나 github에도 오픈소스 프로젝트 페이지가 있으며, 이곳에서도 구할 수 있습니다. 최신 버전은 2.8입니다. Windows용 바이너리 DLL도 배포되고 있으며, 2015년 2월 28일 현재 32비트 버전은 2.8, 64비트 버전은 2.7이 배포되고 있습니다.

tkDND의 드래그 & 드롭

위젯 간 드래그 & 드롭

이제부터, 여러분이 궁금해하실 드래그 & 드롭의 실제 코딩 방법을 소개하겠습니다. 먼저 간단한 샘플부터 시작하죠. tkDND를 사용하면

Tk 위젯끼리
다른 애플리케이션(예: 탐색기)에서 Tk 위젯으로
Tk 위젯에서 다른 애플리케이션(압축 툴 등)으로

드래그 & 드롭을 구현할 수 있지만, 기본은 가장 위의 "Tk 위젯끼리" 입니다. 그럼, 그 간단한 샘플 코드는 다음과 같습니다.

package require tkdnd
wm title . "예제"
label .s1 -text "소스" -fg #700040 -rel raised -bd 2
label .t1 -text "타겟" -fg #700040 -rel raised -bd 2

dnd bindsource .s1 text/plain {return "Hello D&D; World!"}
dnd bindtarget .t1 text/plain <Drop> {showmsg "%A" "%T" "%D"}
bind .s1 <Button-1> {dnd drag %W}

pack .s1 .t1 -side top -ipadx 20 -pady 10

proc showmsg {action type data} {
    tk_messageBox -message "Action:$action Type:$type Data:$data"
}

standalone bgexec

티클러 — Tue, 30 Sep 2025 15:33:16 +0900

Tcl에서 외부 프로그램을 제어시에 복잡한 파이프 개념을 바탕으로 C로 작성해야 하는 불편함이 있습니다. 이런 불편을 덜기위한 커맨드가 있는데 BLT의 bgexec 커맨드입니다. 이 bgexec는 아주 유용한 커맨드로, 단순히 bgexec만을 사용하기 위해 BLT 패키지 전체를 로드해야 하는 불편함이 있어, bgexec 커맨드만을 따로 분리하여 보았습니다.

package require bgexec
blt::bgexec ....

oobgexec1 0.1

티클러 — Tue, 30 Sep 2025 15:18:40 +0900

출처: https://wiki.tcl-lang.org/page/Matthias+Hoffmann+-+Tcl-Code-Snippets+-+Misc+-+Bgexec

TclOO를 이용한 백그라운드 실행중 stdout을 캡쳐하는 클래스입니다.

package require TclOO
package require Tcl 8.5
package provide oobgexec1 0.1

oo::class create bgExec {
        self variable objNr
        self method nextObjNr {} {incr objNr}
        self method activeObjects {} {info class instances bgExec}
        self method activeObjectsCount {} {llength [my activeObjects]}; # := vwaitvar
        ###
        # Generische Handler (werden über Fileevent gerufen, müssen also public sein...)
        # $obj wird an den Userhandler übergeben, da hierüber bei Bedarf zusätzliche
        # Daten gelesen werden können (siehe getInfos).
        # Signatur UserHandler: proc callback {obj type {data ""}}.
        self method onFileEvent {obj chan callback} {
             if {[catch {gets $chan line} result]} {
                $obj cancelTimeout
                catch {uplevel 1 [list {*}$callback $obj error $result]}; # Fehler vor Close melden
                $obj destroy
             } elseif {$result >= 0} {
                catch {uplevel 1 [list {*}$callback $obj data $line]}   ; # Daten vorhanden
             } else {
                catch {uplevel 1 [list {*}$callback $obj nodata]}       ; # keine Daten vorhanden (Idle)
             }
             if {[eof $chan]} {
                $obj cancelTimeout
                catch {uplevel 1 [list {*}$callback $obj eof]}          ; # End-of-File vor Close melden
                $obj destroy
             }
        }
        self method onTimeout {obj callback pids} {
             catch {uplevel 1 [list {*}$callback $obj timeout $pids]}   ; # Timeout vor Close melden
             $obj destroy
        }
        variable pipe cb chan timeoutID userData objNr waitvar
        constructor {pipeline callback args} {
             set options [dict create -timeout 0 -userdata "" -fconf "" -vwaitvar ::bgExecVwaitVar]
             set keys [dict keys $options]
             foreach {arg val} $args {
                  set key [lsearch -glob -nocase -inline $keys $arg*]
                  if {$key ne ""} {
                     dict set options $key $val
                  } else {
                     return -code error "invalid option. Allowed are: $keys."
                  }
             }
             set pipe $pipeline
             set cb $callback
             set fconf [dict merge {-blocking 0 -buffering line} [dict get $options -fconf]]
             set timeoutID ""
             set waitvar [dict get $options -vwaitvar]; # schon hier, weil im Falle des Scheiterns
             incr $waitvar; # des open der Destruktor aufgerufen wird und dekrementiert!
             set chan [open "| $pipeline 2>@1" r]; # aktuell wieder nur READ-Channel
             fconfigure $chan {*}$fconf
             if {[dict get $options -timeout]} {
                set timeoutID [after [dict get $options -timeout] [list bgExec onTimeout [self] $callback [pid $chan]]]
             }
             set userData [dict get $options -userdata]
             set objNr [bgExec nextObjNr]
             fileevent $chan readable [list bgExec onFileEvent [self] $chan $callback]
        }
        destructor {
            my cancelTimeout
            catch {close $chan}; # falls nicht bereits explizit getätigt (catch erforderlich?)
            incr $waitvar -1
        }
        method getInfos {} {
            return [list $objNr $chan $pipe $userData $waitvar $timeoutID]
        }
        method cancelTimeout {} {
            if {$timeoutID ne ""} {
               after cancel $timeoutID
            }
        }
}

테스트는 아래와 같이 합니다.

proc callback {args} {
	puts $args
}

set ::bgExecVwaitVar 0
puts [bgExec new "ping 127.0.0.1" callback -vwaitvar ::bgExecVwaitVar]
vwait ::bgExecVwaitVar

아래는 결과입니다.

C:\Temp>tclsh85 oobgexec.tcl
::oo::Obj12
::oo::Obj12 data {}
::oo::Obj12 data {Ping 127.0.0.1 32바이트 데이터 사용:}
::oo::Obj12 data {127.0.0.1의 응답: 바이트=32 시간<1ms TTL=128}
::oo::Obj12 data {127.0.0.1의 응답: 바이트=32 시간<1ms TTL=128}
::oo::Obj12 data {127.0.0.1의 응답: 바이트=32 시간<1ms TTL=128}
::oo::Obj12 data {127.0.0.1의 응답: 바이트=32 시간<1ms TTL=128}
::oo::Obj12 data {}
::oo::Obj12 data {127.0.0.1에 대한 Ping 통계:}
::oo::Obj12 data {    패킷: 보냄 = 4, 받음 = 4, 손실 = 0 (0% 손실),}
::oo::Obj12 data {왕복 시간(밀리초):}
::oo::Obj12 data {    최소 = 0ms, 최대 = 0ms, 평균 = 0ms}
::oo::Obj12 nodata
::oo::Obj12 eof

BLT 강좌가 등록 되었습니다.

티클러 — Tue, 30 Sep 2025 11:02:55 +0900

Tk에서 그래프 위젯의 강자라 불리는 BLT에 대한 강좌가 등록 되었습니다.

그래프 위젯의 최강자 BLT

typed_json

티클러 — Fri, 26 Sep 2025 11:04:58 +0900

홈페이지: https://github.com/rocketship88/typed-json-tcl

typed_json은 타입 정보를 완벽하게 보존하는 순수 Tcl 기반의 JSON 파서입니다. tDOM의 `-json` 옵션과 유사하게 동작하지만, 바이너리 확장 모듈이 필요하지 않습니다.

두 가지 버전의 코드가 존재합니다.

첫 번째 버전은 dict 구조를 사용하여 속도가 더 빠를 수 있지만, 중복 키를 처리할 수 없습니다.
두 번째 버전은 오직 리스트 연산만 사용하여 중복 키를 지원하고, tDOM과의 호환성이 더 높습니다.

# Skip built-in tests when sourcing
set no_tests 1
source jsonparser.tcl

# Parse JSON with type information preserved
set data [typed_json::json2dict {{"name": "Alice", "age": 30}}]
puts $data
# Output: OBJECT {name {STRING Alice} age {NUMBER 30}}

# Extract values
puts [typed_json::getValue [typed_json::getPath $data "name"]]
# Output: Alice

typed-json-tcl-main.zip

0.03MB

그래프 위젯의 최강자 BLT

티클러 — Wed, 24 Sep 2025 10:18:19 +0900

BLT는 벨 연구소에서 개발되고, 루슨트 테크놀로지에 저작권이 있는, Tk와 더불어 최대의 Tk 확장 라이브러리 세트입니다. Tk의 순수한 기능 확장으로 예전부터 잘 알려져 있습니다. BLT가 무엇의 약자인지는 매뉴얼을 읽어봐도 "원하는 대로 해석하세요"라고만 나와 있으니, "Beautiful Lady and Television"의 약자라고 우겨도 틀리지 않습니다.

BLT의 현재 버전은 2.4z (2002/10/15)이고, [이곳] 에서 다운로드할 수 있습니다. Tcl/Tk의 7.5, 7.6, 8.0 이후의 각 버전을 지원합니다. 2.4p부터는 스텁(stub) 메커니즘을 지원하여, 8.2용 BLT는 8.3 이후 버전에서도 사용할 수 있습니다. 반면, 7.* 버전에 대한 지원은 점점 사라지고 있는 듯합니다.

주요 기능으로는 다음과 같습니다.

다양한 2차원 X-Y 그래프
계층적 리스트박스
GUI 위젯에 배경 이미지를 붙일 수 있는 확장
탭이 달린 패널
"busy" 윈도우
테이블 형태의 지오메트리 매니저
윈도우를 Tk 이미지로 캡처하기

이 모든 기능은 우리 GUI 애플리케이션에 강렬한 외관을 부여해줍니다. 기능이 강력한 만큼 매우 복잡하지만, 함께 제공되는 HTML 문서가 잘 정리되어 있어 이것을 참고하면 쉽게 익숙해질 수 있습니다. 바로 사용해봅시다!

리눅스용 설치

리눅스에서는 익숙한 configure → make → make install 과정으로 설치하면 됩니다. 다만, 실행 프로그램(bltwish)을 만드는 것보다 공유 라이브러리(libBLT24.so)를 만들어 설치하는 쪽이 여러모로 더 편리합니다.

% sh configure
% cd src/shared
% make
# make install
% cd ../../library
% make
# make install

/usr/local에 설치한 경우, 공유 라이브러리 libBLT24.so는 /usr/local/lib/에, 초기 설정용 Tcl 스크립트는 /usr/local/lib/blt2.4에 복사됩니다.

윈도우즈용 설치

Windows용 BLT는 Tcl/Tk 와 함께 컴파일된 바이너리 버전을 자체 설치 파일 형태로 배포되기 때문에 설치가 매우 간단합니다. 파일을 다운로드하면, 아주 깔끔한 인스톨러가 등장합니다. Tcl/Tk 자체 설치 보다도 더 신경 써서 만든 듯한 설치 화면에서 제작자의 센스를 느낄 수 있습니다. (현재 제공되는 설치 파일은 16비트 윈도우즈 95 만 지원하는것 같습니다. 현재의 윈도우즈 7이나 11에서는 설치가 불가합니다. 리눅스의 설치 방법과 마찬가지로 msys2 환경에서 MinGW 컴파일러를 사용하여 빌드가 가능합니다.)

blt24z-for-tcl84.exe

1.85MB

설치 위치를 물어보면, 이미 Tcl/Tk 가 설치된 디렉터리(예: `C:\Program Files\TCL`)를 지정하면 됩니다. 물론 다른 디렉터리(예: `C:\Program Files\BLT`)를 지정해도 됩니다.

설치가 완료되면, `bin` 서브디렉터리 아래에 WISH84.EXE에 BLT가 포함된 인터프리터인 "BLTWISH.EXE"와, load 명령어로 로드할 수 있는 DLL 파일인 "BLT24.DLL"이 생성됩니다. 일반적으로는 BLT24.DLL을 로드해서 사용하는 쪽이 더 편리할 것입니다.

BLT 사용하기

BLT 기능을 사용하는 Tcl 스크립트의 맨 앞에는 다음과 같은 코드를 작성합니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

이름공간(namespace)이 갑자기 등장하지만, 위와 같이 코드를 작성해두면 이후에 BLT의 기능을 사용할 때 이름공간을 신경 쓸 필요가 없어집니다. 그래서 매번 스크립트의 맨 앞부분에 이렇게 적어두는 것이 좋습니다.

벡터 (vector)

벡터는 Tcl의 배열과 비슷하지만, Tcl의 배열에는 없는 특징이 있습니다.

배열의 인덱스는 0부터 n까지의 숫자이다.
모든 요소는 부동소수점수(float)이다.
벡터를 명령어처럼 사용할 수 있다.

벡터를 생성할 때는 vector create를 사용합니다. 생성된 벡터의 각 요소의 초기값은 0(0.0)이 됩니다.

package require BLT
namespace import blt::*

# 벡터 x 생성 (0~9)
vector create x(10)
=> ::x
# 벡터 y 생성 (0~9)
vector create y(10)
=> ::y
# 벡터 z 생성 (1~10)
vector create y(1:10)
=> ::z

벡터를 삭제할 때는 vector destroy를 사용합니다.

# 벡터 x y z 삭제
vector destroy x y z

벡터의 각 요소는 인덱스(0~n)를 사용하여 배열처럼 접근할 수 있습니다. 인덱스에 end를 사용하면 마지막 요소를 지정할 수 있습니다. 또한, 콜론(:)을 사용하면 요소의 범위를 지정할 수 있습니다.

# 벡터의 초기화
foreach i {0 1 2 3 4 5 6 7 8 9} {
   set x($i) $i
}
# 첫 번째 요소
puts $x(0)
=> 0.0
# 마지막 요소
puts $x(end)
=> 0.9
# 0~3 범위의 요소
puts $x(0:3)
=> 0.0 0.1 0.2 0.3
# 모든 요소
puts $x(:)
=> 0.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0
# 1+2번째 요소
puts $x(1+2)
=> 3.0

인덱스에 min, max, mean을 사용하면 최소값, 최대값, 평균값을 구할 수 있습니다.

# 벡터의 초기화
foreach i {0 1 2 3 4 5 6 7 8 9} {
   set x($i) $i
}
# 최소값
puts $x(min)
=> 0.0
# 최대값
puts $x(max)
=> 9.0
# 평균값
puts $x(mean)
=> 4.5

동적으로 벡터를 생성할 수도 있습니다. 벡터 생성 시 요소의 개수를 지정하지 않은 대신 "++end"를 사용해서 동적으로 요소를 할당합니다.

# 동적 벡터 d 생성
vector create d
# 벡터 초기화
foreach i {0 1 2 3 4 5 6 7 8 9} {
    set d(++end) $i
}
# 모든 요소 출력
puts $d(:)
=> 0.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0

벡터를 생성하면 커맨드로도 사용할 수 있습니다.

# 벡터 z를 생성
vector create z
# 요소 초기화
z set {9 8 7 6 5 4 3 2 1 0}
# 요소 개수 확인
z length
=> 10
# 요소를 오름차순 또는 내림차순 정렬
z sort
z sort -reverse
# 범위의 요소 반환
z range 0 end
=> 0.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0
# 검색한 요소의 인덱스 반환
z search 5.0
=> 5
# 요소 추가
z append {10.0 11.0}
# 모든 요소에 1.0을 더하기
z expr { z + 1 }
# -5에서 5까지 1씩 증가시켜 요소 설정
z seq -5 5 1
# 정규화
z normalize
# 데이터를 보간(보충)
z populate z2 10
# 복제
z dup zz
# 요소 삭제
z delete 1 2
# 요소 병합
z merge v1 v2
# 난수 설정
z random
# 요소를 시프트
z offset -1
# 벡터를 Tcl 배열에 매핑
z variable ary

이 벡터는 아래에서 설명할 그래프 그리기에 리스트 데이타 대신에 사용할 수 있습니다.

선 그래프 그리기

BLT에서 제공하는 그래프는 모두 X-Y 2차원 그래프입니다. 그래프의 종류로는 `graph`, `barchart`, `stripchart`가 있습니다. 하지만 기본 사용법은 거의 동일하므로 여기서는 대표적으로 `graph`를 사용합니다. `graph`, `stripchart`는 선 그래프, `barchart`는 막대그래프입니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플 1"

set temperature {5 10 15 20 25 30 35 40 45}
set di {81.2 72.5 43.4 5.6 18.2 60.9 98.2 99.9 99.8}

pack [set g [graph .g -plotbackground black]]
$g configure -title "온도와 사람의 불쾌지수 관계"

$g element create line1 -xdata $temperature -ydata $di
$g element configure line1 -label {2001.7 조사} \
  -symbol square -pixels 4 -color "#ffcc00" -fill "#800000" \
  -outline "#ff0000" -outlinewidth 1 \
  -dashes {2 4 2} -linewidth 2 -trace increasing
# symbol: square, circle, diamond, plus, cross, splus, scross, triangle, ""
$g element show
$g axis configure x -title 온도
$g axis configure y -title 불쾌지수

# 마우스 조작으로 확대, 축소
bind $g <ButtonPress-1> {
    %W axis configure x -min [%W axis invtransform x %x]
    %W axis configure y -min [%W axis invtransform y %y]
}
# 원래대로 되돌리기
bind $g <ButtonPress-3> {
    %W axis configure x -min {}
    %W axis configure y -min {}
}
$g legend configure -position right -relief groove -font fixed -fg blue
$g crosshairs configure -hide no -color red -dashes {2 2} -linewidth 2
Blt_Crosshairs $g
$g grid configure -hide no -dashes { 2 2 }

처음으로 X축과 Y축 데이터를 준비합니다. 기본적으로 두 축 모두 숫자 축입니다. 아래 예시처럼 각각 숫자로 이루어진 두 개의 리스트를 준비해도 되고, 위에서 설명한 벡터(vector)를 사용할 수도 있습니다.

여기서는 "기온(섭씨)"과 "불쾌지수(%)" 데이터를 예로 들었습니다. 40도에서 45도로 갈 때 불쾌지수가 줄어드는 것은, “그 사이에 깨달음의 경지에 도달해서 불도 시원하게 느껴진다”는 이상한 답변을 한 사람이 한 명 있었기 때문입니다.

set temperature {5 10 15 20 25 30 35 40 45}
set di {81.2 72.5 43.4 5.6 18.2 60.9 98.2 99.9 99.8}

아래와 같이 그래프 위젯을 생성하고 Tk 위젯처럼 `pack` 할 수 있습니다.

graph .g -plotbackground black
pack .g
.g configure -title "온도와 사람의 불쾌지수 관계"

이제 그래프 위젯(.g)에 데이터를 붙여서 선그래프로 만듭니다. `element create` 명령을 사용합니다.

.g element create line1 -xdata $temperature -ydata $di

선(데이터 시리즈)에 대한 각종 옵션을 `element configure`로 설정합니다.

.g element configure line1 -label {1999.7 조사} \
  -symbol square -color red -dashes {2 4 2} -linewidth 2
.g element show

-label : 범례에 표시될 이름
-symbol : 데이터 점의 모양
-color : 선 색상
-dashes : 선의 점선 패턴
-linewidth : 선 두께

아래와 같이 좌표축 설정을 하고

.g axis configure x -title 온도
.g axis configure y -title 불쾌지수

`axis configure`의 -min, -max 옵션을 이용하면 그래프를 줌인/줌아웃 할 수 있습니다.

# 왼쪽 클릭: 확대
bind .g <ButtonPress-1> { 
    %W axis configure x -min [%W axis invtransform x %x] 
    %W axis configure y -min [%W axis invtransform y %y] 
}
# 오른쪽 클릭: 원래대로 복원
bind .g <ButtonPress-3> { 
    %W axis configure x -min {}
    %W axis configure y -min {}
}

범례, 크로스헤어, 격자선 등도 세밀하게 설정할 수 있습니다.

.g legend configure -position right -relief groove -font fixed -fg blue
.g crosshairs configure -hide no -color red -dashes {2 2} -linewidth 2
Blt_Crosshairs .g
.g grid configure -hide no -dashes { 2 2 }

계층 구조 리스트박스 (Hierarchical Listbox)

계층 구조 리스트박스란, 쉽게 말해 Windows의 탐색기 왼쪽 부분(트리 구조 폴더 리스트)과 같은 GUI 위젯 입니다. BLT의 hierbox 위젯을 사용하면, 일반적인 Tk 위젯처럼 동일하게 생성할 수 있습니다.

참고로 hierbox 위젯은 BLT 2.4w 버전에서 완전 상위 호환인 treeview 위젯이 등장하면서, 현재는 향후 폐지 예정으로 간주됩니다. 최신 프로젝트에서는 treeview 위젯 사용을 권장합니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플 2"

entry .ea -state disabled
set f [frame .fa -rel groove]
set h [hierbox $f.h -yscrollcommand "$f.scrv set" -height 200]
scrollbar $f.scrv -orient vertical -command "$f.h yview"
grid $f.h -row 1 -column 1
grid $f.scrv -row 1 -column 2 -sticky ns
foreach e {ea fa} {pack .$e -side top -fill x}

$h configure -separator {::}
foreach a {::java ::javax ::javax::swing ::java::io ::java::net ::javax::swing::table
           ::javax::naming ::javax::naming::directory} {
    $h insert end $a
}
bind $h <Double-Button-1> {
    if {"[set i [%W curselection]]" != ""} {
        .ea configure -state normal
        .ea delete 0 end
        .ea insert end "[%W get $i] : [%W get -full $i]"
        .ea configure -state disabled
    }
}

hierbox 커맨드는 일반 Tk 위젯처럼 사용하고, insert, delete, curselection, get 등 주요 조작법도 listbox와 거의 동일합니다.

hierbox .h -yscrollcommand {.scrv set} -height 200
scrollbar .scrv -orient vertical -command {.h yview}

계층 구조(트리)를 만들려면, 먼저 `configure`의 `-separator` 옵션으로 계층 구분 문자를 지정합니다. 예를 들어, "::java::awt"라는 아이템은 루트 아래 "java" 폴더, 그 아래 "awt" 폴더가 생기는 구조를 의미합니다.

.h configure -separator {::}
foreach a {::java ::java::awt ::java::io ::java::net ::java::awt::event} {
    .h insert end $a
}

아래와 같이 트리 아이템을 더블 클릭시 현재 선택된 노드의 풀 패스를 표시합니다. `get -full` 옵션을 사용하면, 트리의 전체 경로가 반환됩니다.

bind $h <Double-Button-1> {
    if {"[set i [%W curselection]]" != ""} {
        .ea configure -state normal
        .ea delete 0 end
        .ea insert end "[%W get $i] : [%W get -full $i]"
        .ea configure -state disabled
    }
}

막대 그래프

BLT의 그래프에는 정말 많은 옵션이 있습니다. 그것들을 전부 나열하고 설명하다 보면 중간에 질려버릴 수 있기에 생략하고, 선 그래프 부분에서 소개했던 예제를 다시 정리해서 이번에는 처음부터 막대 그래프를 그려보겠습니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플"

set xdata {1 2 3 4 5}
set ydata {65 30 40 90 55}

barchart .sc \
 -plotbackground "#c0c0c0" -plotrelief sunken \
 -plotborderwidth 2 -background "#808080" \
 -relief groove -bd 2 -title "My Brain is Compact"

.sc element create ELEMENT1 \
  -xdata $xdata -ydata $ydata -label "This is the Legend" -fg "#700040"

proc getSubjectByID {sc value args} {
    set subjects {dummy 국어 수학 물리 지리 영어}
    return [lindex $subjects $value]
}

.sc axis configure x -color white -command "getSubjectByID" \
        -title 교과 -titlecolor "#c0c0c0"

.sc axis configure y -color white -min 0 -max 100

.sc legend configure -position right -relief groove -font 7x14 -fg #000060

.sc crosshairs configure -hide no -color black -linewidth 2 -dashes ""
Blt_Crosshairs .sc

.sc grid configure -hide no -color "#808080" -dashes {1 4 1}

image create photo Image1 -file copy.gif
for {set i 0} {$i<[llength $xdata]} {incr i} {
    set lab [label .sc.lab$i -image Image1]
    .sc marker create window \
        -coords [list [lindex $xdata $i] [expr [lindex $ydata $i]-5] ] \
        -anchor n -window $lab
}
pack .sc -side top
button .cmda -text 닫기 -command exit
pack .cmda -anc e -padx 4 -pady 4

먼저 BLT 라이브러리를 불러옵니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

데이터는 아래와 같습니다.

국어	수학	물리	지리	영어
65	30	40	90	55

점수 참 형편 없네요 ㅎㅎ 이처럼 한쪽 축이 숫자 축이 아닌 경우엔 약간의 트릭이 필요합니다. 일단 데이터는 아래와 같이 작성해둡니다.

set xdata {1 2 3 4 5}
set ydata {65 30 40 90 55}

먼저 `barchart` 명령으로 막대 그래프를 그릴 영역을 일반 Tk 위젯과 마찬가지로 만듭니다.

barchart .sc \
 -plotbackground "#c0c0c0" -plotrelief sunken -plotborderwidth 2 \
 -background "#808080" -relief groove -bd 2 \
 -title "My Brain is Compact"

이처럼 생성 시에 모든 옵션을 정의할 수도 있지만, 예를 들면

barchart .sc
# ...
.sc configure -plotbackground "#c0c0c0" \
              -plotrelief sunken \
              # ...

이런 식으로 나중에 `configure` 서브커맨드를 사용해서 옵션을 여러 번 추가하거나 변경할 수 있습니다. 즉 일반 Tk 위젯처럼 `cget` & `configure`로 조작할 수 있다는 얘기입니다. 참고로 `-plotbackground`, `-plotrelief`, `-plotborderwidth`는 그래프의 그려지는 범위의 색상이나 테두리 스타일을 지정하는 옵션이고, `-background(-bg)`, `-relief`, `-borderwidth(-bd)`는 그 바깥 영역의 스타일을 지정하는 옵션입니다. 뭐, 직접 써보면 바로 알 수 있으니, 여기서 자세한 설명은 생략합니다.

다음으로 그래프의 "데이터 시리즈"를 만듭니다. 데이터 시리즈란, 쉽게 말해 그래프의 데이터를 표현하는 것이고, 막대 그래프라면 막대, 선 그래프라면 선입니다. 아래의 `ELEMENT1`처럼 적당한 이름을 정해 `element create` 서브커맨드로 생성합니다.

.sc element create ELEMENT1 \
  -xdata $xdata -ydata $ydata -label "This is the Legend" -fg "#700040"

여기서 데이터 -xdata, -ydata에 데이터(숫자 리스트)를 지정함으로써, 실제로 그래프에 반영됩니다. X축 데이터는 "국어", "수학"과 같은 숫자가 아닌 값을 넣으면 안되기에 임시로 $xdata로 {1 2 3 4 5} 로 넣어 두었습니다.

참고로 이 element도, 일단 element create 서브커맨드로 만든 후에, "element configure" 서브커맨드를 사용해서

.sc element configure ELEMENT1 -fg "#700040"

처럼 설정할 수 있습니다.

이렇게 옵션을 추가하거나 변경할 수 있습니다. 이후 나오는 axis, crosshairs, grid, marker 등도 모두 이 element와 같은 방식으로, 단지 옵션의 종류만 다릅니다.

다음은 X축을 셋팅해 봅니다. 여기서는 앞서 사용한 {1 2 3 4 5} 를 {국어 수학 물리 지리 영어} 로 바꿔주는 처리를 하고 있습니다.

proc getSubjectByID {sc value args} {
    set subjects {dummy 국어 수학 물리 지리 영어}
    return [lindex $subjects $value]
}

.sc axis configure x \
  -color white -command "getSubjectByID" \
  -title Subject -titlecolor "#c0c0c0"

axis는 기본적으로 "x"와 "y"가 이미 생성되어 있기 때문에 "axis create" 같은 명령을 쓸 필요 없이 바로 "axis configure x"로 옵션을 지정할 수 있습니다. 여기서 중요한 점은 -command "getSubjectByID" 옵션입니다. -command를 지정하면, X축에 -xdata로 전달한 숫자 배열 대신 이 명령이 호출되어 반환된 문자열이 표시됩니다. 이 명령 뒤에는 barchart 컴포넌트의 위젯(여기서는 .sc)과 현재의 값이 인자로 자동으로 붙습니다. 이렇게 하면 X축에는 {1 2 3 4 5} 대신 {국어 수학 물리 지리 영어} 가 표시됩니다.

Y축도 방법도 동일합니다. 여기서는 -min과 -max를 지정해서 그려지는 그래프의 값 범위를 지정하고 있습니다. -min과 -max를 넓히거나 좁히면 줌 인/아웃 기능을 쉽게 넣을 수 있습니다.

.sc axis configure y -color white -min 0 -max 100

legend(레전드)는 "범례"를 의미합니다. 범례에 표시되는 각 데이터 시리즈의 설명은 element configure 서브커맨드의 -label 옵션으로 지정합니다. legend configure 서브커맨드는 범례를 표시하는 직사각형 영역의 꾸밈 방식을 지정하는 것입니다.

.sc legend configure \
  -position right -relief groove -font 7x14 -fg blue

크로스헤어(십자선)는 이전 페이지에서도 나왔듯이, 마우스가 그래프 위를 움직이면 거기에 따라 십자 형태로 움직이는 교차선입니다. 크로스헤어는 기본적으로 "표시하지 않음"이기 때문에, 표시하려면 "-hide" 옵션을 "no"로 해야 합니다.

.sc crosshairs configure \
  -hide no -color black -linewidth 2 -dashes ""
Blt_Crosshairs .sc

또한 실제로 크로스헤어를 표시하려면 위와 같이 Blt_Crosshairs라는 하위 라이브러리 프로시저를 호출해야 합니다.

그리드는 페인트 툴이나 드로잉 툴에서 익숙한 격자무늬입니다. 이것도 기본적으로 표시되지 않으니, 역시 "-hide no"로 해야 표시됩니다. 크로스헤어 옵션에도 있었던 -dashes는 점선의 "끊김 정도"를 지정하는 것입니다. 말로 설명하기 어렵기 때문에 적당히 값을 바꿔서 시험해 보세요. -dashes ""로 하면 실선으로 표시되고, 기본값도 실선입니다.

.sc grid configure \
  -hide no -color "#808080" -dashes {1 4 1}

마지막으로 중요한 마커가 남았는데, 이는 감각적으로는 캔버스 위젯(canvas)처럼 그래프 영역 내에 사각형, 원 같은 도형, 텍스트, 이미지, 그리고 다른 Tk 컴포넌트를 배치할 수 있습니다. 아래 예시에서는 각 막대의 맨 위에 이미지 데이터를 붙인 라벨을 올리고 있습니다.

image create photo Image1 -file copy.gif
for {set i 0} {$i<[llength $xdata]} {incr i} {
    set lab [label .sc.lab$i -image Image1]
    .sc marker create window \
        -coords [list [lindex $xdata $i] [lindex $ydata $i]] \
        -anchor n -window $lab
}

마지막으로 이 .sc를 pack 등으로 배치하면 막대 그래프가 완성됩니다.

pack .sc -side top
button .cmda -text Close -command exit
pack .cmda

Tk 위젯에 배경 이미지 붙이기

BLT에서는 라벨, 버튼, 체크 버튼, 라디오 버튼, 프레임, 스크롤바, 탑레벨 위젯의 배경에 photo 이미지로 만든 이미지를 배경 이미지로 셋팅 할 수 있도록 확장되어 있습니다. 사용 방법은 간단하게, -tile 옵션에 이미지 이름을 지정해주기만 하면 됩니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . {BLT 샘플}

image create photo Image1 -file bg.gif
frame .f -tile Image1
message .f.ma -text {Hello. This is a sample of tile-extended widgets.} \
  -fg #700040 -font {Helvetica 12 normal}
button .f.cmda -text OK -command exit -tile Image1
pack .f.ma   -side top -padx 4 -pady 4
pack .f.cmda -side top -ipadx 10 -padx 4 -pady 4
pack .f

이 기능을 효과적으로 사용하면, 여러분의 애플리케이션이 보기좋게 변신됩니다.

스냅샷 기능

BLT에는 Tcl/Tk 윈도우의 스냅샷을 찍어서, Tk의 photo 이미지로 복사하는 기능이 있습니다. 캔버스에 그린 도형을 비트맵으로 저장할 수 있어 매우 편리합니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

canvas .can -bg white
.can create polygon {20 30 40 80 60 90 90 75 50 40 20 30} \
  -outline yellow -fill red -tag TagPolygon
.can create oval 100 80 130 110 -outline blue -fill cyan -width 5 -tag TagOval
foreach t {TagPolygon TagOval} {
    .can bind $t <Button-1> { set StartX %x ; set StartY %y }
    .can bind $t <Button1-Motion> "
      set dx \[expr %x-\$StartX\]; set dy \[expr %y-\$StartY\]
      set StartX %x; set StartY %y; %W move $t \$dx \$dy"
}
pack .can
bind .can <Button-3> {
    image create photo Image1
    winop snap .can Image1
    Image1 write output.gif -format gif
    image delete Image1
}

스냅샷을 찍는 것은 winop snap이라는 명령어로, 인자로 찍고 싶은 윈도우와 저장할 photo 이미지의 이름을 지정해주면 됩니다.

winop snap .can Image1

위의 이미지는 위의 코드로 생성된 GIF 이미지 파일입니다.

탭셋(Tabset)

탭셋은 탭을 붙일 수 있는 GUI 위젯입니다.

탭셋은 위의 이미지와 같이 탭을 클릭하면 그 탭에 연결된 윈도우를 보여주는 기능입니다. 이런 GUI 위젯을 Tcl/Tk에서 사용할 수 있게 해주는 확장은 여러 종류가 있지만, BLT의 탭셋도 꽤 쓰기 쉽고 유용한 위젯이라고 생각됩니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플"
pack [set ta [tabset .ta]] -side top

$ta insert end tab1 -text "그림"
frame $ta.f1
set can [canvas $ta.f1.can -width 200 -height 200 -bg white]
bind $can <Button-1> { set sx %x; set sy %y }
bind $can <Button1-Motion> {
  set colorSpec [format "#%%02x%%02x%%02x" $Color(RED) $Color(GREEN) $Color(BLUE)]
  %W create line $sx $sy %x %y -fill $colorSpec -width $LineWidth
  set sx %x; set sy %y
}
pack $can
$ta tab configure tab1 -window $ta.f1

$ta insert end tab2 -text "선의 설정"
set fa [frame $ta.f2]
set LineWidth 4
set scaa [scale $fa.scaa -from 1 -to 10 \
  -variable LineWidth -length 140 -ori h -label "선의 굵기"]
pack $scaa -side top -anc w
foreach e {red green blue} {
  set Color([string toupper $e]) 128
  set sca$e [scale $fa.sca$e -from 0 -to 255 \
    -variable Color([string toupper $e]) -ori h -label [string toupper $e]]
  pack [set sca$e] -side top -anc w
}
$ta tab configure tab2 -window $ta.f2

$ta insert end tab3 -text "파일"
set fa [frame $ta.f3]
set lm [label $fa.la -text "출력 모드"]
set fm [frame $fa.fm -rel groove -bd 2]
set modeStrings {컬러 그레이 이진}
set modes {color gray mono}
set OutputColorMode color
foreach e {0 1 2} {
  set r [radiobutton $fm.rad$e -variable OutputColorMode \
         -text [lindex $modeStrings $e] -value [lindex $modes $e]]
  pack $r -side left -padx 4
}
set lf [label $fa.lf -text "출력 파일명"]
set ff [frame $fa.ff -rel groove -bd 2]
entry $ff.ea -width 30 -textvariable OutputFileName
button $ff.ba -text "찾아보기..." -command {
  if {"[set a [tk_getSaveFile -title "출력 파일명 지정"]]" != ""} {
    set OutputFileName $a
  }
}
pack $ff.ea $ff.ba -side left -padx 4
set b [button $fa.b -text "출력" -command {
  if {"$OutputFileName" == ""} {
    tk_messageBox -message "파일을 지정해 주세요."
  } else {
    $can postscript -file $OutputFileName -colormode $OutputColorMode
    tk_messageBox -message \
"출력 완료: $OutputFileName ([file size $OutputFileName]bytes)"
  }
}]
pack $lm $fm $lf $ff $b -side top -anc w
$ta tab configure tab3 -window $ta.f3

pack [set ba [button .ba -text "닫기" -command exit]] \
 -padx 5 -pady 5 -anc e -side top

사용법은 매우 간단합니다. BLT 라이브러리를 로드한 뒤, tabset이라는 명령어로 일반 Tk 위젯처럼 이름을 지정해서 생성합니다. tabset의 옵션은 frame 명령어의 옵션과 비슷해서, -relief, -borderwidth, -width 등을 지정할 수 있습니다.

pack [set ta [tabset .ta -relief groove -borderwidth 2]] -side top

다음으로, 각 탭을 클릭했을 때 표시될 GUI를 만듭니다. 이것은 탭별로 하나씩 frame을 만들고, 그 안에 각 탭의 GUI를 넣으면 편리합니다. 여기서 추가할 frame 등 위젯은 반드시 tabset 위젯(여기서는 .ta)의 자식 위젯이어야 합니다.

frame .ta.f1
# ... 이하에 GUI 위젯을 추가
frame .ta.f2
# ... 이하에 GUI 위젯을 추가
# ...

각 탭에 표시될 GUI를 만들었으면, 탭과 그 GUI를 "연결"합니다. 이는 아래와 같이 tabset 위젯의 insert 서브커맨드를 사용해 tabset에 탭을 추가하고, 탭의 제목 부분은 -text 옵션으로, 탭 GUI의 "내용"이 될 위젯을 -window 옵션으로 지정합니다.

$ta insert end tab1 -text "그림"
$ta tab configure tab1 -window $ta.f1

tab1이나 tab2 같은 이름은 각 탭마다 자유롭게 붙일 수 있는 고유한 "이름"입니다. 이렇게 지정된 이름은 tab configure 서브커맨드를 사용하여 각 탭을 제어하는데 사용 됩니다. 이렇게 "그림" 탭을 클릭하면, 프레임 .ta.tab1에 지정된 GUI가 표시되게 됩니다.

트리뷰(Treeview)

BLT 버전 2.4w부터 트리뷰(treeview) 위젯이 추가되었습니다. 이것은 2.4o에서 2.4v까지 존재했던 계층구조테이블(hiertable)의 상위 호환으로, 왼쪽 절반은 계층형 리스트박스와 같은 트리, 오른쪽 절반은 테이블 형식의 정보 표시 영역을 제공합니다. 오른쪽은 워크시트처럼 직접 키보드 입력으로 값을 편집할 수는 없지만, 그래도 상당히 강력한 위젯입니다. 2.4w에서 이 treeview가 등장함에 따라, hierbox 위젯과 hiertable 위젯은 호환성을 위해서만 남겨놓은 상태 입니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플(treeview)"
treeview .ta -separator / -width 400 -height 160
set paths {/korea /korea/taejeon /korea/boondang 
           /korea/boondang/pankyo /korea/busan /china}
set labels {한국지사 대전지점 분당지점 판교출장소 부산지점 중국지사}
for {set i 0} {$i<6} {incr i} {
    set ids([lindex $paths $i]) \
      [.ta insert end [lindex $paths $i] \
       -label [lindex $labels $i] ]
}
.ta entry configure $ids(/china) -foreground red

.ta column insert end "emps" -text 직원수
.ta column insert end "equips" -text 설비대수
.ta column insert end "start_date" -text 시작연월
.ta entry configure $ids(/korea/boondang) \
  -data {emps 45 equips 130 start_date 200010}
.ta selection set $ids(/korea/taejeon)
.ta open $ids(/korea)

bind .ta <Double-Button-1> {
    set id [%W curselection]
    set path [%W get -full $id]
    set label [%W entry cget $id -label]
    tk_messageBox -message "/$path ($label) 이(가) 클릭되었습니다."
}
pack .ta

트리뷰는 treeview 명령어로 만듭니다. 일반 Tk 위젯과 마찬가지로 뒤에 옵션을 붙일 수 있습니다.

treeview .ta -separator / -width 400 -height 160

리스트박스처럼 스크롤바와 함께 사용할 경우가 많으리라 생각합니다. 하지만 가장 중요한 옵션은 -separator로, 트리에 표시할 아이템의 계층을 나타내는 경로(Path)의 구분 문자를 지정합니다. 여기서는 "/"를 사용했지만, "."이나 "::" 등도 많이 씁니다. 트리에 아이템을 추가하려면 insert 서브커맨드를 사용합니다. 이것은 리스트박스의 insert 명령과 거의 같습니다.

set paths {/korea /korea/taejeon /korea/boondang 
           /korea/boondang/pankyo /korea/busan /china}
set labels {한국지사 대전지점 분당지점 판교출장소 부산지점 중국지사}
for {set i 0} {$i<6} {incr i} {
    set ids([lindex $paths $i]) \
      [.ta insert end [lindex $paths $i] \
       -label [lindex $labels $i] ]
}

end 위치에는 새로운 아이템을 추가할 위치를 지정하는 인덱스나 키워드를 사용할 수 있습니다. end도 그중 하나입니다. 자세한 것은 매뉴얼을 참고하세요. 그리고 그 뒤에 "/korea/boondang/pankyo" 와 같은 경로를 지정하고, 실제로 트리에 표시되는 문자열은 -label로 지정합니다. 이 명령은 아이템의 ID(정수) 를 반환합니다.

한 번 추가한 아이템의 설정을 변경하려면 entry configure 서브커맨드를 사용합니다. 예를 들어, 경로 "/china"의 라벨을 빨간색으로 바꾸려면,

.ta entry configure $ids(/china) -foreground red

와 같이 하면 됩니다. 마찬가지로 값을 얻으려면 entry cget 서브커맨드를 사용합니다.

set label [.ta entry cget $ids(/china) -label]

여기까지가 왼쪽에 표시된 부분의 설명이었습니다.

오른쪽 부분을 만들려면, 먼저 column insert 서브커맨드로 왼쪽부터 차례로 컬럼을 추가합니다. end 뒤의 문자열은 각 열을 고유하게 식별할 컬럼 ID를 적당히 지정합니다. 이때 -text 옵션으로 헤더 문자열을 지정할 수 있습니다.

.ta column insert end "emps" -text 직원수
.ta column insert end "equips" -text 설비대수
.ta column insert end "start_date" -text 시작연월

그리고 각 아이템에 대해 -data 옵션으로 표시하고 싶은 데이터를 지정합니다. 그 데이터는 "컬럼 ID"와 "값"을 번갈아 나열한 리스트 형태입니다.

.ta entry configure $ids(/korea/boondang) \
  -data {emps 45 equips 130 start_date 200010}

이 과정을 각 아이템에 대해 반복하면 트리뷰가 완성됩니다.

BLT 그래프의 다양한 기능

여러 막대그래프를 나란히 그리기

아래는 인구 그래프로 아래의 이미지와 같이 동일한 X축, Y축에 대해 여러 개의 막대그래프를 그릴 수 있습니다. 주의해야 할 점은, BLT에서는 기본적으로 한 번에 4개(X축 2개, Y축 2개)까지 그릴 수 있는데, 좌표축이 다른 막대그래프를 여러 개 그리려고 하면 뒤쪽 막대가 앞쪽 막대를 가려서 제대로 보이지 않습니다. 이런 경우는 뒤에서 설명할 꺾은선그래프를 사용하는 것이 좋습니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "5대 도시의 인구"

barchart .bc \
 -background "#808080" -barwidth 1 -plotbackground "#c0c0c0" \
 -plotrelief sunken -plotborderwidth 2 \
 -title "5대 도시의 인구" -relief groove -bd 2 -barmode aligned

set x_dummy {1 2 3 4 5}
set Popu1992 {10446 3829 2371 2065 1185}
set Popu2025 {9210 3210 2296 2959 1439}

proc getPrefName {bc n args} {
    set prefName {dummy 서울 부산 대구 인천 광주}
    return [lindex $prefName $n]
}

.bc element create ELEM1992 -hide no \
  -xdata $x_dummy -ydata $Popu1992 -label "1992년 조사" \
  -fg "#700040" -bg white -relief sunken -stipple gray50 \
  -bindtags TagBarElems

.bc element create ELEM2025 -hide no \
  -xdata $x_dummy -ydata $Popu2025 -label "2025년 조사" \
  -fg "#006000" -bg white -relief sunken -stipple gray50 \
  -bindtags TagBarElems

.bc element bind TagBarElems <Button-1> {
    # invtransform은 윈도우 좌표를 좌표축의 좌표로 변환합니다.
    # "invtransform" 다음의 x, y 등은 좌표축의 이름입니다.
    set x [.bc axis invtransform x %x]
    set y [.bc axis invtransform y %y]
    tk_messageBox -message "안녕하세요! $x $y"
}

# 좌표축은 기본적으로 x,x2,y,y2의 4가지가 정의되어 있고, x와 y는 기본적으로
# -hide no, x2와 y2는 -hide yes입니다.
.bc axis configure x \
  -color white -command getPrefName -title 부현 -titlecolor #c0c0c0 \
  -showticks 1

.bc axis configure y \
  -color white -min 0 -max 12000 -hide no -showticks 1 \
  -title "인구" -titlefont {{굴림} 14 normal}

.bc legend configure -position right -relief groove -bd 2 \
  -font 7x14 -fg #000060
.bc grid configure -hide no -color "#808080" -dashes {1 4 1} \
  -mapx {} -mapy y

pack .bc -side top
pack [button .cmda -text 닫기 -command exit] -anc e

막대그래프를 나란히 표시하려면, `barchart`의 `element create` 서브커맨드를 그 수만큼 실행하면 됩니다. 물론, 이 때 각 element의 `-xdata`는 동일하게 설정해야 합니다. 또한 여러 막대의 나열 방식을 `barchart` 위젯의 `-barmode` 옵션으로 지정할 수 있다는 것입니다.

infront: 뒤에 표시되는 아이템이 앞의 아이템 위치를 덮어써서 표시합니다.
stacked: 막대그래프를 누적 표시합니다.
aligned: 옆으로 나란히 표시합니다.
overlap: 옆으로 나란히 표시하지만, 약간 앞의 아이템과 겹치게 표시합니다.

위의 예시에서는 `aligned`를 사용하였으므로, 각 막대가 `element create`를 실행한 순서대로 왼쪽에서 오른쪽으로 나란히 정렬되어 있습니다. 참고로, 좀 더 멋을 내기 위해 막대그래프에 그림자를 추가하여 3D 느낌을 내거나 여러 효과를 주고 있는데, `-stipple` 옵션을 사용하면 속도가 느려지므로, 보통은 사용하지 않는 것이 좋습니다.

여러 개의 꺾은선그래프를 나란히 그리기

아래는 야채 생산량 데이타로 서로 다른 Y축에 꺽은선 그래프를 여러개 그린 예 입니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플"
graph .g -background "#808080" -plotbackground "#c0c0c0" \
 -plotrelief sunken -plotborderwidth 2 \
 -title "야채 생산량" -relief groove -bd 2

set x_dummy {1 2 3 4 5}
set CornData {4040 4563 6512 7328 6684 5879}
set PoData  { 340  328  457  813  489  507}

proc getYear {gc n args} {
    set y {dummy 1993 1994 1995 1996 1997 1998}
    return [lindex $y $n]
}

.g element create ELEM_AREA -hide no \
  -xdata $x_dummy -ydata $CornData -label "옥수수(왼쪽)" \
  -color white -dashes {1 5 1} -fill #600000 -pixels 4 \
  -linewidth 1 -outline #f00000 -outlinewidth 1 -symbol square \
  -bindtags TagElems -mapy y -mapx x

.g element create ELEM_POPU -hide no \
  -xdata $x_dummy -ydata $PoData -label "고구마(오른쪽)" \
  -color yellow -dashes {1 5 1} -fill #000060 -pixels 4 \
  -linewidth 1 -outline #0000f0 -outlinewidth 1 -symbol circle \
  -bindtags TagElems -mapy y2 -mapx x

.g element bind TagBarElems <Button-1> {
  tk_messageBox -message "안녕하세요!"
}

# 좌표축은 기본적으로 x, x2, y, y2의 4가지가 정의되어 있고
# x와 y는 기본적으로 -hide no, x2와 y2는 -hide yes입니다.
.g axis configure x \
  -color white -command getYear -title 연도 -titlecolor #c0c0c0 \
  -showticks 1

.g axis configure y \
  -color white -min 0 -max 10000 -hide no -showticks 1

.g axis configure y2 \
  -color white -min 0 -max 1000 -hide no -showticks 1

.g legend configure -position right -relief groove -bd 2 \
  -font 7x14 -fg #000060

.g grid configure -hide no -color "#808080" -dashes {1 4 1} \
  -mapx "" -mapy y
pack .g -side top -padx 4 -pady 4
pack [ttk::button .cmda -text 종료 -command exit] -anc e -padx 8
. configure -bg #206020

막대그래프 때처럼 element create를 각각 다른 데이터에 대해 여러 번 실행하면, 같은 X축, Y축 위에 여러 개의 꺾은선그래프를 그릴 수 있습니다. 하지만 이것만으로는 막대그래프 예제와 거의 다르지 않기 때문에, 여기서는 서로 다른 Y축 위에 각각 꺾은선그래프를 그려 보았습니다.

이를 위해서는 먼저, graph 위젯의 axis configure 서브커맨드로 두 번째 Y좌표축인 "y2"축을 설정해줘야 합니다. 특히 -hide no를 반드시 해야 합니다. Y2축은 기본값이 "숨김"이기 때문입니다. 따로 조작하지 않으면, 주 Y축(y)은 왼쪽에, y2축은 오른쪽에 나타납니다.

다음으로 element create로 각 꺾은선을 만들 때, -mapy 옵션으로 해당 꺾은선이 참조할 Y좌표축을 지정합니다. 여기서는 옥수수를 왼쪽 "y"축에, 고구마를 오른쪽 "y2"축에 대응시켰습니다. 아래 꺽은선그래프의 그리기 옵션에 대해 정리해두겠습니다.

-color : 선 색상 (기본값: 검정)
-dashes : 선을 점선(파선)으로 할 때 패턴 (기본값: {} → 실선)
-linewidth : 선 두께 (기본값: 0 → 선 없이 심볼만 표시)
-fill : 심볼의 채우기 색 (기본값: {} → 채우지 않음)
-outline : 심볼 테두리 색 (기본값: {} → 테두리 없음)
-outlinewidth : 테두리 두께 (기본값: 1)
-symbol : 심볼 모양 (square, circle, diamond, plus, cross, splus, scross, triangle, {}=심볼 없음 중 선택)
-pixels : 심볼 크기

기본값으로는 심볼이 보이지 않으니 주의 하세요. 그리고 기본 심볼 크기가 너무 크니, 반드시 -pixels 옵션으로 크기를 조정하면 됩니다.

꺾은선그래프와 막대그래프를 함께 표시하기

두 개의 꺾은선그래프를 표시하는 방법을 응용하면, 꺾은선그래프와 막대그래프를 동시에 그리는 것도 아주 쉽습니다. 기본적으로 graph 위젯에서, element create 대신 bar create를 쓰면 됩니다.

package require BLT
namespace import blt::*
namespace import -force blt::tile::*

wm title . "BLT 샘플"
graph .g -background "#808080" -plotbackground "#c0c0c0" \
 -plotrelief sunken -plotborderwidth 2 \
 -title "야채 생산량" -relief groove -bd 2

set x_dummy {1 2 3 4 5}
set CornData {4040 4563 6512 7328 6684 5879}
set PoData  { 340  328  457  813  489  507}

proc getYear {gc n args} {
    set y {dummy 1993 1994 1995 1996 1997 1998}
    return [lindex $y $n]
}

.g element create ELEM_AREA -hide no \
  -xdata $x_dummy -ydata $CornData -label "옥수수(왼쪽)" \
  -color white -dashes {1 5 1} -fill #600000 -pixels 4 \
  -linewidth 1 -outline #f00000 -outlinewidth 1 -symbol square \
  -bindtags TagElems -mapy y -mapx x

.g bar create ELEM_POPU -hide no \
  -xdata $x_dummy -ydata $PoData -label "고구마(오른쪽)" \
  -fg #000060 -bg white -relief raised -bd 2 \
  -bindtags TagElems -mapy y2 -mapx x

.g element bind TagBarElems <Button-1> {
  tk_messageBox -message "안녕하세요!"
}

.g axis configure x \
  -color white -command getYear -title 연도 -titlecolor #c0c0c0 \
  -showticks 1

.g axis configure y \
  -color white -min 0 -max 10000 -hide no -showticks 1

.g axis configure y2 \
  -color white -min 0 -max 1000 -hide no -showticks 1

.g legend configure -position right -relief groove -bd 2 \
  -font 7x14 -fg #000060

.g grid configure -hide no -color "#808080" -dashes {1 4 1} \
  -mapx "" -mapy y
pack .g -side top -padx 4 -pady 4
pack [ttk::button .cmda -text 종료 -command exit] -anc e -padx 8
. configure -bg #206020

똑똑하게 범례(legend)도 자동으로 변경됩니다.

원형그래프 (piechart)

아쉽게도 BLT에는 원형그래프를 제공하지 않습니다. 대신 tkpiechart를 사용하시면 됩니다.

Blend2d 1.6

티클러 — Mon, 22 Sep 2025 21:59:07 +0900

홈페이지: https://sourceforge.net/projects/irrational-numbers/

TclBlend2d는 Blend2d 그래픽 엔진을 다루기 위한 Tcl 패키지입니다. Blend2d는 오픈 소스이자 고품질, 고성능의 벡터 그래픽 엔진입니다. TclBlend2d는 Windows와 Linux용 Blend2d 라이브러리를 포함한 멀티플랫폼 바이너리 패키지입니다. MacOS 지원도 계획되어 있습니다. TclBlend2d로 생성한 이미지는 BMP 파일로 저장하거나 tk-photo 이미지로 저장할 수 있습니다. TclBlend2d는 "blend2d"라는 새로운 유형의 tk-image도 제공합니다. 이 이미지는 tk-photo 이미지처럼 위젯에 임베드하여 사용할 수 있습니다. "blend2d" tk-image에 그림을 그리고, 이 이미지가 연결된 위젯에서 바로 변경된 내용을 확인할 수 있습니다. TclBlend2d는 Blend2d C++ API와 거의 동일하게 동작하지만, Tcl 방식이 더 적합한 경우에는 예외적으로 Tcl 스타일을 따릅니다.

TclBlend2d is a Tcl package for working with the Blend2d graphics engine. Blend2d is an open source, high quality, high-performance vector graphics engine. TclBlend2d is a multiplatform binary package including Blend2d library for Windows and Linux; MacOS support is planned. Images created with TclBlend2d can be saved as BMP files, or exchanged with the tk-photo images. TclBlend2s provides also a new type of tk-image (named "blend2d") you can embed in your widgets much like a tk-photo image. You can draw on a "blend2d" tk-image and instantly see the changes in the widgets that have this image attached. TclBlend2d closely matches the Blend2d C++ API with the exception of cases where a more Tcl-ish way is more appropriate.

blend2d-1.6.zip

8.30MB

트리 스타일의 표시 위젯 TkTreeCtrl

티클러 — Fri, 19 Sep 2025 13:10:20 +0900

TkTreeCtrl은 ttk::treeview와 마찬가지로 계층적인 트리 표시가 가능한 리스트 박스 위젯입니다. 여러 데이터 항목을 여러 열에 표시할 수 있으며, 약간의 코딩이 필요하지만 셀의 인라인 편집도 가능합니다. 특징은 매우 많은 설정 항목을 가지고 있어 다양한 표시를 구현할 수 있다는 점입니다. 참고 매뉴얼은 [여기] 에서 볼 수 있습니다. 여기 나열된 위젯 명령만 보더라도 상당한 기능을 엿볼 수 있습니다. 최신 버전은 2.2.10입니다. Windows에서는 ActiveTcl 배포판에 포함되어 바로 사용할 수 있지만, 위의 사이트에서 별도로 소스 및 바이너리 배포본을 다운로드할 수도 있습니다. 그 중 demos 디렉토리에는 다양한 데모가 포함되어 있습니다.

이 강좌에서는 트리 표시 예시 말고, 세로와 가로 2차원 표 형식의 표시, 편집 화면 샘플을 만들어 올려봅니다.

아래의 탭으로 구분 지어진 인구수를 표시한 텍스트 샘플을 만듭니다.

1	서울특별시	수도권 	광역단체 	9,407,540
2	부산광역시	영남권 	광역단체 	3,320,276
3	인천광역시	수도권 	광역단체 	2,964,820
4	대구광역시	영남권 	광역단체 	2,365,619
5	대전광역시	호서권 	광역단체 	1,446,749
6	광주광역시	호남권 	광역단체 	1,432,049
8	울산광역시	영남권 	광역단체 	1,111,371

Tcl 프로그램은 아래와 같습니다.

package require treectrl

# 탭으로 구분된 텍스트 파일을 읽어서
# 내용을 행, 열 2차원 리스트에 저장하여 반환합니다.
proc readDataFile dataVar {
    upvar $dataVar data
	set fd [open "./data.txt" r]
	set rows [split [read $fd] \n]
    set data {}
    foreach rowStr $rows {
        set rowArr [split $rowStr "\t"]
        if {[llength $rowArr] != 0} { lappend data $rowArr }
    }
}

# treectrl 위젯 생성
set f [frame .f]
set t [treectrl2 $f.t -font {Helvetica 12 normal} -width 400 -height 200 \
  -xscrollcommand "$f.x set" -yscrollcommand "$f.y set" ]
scrollbar $f.x -ori h -com "$t xview"
scrollbar $f.y -ori v -com "$t yview"
grid $t $f.y -sti news
grid    $f.x -sti news
grid rowconfig $f 0 -weight 1
grid columnconfig $f 0 -weight 1
pack $f

# 열 생성 및 헤더 행 정의
set x 0
foreach e [list 순위 행정구역 행정구분 인구수] {
    $t column create -text $e -expand yes -button no \
      -itembackground {#ffdddd #ddddff}
    if {$x == 0 || $x == 3} {
        $t column configure $x -itemjustify right
    }
    incr x
}

# 데이터 파일 읽기
readDataFile data

# Element 생성
$t element create eText text -fill [list #800000 { selected focus }]

# Style 생성
$t style create s1
$t style elements s1 eText
$t style layout s1 eText -padx {4 6} -expand ns -iexpand ns -sticky s

# 각 데이터 행(item) 생성
foreach rowData $data {
    set rowId [$t item create]
    set col 0
    foreach cell $rowData {
        $t item style set $rowId $col s1
        $t item text $rowId $col [lindex $rowData $col]
        incr col
    }
    $t item lastchild root $rowId
}

bind . <Control-q> exit

도스 폰트

티클러 — Fri, 19 Sep 2025 09:56:32 +0900

도스시절의 16x16 사이즈 비트맵 폰트 스타일을 적용해보고자 한다면..

네오 둥근모

https://github.com/neodgm/neodgm-pro/releases

NeoDunggeunmoPro-Regular.woff

0.10MB

NeoDunggeunmoPro-Regular.ttf

0.64MB

NeoDunggeunmoPro-Regular.woff2

0.04MB

HBIOS-SYS

https://hbios.quiple.dev/

http://noonnu.cc/font_page/960

도스 유명 폰트들

https://github.com/hurss/fonts

https://noonnu.cc/index?search=leedheo

fonts-master.zip

15.92MB

thtmlview

티클러 — Thu, 18 Sep 2025 10:08:17 +0900

홈페이지: https://github.com/mittelmark/thtmlview

thtmlview 패키지는 기본적인 HTML 및 Markdown 파일을 표시할 수 있는 순수 Tcl/Tk 위젯을 제공합니다. 사용하려면 Tcllib 패키지의 snit가 설치되어 있어야 합니다. Markdown 파일을 표시하려면 Tcllib의 Markdown 패키지도 추가로 설치해야 합니다. JPEG 이미지를 지원하려면 TkImg 패키지가 필요합니다.

이 위젯은 웹 브라우저가 아닙니다. http(s) 주소를 사용할 수 없으며, 이미지와 링크에는 반드시 상대 파일명을 사용해야 합니다. 또한 위젯은 HTML 페이지에 직접 임베드된 base64 인코딩 이미지도 지원합니다.

thtmlview는 해당 패키지의 개발자가 만든 다른 위젯인 shtmlview를 포크한 것입니다. shtmlview는 https://github.com/tcltk/tklib에서 찾으실 수 있습니다. thtmlview의 변경사항을 shtmlview에 적용하고 싶었지만, 저는 fossil을 사용하지 않으므로 일반적인 포크 및 병합 방식이 작동하지 않았습니다. 그래서 tcllib 위젯과 구분하기 위해 제 위젯의 이름을 shtmlview에서 thtmlview로 변경하기로 했습니다. 이런 포크를 하게 되어 죄송하지만, 저는 제 소프트웨어에서 위젯을 직접 사용하고 확장해야 했고, 그것이 tklib에서 지원하는 방식과는 다를 수 있기 때문입니다.

thtmlview-main.zip

0.16MB

네이버 카페 백업을 도와 드립니다.

티클러 — Tue, 9 Sep 2025 14:28:42 +0900

현재 운영 중인 네이버 카페가 있습니다. 카페 목적상 사진과 글 그리고 첨부 파일들이 많은 편입니다. 그래서 따로 카페의 백업을 위해 모든 게시글을 이미지, 첨부파일 그리고 댓글까지 포함하는 백업 프로그램을 개발해서 사용 중입니다. (현재까지 9만여개의 게시글을 백업하였습니다) 간혹 백업 중 에러가 나긴 하지만 99.9% 정도는 백업이 되며, 다른 싸이트에 이동이 용이하도록 가공이 되어 백업이 되고 있습니다. 혹시 운영중이신 네이버 카페의 백업이 필요하신 분은 방명록에 남겨주세요. 단 일정의 백업비용은 받고 있습니다. 감사합니다.

지금까지 4곳의 카페 백업이 완료가 되었습니다.
- 2025..... 1-3번째 백업 완료
- 2025/02/20 4번째 백업 완료
- 2025/03/26 5번째 백업 완료
- 2025/04/08 6번째 백업 완료

요소 절점 순서 (element node odering)

티클러 — Mon, 8 Sep 2025 23:53:03 +0900

출처: https://gmsh.info/doc/texinfo/gmsh.html#Node-ordering

아래는 요소 절점 순서...

Line:                  Line3:           Line4:

      v
      ^
      |
      |
0-----+-----1 --> u    0----2----1      0---2---3---1

Triangle:               Triangle6:          Triangle9/10:

v
^
|
2                       2                    2
|`\                     |`\                  | \
|  `\                   |  `\                7   6
|    `\                 5    `4              |     \
|      `\               |      `\            8  (9)  5
|        `\             |        `\          |         \
0----------1--> u       0-----3----1         0---3---4---1

Triangle12/15:

 v
 ^
 |
 2
 | \
 9   8
 |     \
10 (14)  7
 |         \
11 (12) (13) 6
 |             \
 0---3---4---5---1--> u

Quadrangle:            Quadrangle8:            Quadrangle9:

      v
      ^
      |
3-----------2          3-----6-----2           3-----6-----2
|     |     |          |           |           |           |
|     |     |          |           |           |           |
|     +---- | --> u    7           5           7     8     5
|           |          |           |           |           |
|           |          |           |           |           |
0-----------1          0-----4-----1           0-----4-----1

Tetrahedron:                          Tetrahedron10:

                   v
                 .
               ,/
              /
           2                                     2
         ,/|`\                                 ,/|`\
       ,/  |  `\                             ,/  |  `\
     ,/    '.   `\                         ,6    '.   `5
   ,/       |     `\                     ,/       8     `\
 ,/         |       `\                 ,/         |       `\
0-----------'.--------1 --> u         0--------4--'.--------1
 `\.         |      ,/                 `\.         |      ,/
    `\.      |    ,/                      `\.      |    ,9
       `\.   '. ,/                           `7.   '. ,/
          `\. |/                                `\. |/
             `3                                    `3
                `\.
                   ` w

Hexahedron:             Hexahedron20:          Hexahedron27:

       v
3----------2            3----13----2           3----13----2
|\     ^   |\           |\         |\          |\         |\
| \    |   | \          | 15       | 14        |15    24  | 14
|  \   |   |  \         9  \       11 \        9  \ 20    11 \
|   7------+---6        |   7----19+---6       |   7----19+---6
|   |  +-- |-- | -> u   |   |      |   |       |22 |  26  | 23|
0---+---\--1   |        0---+-8----1   |       0---+-8----1   |
 \  |    \  \  |         \  17      \  18       \ 17    25 \  18
  \ |     \  \ |         10 |        12|        10 |  21    12|
   \|      w  \|           \|         \|          \|         \|
    4----------5            4----16----5           4----16----5

Prism:                      Prism15:               Prism18:

           w
           ^
           |
           3                       3                      3
         ,/|`\                   ,/|`\                  ,/|`\
       ,/  |  `\               12  |  13              12  |  13
     ,/    |    `\           ,/    |    `\          ,/    |    `\
    4------+------5         4------14-----5        4------14-----5
    |      |      |         |      8      |        |      8      |
    |    ,/|`\    |         |      |      |        |    ,/|`\    |
    |  ,/  |  `\  |         |      |      |        |  15  |  16  |
    |,/    |    `\|         |      |      |        |,/    |    `\|
   ,|      |      |\        10     |      11       10-----17-----11
 ,/ |      0      | `\      |      0      |        |      0      |
u   |    ,/ `\    |    v    |    ,/ `\    |        |    ,/ `\    |
    |  ,/     `\  |         |  ,6     `7  |        |  ,6     `7  |
    |,/         `\|         |,/         `\|        |,/         `\|
    1-------------2         1------9------2        1------9------2

Pyramid:                     Pyramid13:

               4                            4
             ,/|\                         ,/|\
           ,/ .'|\                      ,/ .'|\
         ,/   | | \                   ,/   | | \
       ,/    .' | `.                ,/    .' | `.
     ,/      |  '.  \             ,7      |  12  \
   ,/       .' w |   \          ,/       .'   |   \
 ,/         |  ^ |    \       ,/         9    |    11
0----------.'--|-3    `.     0--------6-.'----3    `.
 `\        |   |  `\    \      `\        |      `\    \
   `\     .'   +----`\ - \ -> v  `5     .'        10   \
     `\   |    `\     `\  \        `\   |           `\  \
       `\.'      `\     `\`          `\.'             `\`
          1----------------2            1--------8-------2
                    `\
                       u

Pyramid14:

               4
             ,/|\
           ,/ .'|\
         ,/   | | \
       ,/    .' | `.
     ,7      |  12  \
   ,/       .'   |   \
 ,/         9    |    11
0--------6-.'----3    `.
  `\        |      `\    \
    `5     .' 13     10   \
      `\   |           `\  \
        `\.'             `\`
           1--------8-------2
                    `\
                       u

spinbox 강좌가 등록 되었습니다.

티클러 — Mon, 8 Sep 2025 21:45:34 +0900

Tk의 위젯중 spinbox 에 대한 강좌가 등록되었습니다.

Tk의 스핀박스 (spinbox)

티클러 — Mon, 8 Sep 2025 13:51:06 +0900

스핀박스(spinbox)는 엔트리(entry) 위젯을 확장한 위젯입니다. 스핀박스는 엔트리의 오른쪽에 위/아래 버튼이 붙어 있어서, 엔트리에서 값을 직접 입력할 뿐만 아니라 위아래 버튼을 눌러 값을 선택할 수도 있습니다.

spinbox 생성

스핀박스는 spinbox 커맨드로 생성합니다.

spinbox 위젯명 옵션

주요 옵션은 다음과 같습니다.

-from n -to m -increment i
선택할 수 있는 숫자 범위를 n에서 m까지로 설정합니다. 버튼을 눌렀을 때의 증가값은 i입니다. i가 부동소수점일 경우, 표시도 부동소수점이 됩니다.
-format 서식 문자열
선택하는 숫자가 부동소수점일 경우, 표시 방법을 서식 문자열로 지정합니다. 서식은 Tcl의 커맨드 format의 %f와 같습니다.
-value 리스트
선택할 항목을 리스트로 설정합니다.
-state 상태
스핀박스의 상태(normal, readonly, disabled)를 설정합니다.

숫자는 옵션 -from n -to m -increment i로 간단하게 설정할 수 있습니다. 숫자가 부동소수점일 경우, 옵션 -format으로 표시 방법을 설정할 수 있습니다. 숫자가 아닌 경우에는 옵션 -value를 사용합니다. 항목을 리스트에 담아 -value에 설정합니다. -state를 readonly로 하면 엔트리에서의 입력이 금지되고 버튼만으로 값을 선택하게 됩니다.

그럼 간단한 사용 예를 보여드리겠습니다. 다음 리스트를 보세요.

spinbox .s1 -from 1 -to 10 -increment 1 -width 10  
spinbox .s2 -from 1 -to 5 -increment 0.5 -width 10 -format %05.2f  
spinbox .s3 -value {apple banana cherry grape orange} -width 10 -state readonly  

pack .s1 .s2 .s3 -padx 5 -pady 5

스핀박스를 3개 만듭니다. .s1은 1에서 10까지의 숫자로, -increment는 1입니다. .s2는 1에서 5까지의 숫자지만, -increment가 0.5이므로 부동소수점으로 표시됩니다. -format의 지정이 %05.2f이므로 표시는 01.50과 같이 됩니다. .s3은 apple, banana, cherry, grape, orange 중에서 선택합니다. -state에 readonly를 지정했으므로 엔트리로 입력할 수 없습니다.

아래는 실행 결과입니다.


실행 직후의 상태	업 버튼을 한 번 누른 상태	업 버튼을 두 번 누른 상태

입력 데이터 확인

엔트리 위젯에는 validation이라는 입력 데이터를 확인하는 기능이 있습니다. 스핀박스에서도 validation을 사용할 수 있습니다. validation 설정은 옵션 -validate와 -validatecommand(-vcmd)로 합니다. 옵션 -validate는 입력 데이터를 확인하는 타이밍을 지정합니다. 타이밍 종류는 다음과 같습니다.

옵션	-validate의 값
none	validation을 하지 않음(기본값)
focus	입력 포커스를 얻거나 잃었을 때
focusin	입력 포커스를 얻었을 때
focusout	입력 포커스를 잃었을 때
key	키가 입력되었을 때
all	위 조건을 모두 만족했을 때

-validate로 지정한 조건을 만족했을 때, -vcmd로 지정한 커맨드를 실행하여 입력 데이터를 확인합니다. -vcmd에는 참 또는 거짓을 반환하는 커맨드를 지정하세요. 커맨드가 참을 반환하면 엔트리의 내용이 갱신됩니다. 커맨드가 거짓을 반환하면 엔트리의 내용은 변경되지 않습니다. 이때, 옵션 -invalidcommand에 커맨드가 설정되어 있다면 그 커맨드가 실행됩니다.

-vcmd와 -invalidcommand로 지정한 커맨드 내에서는 위젯 내 정보를 얻기 위한 방법이 준비되어 있습니다. %로 시작하는 문자열은 위젯 내 정보로 치환됩니다. 체크할 데이터는 %P로 얻을 수 있습니다. 그 밖의 정보는 Tcl/Tk의 도움말을 참조하세요.

그럼 간단한 사용 예를 보여드리겠습니다.

spinbox .s1 -from 1 -to 10 -increment 1 -width 10 \
            -validate key -vcmd {string is integer %P}
spinbox .s2 -value {apple banana cherry grape orange} -width 10 \
            -validate key -vcmd {expr {[string length %P] <= 8}}

pack .s1 .s2 -padx 5 -pady 5

스핀박스 .s1처럼 숫자를 입력하는 경우, 데이터가 숫자인지 확인해두면 편리합니다. 데이터 체크는 Tcl의 커맨드 string을 사용하면 간단합니다. string is class data는 인수 data가 문자 클래스 class로 구성되어 있는지 체크합니다. 문자 클래스란 문자의 종류입니다. 숫자인지 판정할 경우 integer를 지정합니다.

-validate에는 key를 지정합니다. 이는 엔트리에서의 키 입력에도 대응합니다. 키 입력이 있을 때마다 string is integer로 데이터를 체크하므로 숫자를 나타내는 문자 이외에는 입력할 수 없습니다.

스핀박스 .s2는 데이터 길이를 string length로 체크합니다. 이로써 8문자보다 긴 데이터를 입력할 수 없습니다.

pix 0.6

티클러 — Mon, 8 Sep 2025 09:42:30 +0900

홈페이지: https://github.com/nico-robert/pix

Pixie는 Nim 언어로 작성된 기능이 풍부한 2D 그래픽 라이브러리이며, pix는 Tcl/Tk에서 사용가능하게 래핑한 확장 패키지입니다.

Tcl/Tk wrapper around Pixie, a full-featured 2D graphics library written in Nim.

package require pix

# Init 'context' with size + color.
set ctx [pix::ctx::new {200 200} "white"]

# Style first rectangle.
pix::ctx::fillStyle $ctx "rgb(0, 0, 255)" ; # blue color
pix::ctx::fillRect $ctx {10 10} {100 100}

# Style second rectangle.
pix::ctx::fillStyle $ctx "rgba(255, 0, 0, 0.5)" ; # red color with alpha 50%
pix::ctx::fillRect $ctx {50 50} {100 100}

# Save context in a image file (*.png|*.bmp|*.qoi|*.ppm)
pix::ctx::writeFile $ctx rectangle.png

# Or display in label by example :
set p [image create photo]
pix::drawSurface $ctx $p
label .l -image $p
pack .l

pix-0.6.zip

5.36MB

OTcl 1.14

티클러 — Fri, 5 Sep 2025 21:37:43 +0900

홈페이지: https://otcl-tclcl.sourceforge.net/otcl/

OTcl은 MIT Object Tcl의 약자로, 객체 지향 프로그래밍을 위해 Tcl/Tk를 확장한 언어입니다.

OTcl이 다른 대안들과 비교해 가지는 주요 특징은 다음과 같습니다:

Tcl처럼 처음부터 동적으로 확장할 수 있도록 설계됨
다른 언어를 가져오는 대신 Tcl의 문법과 개념을 기반으로 구축됨
간결하면서도 강력한 객체 프로그래밍 시스템(CLOS, Smalltalk, Self에서 아이디어를 차용)
꽤 이식성이 높은 구현(핵심을 건드리지 않고 C 코드 2000줄 내외)

OTcl은 네트워크 시뮬레이터인 ns-2에서 쓰이고 있는 것으로 유명합니다.

otcl-src-1.14.tar.gz

0.31MB

XOTcl 1.6.8

티클러 — Fri, 5 Sep 2025 21:26:17 +0900

홈페이지: https://media.wu.ac.at/index.html

XOTcl(XOTcl, 발음은 이그조틱클)은 MIT의 OTcl을 기반으로 한 객체 지향 스크립트 언어로, 여러 가지 새로운 개념을 추가했습니다. 원래 XOTcl은 디자인 패턴의 구현을 지원하는 언어를 개발하기 위해 만들어졌으며, 디자인 패턴을 런타임에 추가하거나 제거할 수 있습니다. 이러한 새로운 언어는 다양한 응용 분야에 매우 유연하게 활용될 수 있었으며, 모듈식으로 독립적인 개념들을 조합하거나 동적으로 변경이 필요한 경우에 특히 유용합니다.

XOTcl (XOTcl, pronounced exotickle) is an object-oriented scripting language based on MIT's OTcl and adds several novel concepts. Originally, XOTcl was intended to develop language support for the implementation of design patterns, were design patterns can be added or removed at runtime. These new language proved to be highly flexible for w wide range of applications, where a moduluar composition of orthogonal concepts and/or dynamic changes are desired.

XOTcl의 동기

Tcl과 같은 스크립트 언어는 컴포넌트들을 연결(glueing)하는 데 적합하도록 설계되었으며, 동적 확장성(dynamic extensibility), 동적 타입(dynamic typing) 및 자동 변환(automatic conversion)과 같은 기능을 제공하여 빠른 애플리케이션 개발에 매우 적합합니다.

Scripting languages, like Tcl, are designed for glueing components together, provide features like dynamic extensibility and dynamic typing with automatic conversion, that make them well suited for rapid application development.

XOTcl의 기본 객체 시스템은 OTcl에서 채택되었습니다. 이 객체 시스템을 통해 객체, 클래스, 메타클래스를 정의할 수 있습니다. 클래스는 다른 객체를 관리하는 특수한 객체입니다. “관리한다”는 것은 클래스가 자신의 인스턴스 생성과 소멸을 제어하고, 인스턴스들이 접근할 수 있는 메서드 저장소(repository)를 포함한다는 의미입니다. 모든 객체는 객체별로 고유한 메서드로 확장될 수 있습니다. XOTcl은 단일 상속(single inheritance)과 다중 상속(multiple inheritance)을 지원합니다. 클래스 및 슈퍼클래스 관계를 포함한 XOTcl의 모든 관계는 완전히 동적이며, 분석(introspection)이 가능합니다. 명시적으로 호출할 메서드 이름을 지정하지 않고 메서드 체이닝(method chaining)을 통해, 메서드 이름 결정의 모호함이 방지됩니다. 이 방식으로 가려진(shadowed) 메서드도 현재 메서드 실행에 “혼합(mixed into)”될 수 있습니다.

The basic object system of XOTcl is adopted from OTcl. The object system enables us to define objects, classes, and meta-classes. Classes are special objects with the purpose of managing other objects. ``Managing'' means that a class controls the creation and destruction of its instances and that it contains a repository of methods accessible for the instances. Every object may be enhanced with object-specific methods. XOTcl supports single and multiple inheritance. All relationships in XOTcl, including class and superclass relationships, are completely dynamic and can be introspected. Through method chaining without explicit naming of the intended method, ambiguities in name resolution of methods are avoided. This way a shadowed method can be ``mixed into'' the execution of the current method.

Example

 Object counter

 counter set count 0

 counter proc add { val } {
  my set count [expr [my set count]  + $val] 
 } 

 counter proc decr { val } {
  my set count [expr [my set count] - $val]
 }

 counter add 3
 counter decr 1

Change Log

2014-04-29 <Gustaf.Neumann@wu-wien.ac.at>
* Release of XOTcl 1.6.8

2014-04-29 <Gustaf.Neumann@wu-wien.ac.at>
* some more cleanup of autoconf (more quoting, remove obsolete file, use recent install-sh)
* try to stick closer to current tcl conventions

2014-04-29 <stefan.sobernig@wu-wien.ac.at>
* unix/tclAppInit.c: Fix one more compiler warning: undeclared Xotcl_Init()
* Removing configure artifact, otherwise lintian complains
* Makefile.in: LDFLAGS must be referenced differently under TEA
* fixed "make install" problem, fix build problem for xowish

2014-04-28 <stefan.sobernig@wu-wien.ac.at>
* library/xml/TclExpat-1.1/xmltok_impl.c: fix for CVE-2009-3720

2014-04-25 <Gustaf.Neumann@wu-wien.ac.at>
* follow modern autoconf conventions
* configure.a: use TEA 3.9
* use new tcl.m4
* Makefile.in: remove hard-coded "-rdynamic" from build of xotclsh
and xowish
* generic/xotclTrace.c: remove obsolete test

2014-04-24 <stefan.sobernig@wu-wien.ac.at>
* Makefile.in: Make sure that xotclsh + xowish are explicitly linked
against libtclstub*.so, rather than libtcl*.so. Otherwise, building
with --with-xotclsh + --with-xowish fails starting with 8.6 (which
effectively hides the various stub structures in libtcl*.so).
* AppInit.c: Use the stubbed variant of Tcl_Init().
* Tested under 8.6 (fossil trunk as of commit date) and 8.5 (fossil
core-8-5-branch as of commit date).
Thanks to Sergei Golovan (Debian Tcl/Tk Package Maintainers) for
reporting the issue and an initial patch (see Debian bug #724816).

2013-07-16 <Gustaf.Neumann@wu-wien.ac.at>
* library/actiweb/HttpPlace.xotcl: add URL query variables as
arguments

2013-06-23 <Gustaf.Neumann@wu-wien.ac.at>
* make version management simpler and freeze XOTcl 1.* versions In
order to avoid bad interactions between XOTcl 1.0 and XOTcl 2.0
the version dependency in 1.0 where changed to "package require
-exact ... 1.0" where possible, and the provides where upgraded to
1.0 in most cases
* make sure that packages from XOTcl 1 require XOTcl 1
* generic/xotcl.c: code cleanup

2013-03-26 <Gustaf.Neumann@wu-wien.ac.at>
* doc/langRef.xotcl: update documentation

2012-10-13 <Gustaf.Neumann@wu-wien.ac.at>
* Make sure to NS_EXPORT Ns_ModuleVersion for people using still
the old-style aolserver module.

2012-01-16 <Gustaf.Neumann@wu-wien.ac.at>
* xotcl.c Extend backport of handling of dashes in XOTcl's
configure method to perform a more eager search for command
begins. Extended regression test

2012-01-14 <Gustaf.Neumann@wu-wien.ac.at>
* xotcl.c Don't overwrite error messages from __unknown handler in
several situations (superclass, parameter class, mixin class)

2012-01-12 <Gustaf.Neumann@wu-wien.ac.at>
* xotcl.c Backport from nsf: when processing arguments with
leading dashes in "configure", accept only method names without
spaces. This solves a problem with Tcl8.4 + ns_eval where the
output of the serializer could not be processed by eval (a [list
..] was lost).

2011-12-22 <Gustaf.Neumann@wu-wien.ac.at>
* Httpd: force GMT dates as required by RFC

2011-11-12 <Gustaf.Neumann@wu-wien.ac.at>
* Removed obsolete CVS-$Ids
* Updated dates of Copyrights
* Removed unneeded c++ hints for Emacs

TclOO 1.0.4

티클러 — Fri, 5 Sep 2025 17:27:08 +0900

홈페이지: https://core.tcl-lang.org/tcloo/wiki?name=TclOO+Package, https://github.com/tcltk/tcloo

이 버전은 Tcl 8.5 버전용입니다. 8.6에는 이미 코어로 채택되어 들어가 있는 기능입니다.

TclOO 버전 1.0.4 출시

이 버전은 Tcl 8.6.5에 포함된 TclOO의 공식 버전과 동일하며, 8.6 런타임이 필요한 일부 기능(특히 코루틴 지원 및 일부 명령의 바이트코드 컴파일 등)은 제외되어 있습니다.

This officially corresponds to the version of TclOO that is included with Tcl 8.6.5, except for features (notably coroutine support and bytecode compilation of some commands) that require the 8.6 runtime.

TclOO: Tcl을 위한 객체 시스템

TclOO는 높은 성능과 최대한의 유연성을 제공하도록 설계된 Tcl용 객체 시스템으로, 다른 객체 시스템의 코어 역할을 할 수 있도록 만들어졌습니다. 클래스 자체가 하위 클래스로 확장 가능한 객체로 취급되는 단일 루트 기반 클래스 시스템을 지원하며, 다중 상속, 믹스인(mixin), 프로시저와 유사한 메서드 및 전달(forwarded) 메서드, 필터 메서드, 동적 재구성 등 다양한 기능을 제공합니다.

TclOO is an object system for Tcl that has been designed to provide high performance while still allowing as much flexibility as possible, and to be a core for other object systems. It supports a single-rooted class-based object system where classes are themselves subclassable objects, with multiple inheritance, mixins, procedure-like and forwarded methods, filter methods, dynamic reconfiguration, etc.

TclOO는 방대한 클래스 라이브러리를 제공하지 않으며, 사용자 스크립트에 사용을 강제하지도 않습니다. Tcllib의 일부 패키지는 TclOO를 사용하지만, 이들 역시 다른 Tcl 8.6 기능에 의존할 수 있습니다.

It does not come with a large class library, and it does not force its use upon user scripts. Some of the packages in Tcllib use TclOO, but these may be dependent on other Tcl 8.6 features.

TclOO의 유산은 XOTcl, incr Tcl, Snit 등 여러 객체 시스템에서 비롯되었으며, C++, Java, Ruby 등 다른 언어의 객체 시스템 경험도 반영되어 있습니다(각 언어와는 다소 다르지만).

The heritage of TclOO can be traced back to a number of other object systems, notably including XOTcl, incr Tcl, and Snit. It also draws on experience with object systems in other languages like C++, Java and Ruby (despite being somewhat different from each of them).

tcloo-release_1_0_4.zip

0.26MB

ICU를 이용한 파일 인코딩 검출하기

티클러 — Fri, 5 Sep 2025 14:47:15 +0900

주로 인코딩 감지에 chardet를 써왔는데 감지가 잘 안 되는 경우가 있었음.

ICU(International Components for Unicode library)라는 게 있어서 테스트해보니 잘 되는 것 같음.

간단하고 빠르게 인코딩 감지 → chardet
정확하고 다양한 텍스트/국제화 지원 → ICU

아래는 ICU를 이용한 입력한 파일의 인코딩 감지 코드.

#include <unicode/ucsdet.h>
#include <fstream>
#include <vector>
#include <iostream>

std::string detectEncoding(const std::string& filename) {
    // 파일 내용 읽기
    std::ifstream file(filename, std::ios::binary);
    if (!file) {
        throw std::runtime_error("파일을 열 수 없습니다: " + filename);
    }
    std::vector<char> buffer((std::istreambuf_iterator<char>(file)), std::istreambuf_iterator<char>());

    // ICU CharsetDetector 생성
    UErrorCode status = U_ZERO_ERROR;
    UCharsetDetector* csd = ucsdet_open(&status);
    if (U_FAILURE(status)) {
        throw std::runtime_error("UCharsetDetector 생성 실패");
    }

    // 파일 데이터 설정
    ucsdet_setText(csd, buffer.data(), buffer.size(), &status);
    if (U_FAILURE(status)) {
        ucsdet_close(csd);
        throw std::runtime_error("텍스트 설정 실패");
    }

    // 인코딩 검출
    const UCharsetMatch* match = ucsdet_detect(csd, &status);
    if (U_FAILURE(status) || !match) {
        ucsdet_close(csd);
        throw std::runtime_error("인코딩 검출 실패");
    }

    // 결과 가져오기
    const char* encoding = ucsdet_getName(match, &status);
    std::string result = encoding ? encoding : "unknown";

    ucsdet_close(csd);
    return result;
}

int main(int argc, char* argv[]) {
    if (argc < 2) {
        std::cerr << "사용법: " << argv[0] << " <파일명>" << std::endl;
        return 1;
    }
    try {
        std::string encoding = detectEncoding(argv[1]);
        std::cout << "검출된 인코딩: " << encoding << std::endl;
    } catch (std::exception& e) {
        std::cerr << "오류: " << e.what() << std::endl;
        return 1;
    }
    return 0;
}

아래와 같이 컴파일하고 테스트..

$ g++ detect_encoding_with_icu.cpp -licuuc -licudt -licuin

$ ./a.exe ./detect_encoding_with_icu.cpp
검출된 인코딩: EUC-KR

Tcl의 로고가 깃털인 이유

티클러 — Fri, 5 Sep 2025 12:37:07 +0900

Tcl의 로고가 깃털인 이유는 “Tcl(티클)”의 발음이 영어 “tickle”과 비슷하기 때문입니다. 이 발음에서 착안하여, “tickle”이 영어로 “간지럽히다”라는 뜻이고, 간지럽히는 데 흔히 깃털을 사용하죠. 그래서 Tcl의 로고도 깃털 모양이 된 것입니다.

즉, Tcl(Tool Command Language)의 이름이 “tickle”처럼 들려서, 이를 시각적으로 표현하기 위해 깃털이 로고가 되었습니다. 이는 공식 문서와 커뮤니티에서도 유머러스하게 설명되고 있는 부분입니다.

파이프 강좌가 등록되었습니다.

티클러 — Fri, 5 Sep 2025 10:54:52 +0900

Tcl에서 파이프(pipe)를 사용하는 방법에 대한 강좌가 등록 되었습니다.

Tcl의 파이프

티클러 — Fri, 5 Sep 2025 10:44:04 +0900

파이프(pipe)

Tcl/Tk에서 외부 명령을 실행할 때, exec 명령뿐만 아니라 open 명령을 사용하여 파이프라인을 오픈할 수 있습니다. 이 경우, 파이프를 통해 실행된 외부 명령과 데이터의 주고받기가 가능합니다.

커맨드라인의 파이프

셸의 커맨드라인에서 사용하는 파이프는 한 프로그램의 표준 출력에서 출력된 데이터를 다른 프로그램의 표준 입력으로 전달하는 역할을 합니다. 데이터를 물의 흐름으로 생각하면, 실제로 파이프를 사용해 프로그램을 연결하여 데이터를 흘려보내는 것입니다. 파이프는 UNIX 계열 OS뿐만 아니라, MS-DOS에도 있는 기능입니다. 예를 들어, 다음과 같은 예를 보세요.

> sort file.dat | uniq

sort는 텍스트 파일을 정렬하는 명령이고, uniq는 중복된 행을 삭제하는 명령입니다. | 기호가 파이프를 나타내며, 이것으로 sort와 uniq가 파이프로 연결됩니다.

파이프의 제어는 셸(MS-DOS라면 command.com)이 담당합니다. 하지만 MS-DOS처럼 여러 프로그램을 동시에 실행할 수 없는 환경에서는 다음과 같이 파일을 경유하여 데이터가 전달됩니다.

sort file.dat > temp
uniq < temp
del temp

결국 MS-DOS의 경우, 파이프라고 해도 배치 처리와 동일해집니다.

하지만 UNIX 계열 OS나 Windows처럼 여러 프로그램을 동시에 실행할 수 있는 환경에서는 파일을 경유할 필요가 없습니다. 파이프는 "큐(queue)"와 같은 것이라고 생각하면 됩니다. 만약 파이프가 가득 차서 데이터를 쓸 수 없다면, OS에 의해 쓰기 측 프로그램은 휴면 상태에 들어갑니다. 그리고 파이프에서 데이터가 꺼내져 써도 되는 상태가 되면, OS가 휴면 중인 프로그램을 깨워 데이터를 파이프에 씁니다. 파이프가 비어있는 상태에서 데이터를 읽으려 한다면, 반대로 읽기 측 프로그램이 휴면 상태가 됩니다.

이러한 OS의 동작으로 인해, 실행 중인 프로그램 간에 파이프를 통해 데이터를 주고받을 수 있습니다. 이것을 "프로세스 간 통신"이라고 합니다. 프로세스는 실행 중인 프로그램이라고 생각하면 됩니다. 파이프를 통해 양방향으로 데이터를 주고받는 것도 가능합니다. 프로세스 간 통신에는 여러 가지 방법이 있지만, 그중에서도 파이프는 손쉽게 사용할 수 있는 방법입니다.

파이프 사용법

그럼 Tcl에서 파이프를 사용하는 방법을 설명하겠습니다. Tcl에서 파이프를 오픈하려면 open 명령을 사용합니다. open은 전달된 파일명의 첫 글자가 파이프 기호 |라면, 그 인수를 파일명이 아니라 명령으로 실행하여 파이프를 생성합니다. 다음 예를 보세요.

set f1 [open "|prog1" r]
set f2 [open "|prog2" w]

파일과 마찬가지로 파이프를 오픈할 때는 액세스 모드를 지정합니다. 그리고 open은 파이프에 액세스하기 위한 식별자(문자열)를 반환합니다.

첫 번째 예는 파이프를 읽기 오픈하는 경우입니다. 명령 prog1을 실행하고, 표준 출력으로 출력된 데이터가 파이프에 보내져 gets로 읽어올 수 있습니다. 다음 예는 파이프를 쓰기 오픈하는 경우입니다. 이 경우 puts로 표준 출력에 출력된 데이터는, 파이프를 통해 실행된 명령 prog2의 표준 입력으로 보내집니다. 마지막에는 close 명령으로 파이프를 닫는 것을 잊지 마세요.

그리고 Tcl에서는 파이프를 양방향(읽기/쓰기 모두)으로 오픈할 수 있습니다. 이 경우, 실행된 프로그램과 양방향으로 데이터를 주고받을 수 있습니다. 다음 예를 보세요.

set f3 [open "|prog3" r+]

액세스 모드 r이나 w 뒤에 +를 붙이면 갱신 모드가 되어, 입력과 출력을 모두 할 수 있게 됩니다. 파이프의 경우 r+와 w+ 어느 쪽도 상관없지만, 일반 파일에서 갱신 모드를 지정할 때는 r과 w의 차이에 주의하세요. r+는 파일이 존재하지 않으면 에러가 발생합니다. 또한 w+로 기존 파일을 오픈하면 길이를 0으로 잘라내기 때문에, 그 파일의 내용이 사라집니다.

또, 파이프를 사용할 때는 출력 데이터의 "버퍼링"에도 주의해야 합니다. 일반적으로 데이터 입출력은 1바이트 단위로 하면 효율이 나쁘기 때문에, 데이터를 모으는 버퍼를 준비하는 것이 보통입니다. 데이터를 출력할 때는 버퍼에 데이터를 모아두었다가,

버퍼가 가득 차면 그 내용을 비웁니다. C 언어의 표준 입출력 라이브러리에는 버퍼링 기능이 내장되어 있고, Tcl/Tk도 입출력은 버퍼링되어 있습니다. 이 때문에 puts로 데이터를 출력만 해서는 데이터를 프로그램에 보낼 수 없는 경우도 있습니다.
데이터를 프로그램에 보내려면, 버퍼의 내용을 비우는 명령 flush를 사용하세요. 혹은 fconfigure 명령으로 버퍼링 모드를 변경해도 됩니다.

fconfigure 식별자 -buffering 지정 -buffersize 바이트수

full : 버퍼가 가득 차면 flush
line : 줄바꿈 문자마다 flush
none : 출력 명령이 실행될 때마다 flush

옵션 -buffering의 기본값은 full로 설정되어 있습니다. 버퍼 크기는 옵션 -buffersize로 변경할 수 있습니다.

줄바꿈 문자를 만났을 때 버퍼를 flush하는 동작을 "라인 버퍼링"이라고 합니다. 일반적으로 표준 출력의 동작은 라인 버퍼링이지만, 화면에 출력하지 않을 때, 예를 들어 파일로 리디렉션하거나 파이프에 연결되어 있을 때는 풀 버퍼링으로 바꾸는 프로그램도 있습니다. Tcl/Tk 측에서 데이터를 보내도, 상대 프로그램이 출력을 버퍼링하기 때문에 Tcl/Tk 측에서 데이터를 받을 수 없고, 프로그램이 동작하지 않을 수도 있습니다. 간단한 예를 들어보겠습니다.

set f [open "|pipetest" "r+"]
for {set i 0} {$i < 5} {incr i} {
    puts "$i 를 보냅니다\n"
    puts $f $i
    flush $f
    gets $f line
    puts "$line 를 받았습니다"
    after 1000
}
close $f

이 프로그램은 tclsh에서 동작합니다. 처음에 파이프를 양방향으로 오픈합니다. 실행하는 프로그램은 pipetest입니다. 이것은 C 언어로 작성합니다. 그 후 1초마다 puts로 숫자를 pipetest에 보내고, gets로 pipetest로부터 데이터를 받습니다. 데이터를 쓴 후에는 flush로 버퍼를 비우는 것에 주의하세요.

다음과 같이 pipetest.c를 작성합니다.

#include <stdio.h>
#include <stdlib.h>

#define SIZE 256

int main()
{
  char buffer[SIZE];
  while( fgets( buffer, SIZE, stdin ) != NULL ){
    printf( "%d\n", atoi( buffer ) * 10 );
    fflush( stdout );
  }
  return 0;
}

프로그램의 내용은 간단하며, 표준 입력으로부터 데이터를 받아 정수값으로 변환한 후, 그것을 10배로 하여 표준 출력으로 출력합니다. fflush()는 버퍼를 비우는 함수입니다.

이 프로그램을 DOS 창에서 실행하는 경우, fflush()가 없어도 정상적으로 동작합니다. 하지만 Tcl과 파이프를 사용해 데이터를 주고받을 때는, 표준 출력에 쓴 데이터가 버퍼링되기 때문에 fflush()로 버퍼를 비우지 않으면 정상적으로 동작하지 않습니다. 파이프를 사용할 때는 실행하는 프로그램의 동작에도 주의하세요.

값 호출과 참조 호출

티클러 — Fri, 5 Sep 2025 10:31:23 +0900

일반적으로 함수 호출 방식에는 두 가지가 있습니다. 하나는 "값 호출(call by value)"이고, 다른 하나는 "참조 호출(call by reference)"입니다. 최근의 프로그래밍 언어는 값 호출이 주류이며, C 언어의 함수나 Tcl의 프로시저가 그 예입니다. 반대로 Perl의 서브루틴은 참조 호출 방식입니다.

값 호출의 개념은 매우 간단합니다.

전달받을 데이터를 저장할 변수(가인수, 매개변수)를 준비한다.
데이터를 인수에 대입한다.
함수(프로시저) 실행이 끝나면 가인수를 폐기한다.

"가인수(매개변수)"란, 프로시저를 정의할 때 데이터를 전달받기 위해 설정하는 변수입니다. 이에 반해, 실제로 프로시저를 호출할 때 전달되는 인수를 "실인수"라고 합니다. 값 호출의 경우, 가인수는 지역 변수로 취급됩니다.

그런데 값 호출로는 불가능한 처리가 있습니다. 예를 들어, 변수의 값을 교환하는 프로시저 swap을 생각해봅시다. 아래의 프로그램을 보세요.

리스트: 값의 교환 (잘못된 예)

proc swap {a b} {
  set temp $a
  set a $b
  set b $temp
}

# x와 y의 값 교환
proc foo {} {
    set x 10
    set y 20
    puts "$x $y"
    swap $x $y
    puts "$x $y"
}

foo를 실행하면 다음과 같은 결과가 나옵니다.

% foo
10 20
10 20

프로시저 swap에서는 인수 a, b의 값을 교환하지만, 변수 x, y의 값은 swap을 호출한 후에도 교환되지 않습니다. 이유는 간단합니다. swap의 인수 a, b는 지역 변수이므로 swap 내에서 a와 b를 교환해도 foo의 변수 x와 y를 교환하는 것이 아니기 때문입니다. 프로시저가 값 호출 방식이기 때문에 다른 프로시저의 지역 변수에 접근할 수 없습니다.

Tcl에서 swap을 구현하려면 upvar 명령을 사용합니다.

upvar [level] otherVar1 myVar1 otherVar2 myVar2 ...

upvar는 다른 프로시저에서 사용 중인 지역 변수(otherVar)를 실행 중인 프로시저에서 사용할 지역 변수(myVar)와 연결해줍니다. 그 결과, myVar에 접근하는 것은 otherVar에 접근하는 것과 같습니다. 즉, myVar의 값을 읽으면 그 값은 otherVar의 값이고, myVar의 값을 변경하면 otherVar도 그 값으로 바뀝니다.

프로시저 지정에는 level을 사용합니다. 기본값은 -1로, 실행 중인 프로시저를 호출한 프로시저가 됩니다. 예를 들어, 다음과 같이 프로시저를 호출했다고 합시다.

          foo1 -> foo2 -> foo3 -> foo4
level   -3      -2      -1      upvar

         (그림: level의 지정)

foo4에서 upvar를 사용할 경우, level이 -1이면 foo3이 대상이 되고, -2면 foo2, -3이면 foo1이 대상이 됩니다. 그리고 foo1에서 upvar를 사용하면 전역 변수를 접근하게 됩니다.

리스트: 값의 교환

proc swap {a b} {
    upvar $a aa $b bb
    set temp $aa
    set aa $bb
    set bb $temp
}

upvar를 사용하면 swap을 다음과 같이 프로그래밍할 수 있습니다.

swap을 호출할 때는 변수명을 전달해야 한다는 점에 주의하세요. swap에서는 전달받은 변수명과 프로시저 내에서 사용할 지역 변수를 upvar로 연결합니다. 인수 a로 전달받은 변수는 aa에, 인수 b로 전달받은 변수는 bb에 연결됩니다. 예를 들어, 다음 예시를 보세요.

proc foo {} {
    set x 10
    set y 20
    puts "$x $y"
    swap x y
    puts "$x $y"
}

% foo
10 20
20 10

이 경우, aa에 접근하는 것은 foo 내의 지역 변수 x를, bb에 접근하는 것은 y를 접근하는 것과 같습니다. 이렇게 해서 foo의 지역 변수 x와 y의 값을 교환할 수 있습니다.

Orchestral Suite From My Girl 2

티클러 — Thu, 4 Sep 2025 22:28:21 +0900

1994년 작인 마이걸 1의 후속작 마이걸 2에 삽입된 마지막 곡..

이 앨범에서 유일한 경음악으로 90년대에 상당히 많이 듣고 다니던 곡이다..

TclOO 강좌가 등록 되었습니다.

티클러 — Wed, 3 Sep 2025 22:30:00 +0900

Tcl 8.6에서 드디어 코어로 제공된 OO 시스템인 TclOO에 대한 강좌가 등록되었습니다.

TclOO를 이용한 객체 지향 프로그래밍

리눅스매거진 2004년 1월에 실렸던 인터뷰 기사

티클러 — Tue, 2 Sep 2025 23:25:55 +0900

아래 기사는 리눅스매거진 2004년 1월에 실렸던 기사입니다. 이젠.. 추억이 되었네요..

대한민국 Tcl/Tk 사용자 그룹의 리더 : 민인학

Tcl/Tk는 분명 우리 리눅서에게는 낯설지 않은 스크립트 언어이다. (지금 당장 당신의 리눅스 시스템에 Tcl/Tk 패키지가 설치되어 있는 것을 확인해 보라!) 다만 리눅스 세계에 발을 들여놓으며 귀 따갑게 들어왔던 낙타와 뱀(편집자주 익히 알다시피 O'Reilly에서 출판한 서적의 표지를 장식하는 동물들은 IT 세계에서 해당 기술을 상징하는 심벌로 기억되어 왔다. 낙타와 뱀은 각각 스크립트 언어인 Perl과 Python을 상징한다. 참고로 Tcl/Tk를 상징하는 심벌은 깃털이다. 아파치 웹 서버의 심벌 역시 깃털이라서 혼란스러울 지도 모르겠다. 이 차이는 아파치 웹 서버의 깃털이 옆으로 뉘어져 있는 것에 비해 Tcl/Tk의 깃털은 바짝 세워져 있는 것으로 구분할 수 있다.)에 대한 예찬론으로 ‘미안하지만 잠시 기억 뒤편에’ 접어두었을 뿐 Tcl/Tk는 당신의 리눅스 시스템에서 언제든지 Standby 상태일 것이다. 이제 잊혔던 서랍장을 열고 Tcl/Tk와 만나러 떠나보자. 당신의 여정에 대한민국 Tcl/Tk 사용자 그룹의 리더 ‘민인학’씨가 함께 할 것이다.

Q : 대략적인 자기소개를 부탁합니다.

고향은 경기도 가평이며, 대전에서 직장생활중인 27살의 프로그래머입니다. 현재의 직장을 다니기 전에는 하이닉스 반도체에서 엔지니어 생활을 4년 정도 했습니다. 중학교 2학년 때부터 키워 온 꿈이 프로그래머라 과감히 현재의 직장을 택했습니다. 사실 프로그래머가 힘든 일이지만, 그래도 제가 꿈꿔왔던 직업이라 만족하며 살고 있습니다. 이런 결심을 하지 않았더라면, 리눅스 매거진 독자 여러분을 이런 자리를 통해 만나기 힘들었을 거라 생각합니다.

Q : 현재 어떤 일을 하고 있는가?

현재 반도체 검증 툴을 제작하는 벤처회사인 다이나릿 시스템(http://www.dynalith.com/)에서 연구원으로 있으며, 유닉스/리눅스/윈도우즈에서 동작되는 GUI 및 기타 프로그래밍을 담당하고 있습니다.

Q : 리눅스와 연관을 맺은 시기, 어떤 일로 리눅스와 친해지게 되었는가?

리눅스를 처음 접한 시기는, 1996년경 gcc컴파일러를 MS-DOS로 포팅한 32비트 컴파일러인 djgpp에 관심을 가지면서, gcc를 기본컴파일러를 하고 있는 리눅스를 알게 되었습니다. DOS상에서의 마지막 작품은 djgpp로 만든 32비트 한글라이브러리이며, 1997년에 본격적으로 리눅스를 사용하게 되었습니다. 국내 그 당시에 생소했던 리눅스를 처음 접하면서 리눅스 프로그래밍에 관심을 갖게 되어, 첫 작품인 GTK+를 이용하여, 통신프로그래밍인 가우에 필적할만한(저 나름대로의 생각입니다.) 한글입출력을 프로그램 자체에 내장한 통신프로그램을 개발했던 적이 있었습니다. 이 프로그램으로 현재의 회사에서 근무할 수 있게 되었습니다.

Q : Tcl/Tk에 대해 자세히 설명해 주세요.

Tcl/Tk는 Perl(1977년)다음으로 가장 오래된, 1998년에 J.k Ousterhout박사로부터 탄생된 공개 스크립트 언어입니다. Tcl/Tk는 처음 개발당시부터, C언어에 짜 넣거나, 확장성이 높은 인터프리터형 언어로 사용할 수 있는 스크립트 언어를 염두해 두고 개발되었습니다. Tcl은 평이한 문법을 가지는 강력한 스크립트 언어로, 현재 Perl, Python과 함께 초고급(VHLL) 언어로, 많은 사용자층을 확보하고 있습니다. Tcl은 확장성이 높은 언어로 개발이 되었지만, 최초에부터 현재에 이르기까지 최대의 확장 라이브러리는 Tk입니다. Tk는 Tcl 스크립트 언어에 GUI를 접목시켜 하나의 애플리케이션을 완성케 해주는 Tool Kit입니다. Ousterhout박사는 Tcl/Tk가 유닉스 계산기의 GUI애플리케이션을 제작하는데 적합하다는 것을 알아차리고, 당시에 Tcl/Tk의 유용한 활용사례로 공개되어 많은 사람의 이목을 집중시킨 적이 있습니다. Tcl/Tk는 Ousterhout박사가 Sun으로 옮기면서, Sun의 수많은 개발자들과 함께 많은 기능을 보강하여, 스크립트 언어의 강자자리를 지키게 되었으며, 현재는 Tcl Developer Exchange(http://tcl.activestate.com/)에서 개발을 담당하고 있습니다.

Q : Perl, Python 등 다른 스크립트 언어와 달리 Tcl/Tk만이 갖는 장점은 무엇이라고 생각합니까?

Tcl/Tk는 여타 다른 스크립트 언어와는 달리 배우기가 쉽습니다. 문법이 너무나 간단하여, 배우는데는 일주에서 이주정도면 어느 정도의 애플리케이션을 제작할 수 있으며, 또 수많은 확장패키지(Widget, XML, DATABASE, GRAPHICS, NETWORK, 프로세스 간의 통신(COM) 등이 준비되어 있어, 고 품질의 애플리케이션을 단시간 내에 제작할 수 있기 때문에, 다른 언어로 개발하실 때 보다 개발시간을 상당히 단축시킬 수 있는 이점이 있습니다. 멀티플랫폼에 맞추어 개발된 언어답게 거의 모든 플랫폼에 소스코드의 수정 없이 실행할 수 있으며, Tcl/Tk의 코어(core)에 수정을 가하지 않고, 공유라이브러리(dll, so, sl)를 직접 제작하여 Tcl에서 사용할 수 있어, Tcl/Tk의 다음 버전에 원하는 기능이 추가되길 기다릴 필요가 없습니다. Tcl/Tk는 incr Tcl이라는 확장패키지로 C++의 OO문법을 Tcl문법에 그대로 적용 가능합니다. 현재도 incrTcl은 계속 보완 중이며, Tcl/Tk에서 OO의 문법을 사용할 수 있는 패키지는 incr Tcl 이외에 여러 개가 존재하고 있습니다. Tcl은 바이트 코드를 지원하여 더욱 빠른 실행속도와 소스코드의 은폐 및 멀티폴랫폼상에서의 실행 동작을 자랑하며, 또 제작한 애플리케이션을 Tclkit이나 freewrap을 이용하면 단일의 실행파일로 제작할 수 있어, 제작한 프로그램을 배포 시에 편리하며, 소스코드를 보호할 수 있는 또 다른 장점이 있습니다.

Q : Tcl/Tk는 나쁜 언어이니 사용하지 말아라? 라는 유언비어(?)에 대해 한 말씀

리차드 스톨만은 1994년 전자 뉴스상에 'Tcl은 언어구현의 결함 때문에 GNU에서는 채용할 생각이 없다'라고 발표하여 대단한 바람을 불러일으킨 적이 있습니다. 그 당시에는 Tcl은 황당하리 만큼 쉬운 문법과 기본적인 스크립트언어의 기능만을 갖춘, 또 Perl에 비해서 뛰어난 기능이 없는 보통의 스크립트 언어였기 때문이었다고 생각됩니다. 하지만, 리차드 스톨만의 그러한 발언이 있은 후 Tcl/Tk는 많은 변화가 있었습니다. 우선 SUN으로 옮겨가 많은 기능을 보강하며, 필요성이 없는 기능을 과감히 빼버리게 되어, 버전 8대에 와서는 어느 누구도 부인할 수 없는 스크립트언어의 최강자 자리를 지키게 되었습니다. 현재 리차드 스톨만의 발언은 웃으면서 넘길 수 있는 옛날 얘기가 되었을 정도로, 인터프리터 언어와 컴파일러 언어의 양면을 지닌 훌륭한 언어로 자리를 잡고 있습니다.

Q: Tcl/Tk 사용자 그룹에 대해 (http://tcltk.co.kr/) 개인적으로 어떻게 해서 Tcl/Tk에 관심을 가지게 되었습니까?

Tcl/Tk는 저의 개인적인 필요성으로 알게 된 것은 아닙니다. 저희 회사는 반도체 툴을 제작하는 특성상, 고객들은 멀티플랫폼에서 동작하는 프로그램을 요구하고 있습니다. Tcl/Tk를 사용하기 전에는, 윈도우즈용은 Borland C++ Builder나 VC++로 제작하였으며, 솔라리스/리눅스상에는 gcc와 GTK+를 이용하여 제작하였습니다. 즉 하나의 프로그램을 두세 번 제작하는 어려움을 겪어야만 했습니다. 이때 직장 동료인 양우승 선임 연구원님의 조언으로 Tcl/Tk를 한번 사용해 보는 것이 어떻겠느냐는 제의에 2002년 12월부터 Tcl/Tk를 사용하기 시작했습니다.

Q : 어떻게 해서 Tcl/Tk 커뮤니티를 운영할 생각을 하셨습니까?

Tcl/Tk의 우수성을 국내에 알리고 싶어 시작하였습니다. Tcl/Tk를 1년여 사용하면서 Tcl/Tk의 간결한 문법과 확장성, 또 멀티 플랫폼에서 소스코드의 수정 없이 동작하는 매력에 되도록이면 많은 분들께 알리고 싶었습니다.

Q : 본인에게 딱히 수익이 생기는 것도 아님에도 불구하고 Tcl/Tk 사용자 그룹을 운영하고 있는 이유는 무엇입니까?

저는 이미 많은 분들이 사용하고 있는 언어를 해서는 발전이 없다고 생각합니다. 그래서 되도록이면, 국내에서만큼은 사용하고 있지 않은 언어인 Tcl/Tk를 저의 손끝에서 여러 많은 분들께 알리고 싶었고, 현재도 많은 분들께 알리고 싶은 것이 저의 심정입니다. 일단 저의 생각에 동참하시는 분들이 한두 분 늘어가지만, 그렇지 못한 사람들에게도 최선을 다해 알릴 생각입니다.

Q : 현재 Tcl/Tk 사용자 그룹은 어떻게 운영되고 있으며 그 규모는 어느 정도입니까?

현재 사이트 운영에 있어서 계정은 저의 사비로 충당하고 있습니다. 제가 좋아서 시작한일이고, 제가 발전할 수 있는 기회기에, 운영에 되는 돈과 시간은 크게 여념하고 있지 않습니다. 회원수를 비교하면, 파이썬 국내 사이트(python.or.kr)에 비교해서 회원수가 많이 적은 75～80명 정도입니다. 현재 사이트의 글들은 회원을 가입하지 않아도 글을 읽을 수 있게 해 놓았기 때문에, 이로 인해서 방문하시는 분들이 회원가입의 필요성을 느끼지 못하는 것 같습니다. 저의 사이트 목적이 회원을 늘리는 것이 아니라, 최대한 많은 분들께 Tcl/Tk를 알리는 것이기 때문에, 이 점은 변함이 없을 것입니다.

Q : Tcl/Tk 사용자 그룹 운영의 애로점은?

현재 대부분의 글들이 제가 경험한, 또 개인적으로 Tcl/Tk에 대해서 공부한 강좌들뿐입니다. 회사의 업무 때문에, 강좌를 예전처럼 자주 올리진 못하지만, 회원분들이 자발적으로 사이트에 참여하여 주시면, 운영하는데 많은 힘이 될 것 같다는 저의 작은 바램이 있습니다. 그 외에 아직 까지 운영하는데 큰 문제점이나 애로점은 없습니다.

Q : 앞으로 Tcl/Tk 사용자 그룹이 나아가야할 방향은?

현재는 초보적인 글들과, 확장패키지 사용법 등, Tcl/Tk를 사용하는 데 있어 다양한 정보를 다루고 있지만, 앞으로는 필요한 공개 애플리케이션을 저를 포함한 회원분들이 자발적으로 참여하여 제작하는 방향으로, Tcl/Tk의 실용성을 국내에 알릴 예정입니다.

Q : Tcl/Tk를 처음 시작해보려는 Newbie를 위한 조언을 부탁합니다.

Tcl/Tk는 가볍에 소설을 읽듯이 시작할 수 있는 언어입니다. Tcl/Tk는 Python, Perl등과 같은 다른 스크립트 언어에 비해서 배우기 쉬운 장점 때문에, 일주일정도의 시간을 투자하시면 반드시 좋은 결과를 얻으실 수 있으며, 언어를 하나 정복했다는 자신감을 가지실수 있을 겁니다. 또, 앞으로 프로그래머가 희망인 분들이나, 현업에 종사하시는 언어를 바꾸고 싶으신 분들께는 최상의 언어로 자리 잡을 수 있는 계기를 마련 하 실수 있을 겁니다.

Q : 대한민국 Tcl/Tk 사용자 그룹의 리더로서 리눅스 매거진 독자들에게 한 말씀 및 앞으로의 포부

몇 해전부터 리눅스를 수용하는 기업이 현재까지 계속 늘고 있습니다. 리눅스는 오픈소스라는, 심지어 커널까지 공개하고 있는 최대의 무기로, 수많은 해커들의 노력에 의해 MS사의 윈도우즈를 능가할 정도의 운영체제로 이미 발전되어 있습니다. 이미 어느 분야에서는 윈도우즈를 능가하여, MS가 견제하는 운영체제 자리까지 올라섰습니다. 이에 발맞추어 리눅스용 제품을 원하는 고객도 늘고 있으며, 일반 사용자와 개발자도 이미 전 세계에 두루 퍼져 있으며, 리눅스는 상품성의 가치를 갖춘 최고의 만능 엔터테이너 운영체제임이 확실하다고 생각하고 있기에, 리눅스의 미래를 상당히 밝게 보고 있습니다. 리눅스 매거진 독자 여러분이 리눅스를 사랑하는 만큼, 한국의 리눅스 산업은 여느 어느 나라보다도 리눅스 개발자와 리눅스 사용자를 두루 갖춘 리눅스 강국으로 발전되리라 믿습니다. 끝으로, Tcl/Tk 한국 사용자 사이트는 사이트 제목에 걸맞은, 국내 최고의 Tcl/Tk 정보 사이트로 거듭날 수 있도록 최선의 노력을 다할 것입니다. 감사합니다.

STXXL

티클러 — Tue, 2 Sep 2025 12:53:06 +0900

출처: https://sourceforge.net/projects/stxxl, https://github.com/stxxl/stxxl

STXXL은 외부 메모리 연산, 컨테이너 및 알고리즘을 위한 C++ 표준 템플릿 라이브러리 STL의 구현으로, 디스크를 사용하여 대용량의 데이터를 처리할 수 있음.

아래는 파일을 사용하는 Vector 컨테이너 테스트.

/* $ g++ a.cpp -I./include ./lib/libstxxl_debug.a */

#include <stxxl/io>
#include <stxxl/vector>
#include <stxxl/stream>

using stxxl::file;

int main()
{
	stxxl::syscall_file fd("c:/temp/a.buf", file::RDWR | file::CREAT | file::DIRECT);
	stxxl::vector<unsigned int> container(&fd);
	for(int i=0; i<1000; i++) {
		container.push_back(i);
	}

	return 0;
}

실행결과..

[ihmin@KC22009 temp]$ ./a.exe
[STXXL-MSG] STXXL v1.4.1 (prerelease/Debug)
[STXXL-ERRMSG] Warning: no config file found.
[STXXL-ERRMSG] Using default disk configuration.
[STXXL-MSG] Disk 'C:\msys2\tmp\stxxl.tmp' is allocated, space: 1000 MiB, I/O implementation: wincall autogrow delete_on_exit queue=0 devid=0
[STXXL-ERRMSG] Removing disk file: C:\msys2\tmp\stxxl.tmp

stxxl-1.4.1.tar.gz

1.33MB

stxxl-1.4.1-doxygen.tar.gz

6.44MB

tDOM 0.9.6

티클러 — Tue, 2 Sep 2025 10:55:38 +0900

홈페이지: http://www.tdom.org

tDOM - a XML / DOM / XPath / XSLT / HTML / JSON implementation for Tcl

Version 0.9.6

Added documentation for the scripted additional XPath functions feature. Thanks to Peter Piwowarski for his valuable input.
Added the dom command method fromScriptContext.
Updated to expat 2.7.1.
Added a way to create XML namespaced attributes in *FromScripts.
Updated to expat 2.7.0.
Added the "virtual" JSON type BOOLEAN for text nodes. If the text node value is a boolean in the sense of Tcl then the node serialize to the approprate JSON type. Otherwise it will be a JSON string.
Added the flag -notempty to dom createNodeCmd. If this flag is used the element will only appear in the tree if it is not empty.
Added the dom command method jsonEscape which escapes the string argument for literally use in a JSON string.
Updated to expat 2.6.4.

tDOM contains

for convenience expat 2.6.2, the XML parser originated from James Clark, although you're able to link tDOM with other expat versions or the library provided by the system.
building a DOM tree from XML in one go implemented in C for maximum performance and minimum memory usage, and DOM I and II methods to work on such a tree using either a OO-like or a handle syntax.
a Tcl interface to expat for event-like (SAX-like) XML parsing.
a complete, compliant and fast XPath implementation in C following the November 99 W3C recommendation for navigating and data extraction.
a fast XSLT implementation in C following the W3C Recommendation 16 November 1999.
optional DTD validation.
a rich and Tcl'ish language to describe structures and text content and to validate XML data or DOM trees or other forms of hierarchically data with that.
a JSON parser which parses any possible JSON input into a DOM tree without losing information.
an efficient and Tcl'ish way to create XML and HTML documents and JSON strings.
as build option an interface to the gumbo HTML5 parser, which also digests almost any other HTML.
an even faster simple XML parser for trusted XML input.
a slim Tcl interface to use expat as pull-parser.
a secure way to share DOM trees by threads
additional convenience methods.
and more.

tdom-0.9.6-src.tar.gz

1.46MB

tdom-0.9.6-windows-32.zip

1.59MB

tdom-0.9.6-windows-64.zip

1.55MB

Tclcsv 2.4.3

티클러 — Tue, 2 Sep 2025 10:37:22 +0900

홈페이지: https://sourceforge.net/projects/tclcsv

Tclcsv는 CSV 포맷의 파일을 읽고 쓰기 위한 바이너리 확장 패키지입니다. 또한 CSV 형식을 설정할 수 있는 Tk 위젯도 포함하고 있습니다.

Tclcsv is a binary extension for reading and writing CSV format files. It also includes a Tk widget for configuring CSV formats.

tclcsv2.4.3-src.tar.gz

0.20MB

Tablelist 7.7

티클러 — Tue, 2 Sep 2025 10:30:24 +0900

홈페이지 : http://www.nemethi.de/

What Is Tablelist?

Tablelist is a library package for Tcl/Tk versions 8.4 or higher, written in pure Tcl/Tk code. It contains:

the implementation of the tablelist mega-widget, including a general utility module for mega-widgets;
a demo script containing a useful procedure that displays the configuration options of an arbitrary widget in a tablelist and enables you to edit their values interactively;
a demo script implementing a widget browser based on a tablelist used as multi-column listbox;
a demo script implementing a widget browser based on a tablelist used as multi-column tree widget;
a demo script implementing a directory viewer based on a tablelist used as multi-column tree widget;
a demo script showing several ways to improve the appearance of a tablelist widget;
four further demo scripts, illustrating the interactive cell editing with the aid of various widgets from the Tk core and from the packages tile, BWidget, Iwidgets, combobox (by Bryan Oakley), and Mentry;
one further demo script, with a tablelist widget containing embedded windows;
tile-based counterparts of the above-mentioned demo scripts;
this tutorial;
reference pages in HTML format.

tablelist는 여러 열(컬럼)로 구성된 list box 및 트리 위젯입니다. 각 열의 너비는 동적(즉, 헤더를 포함한 모든 요소를 담을 수 있을 만큼만 큰 크기)이거나 정적(문자 또는 픽셀 단위로 지정)일 수 있습니다. 열은 기본적으로 크기를 조정할 수 있습니다. 각 열의 정렬은 왼쪽, 오른쪽 또는 가운데로 지정할 수 있습니다.

열, 행 및 셀은 개별적으로 구성할 수 있습니다. 전역 및 열별 옵션 중 일부는 라벨 위젯으로 구현된 헤더 타이틀들을 참조합니다. 예를 들어, -labelcommand 옵션은 머리글 레이블 위에 마우스 버튼 1을 놓을 때 호출할 Tcl 명령을 지정합니다. 이 옵션의 가장 일반적인 값은 각 열을 기준으로 항목을 정렬합니다.

tablelist 패키지는 들여쓰기 및 확장/축소 컨트롤을 사용하여 트리 계층 구조를 표시하는 열의 모양과 느낌을 제어하는 매우 다양한 트리 스타일을 제공합니다.

tablelist 위젯의 요소를 개별 셀과 전체 열에 대해 대화형 편집을 활성화할 수 있습니다. 내장된 편집 창으로 사용할 수 있도록 Tk 코어 및 타일, BWidget, Iwidgets, combobox, ctext, Mentry(또는 Mentry_tile) 패키지에서 제공하는 다양한 위젯이 지원됩니다. 또한 편집 가능한 셀 사이를 편안하게 탐색할 수 있도록 다양한 키보드 바인딩 세트가 제공됩니다.

tablelist 위젯에 해당하는 Tcl 명령은 일반 listbox에 연결된 명령과 매우 유사합니다. configure 및 cget 하위 명령에는 열, 행 및 셀별 대응 명령이 있습니다(columnconfigure, rowconfigure, cellconfigure, ...). 특히 셀과 헤더 레이블에 이미지와 임베디드 창을 삽입하는 데 사용할 수 있습니다. index, nearest, see 명령 옵션은 행을 참조하지만 열과 셀에 대해서도 유사한 하위 명령이 제공됩니다(columnindex, cellindex, ...). 항목은 sort, sortbycolumn, sortbycolumnlist 명령 옵션을 사용하여 정렬할 수 있습니다.

tablelist 위젯의 본문에 정의된 바인딩을 사용하면 일반 listbox처럼 작동합니다. 여기에는 가상 이벤트 <<ListboxSelect>>(<<TablelistSelect>>와 동일)에 대한 지원이 포함됩니다. 또한 위젯 콜백 패키지 Wcb 2.3 이상 버전(순수 Tcl/Tk 코드로도 작성)을 사용하여 활성화, 선택 세트 및 선택 지우기 명령에 대한 콜백을 정의할 수 있으며, Wcb 3.0 이상 버전은 활성화 셀, 셀 선택 세트 및 셀 선택 지우기 명령에 대한 콜백도 지원합니다. Wcb의 다운로드 위치는 다음과 같습니다. (https://www.nemethi.de/)

What is new in Tablelist 7.7?

Added mouse and keyboard event bindings that invoke the "expand" and "collapse" subcommands with the "-fully" option. See the updated subsection "TREE WIDGET BINDINGS:" in the reference manual for details (thanks to Torsten Berg for his proposal and testing).
Added explicit support for the "droid" theme, which is the default in AndroWish.
Improvements related to the themes provided by the awthemes package and the ones that are not explicitly supported by Tablelist.
Improved the interactive cell editing with the aid of the toggleswitch widget.
The demo scripts "dirViewer.tcl" and "dirViewer_tile.tcl" now work around the fact that on Android the directory "/" is normally not readable.