Tcl 스크립트가 어디에서 실행이 되었는지 체크하는 코드

Twapi를 사용하므로 윈도우즈 전용 코드가 되겠습니다.

proc launchtype {} {
 package require twapi
 set pid [twapi::get_current_process_id]
 while {[set pid [twapi::get_process_parent $pid]]} {
  switch -nocase [twapi::get_process_name $pid] {
   explorer.exe {
    return clicked
   }
  #[file tail $::env(COMSPEC)] -
   command.com -
   cmd.exe {
    return shelled
   }
   services.exe {
    return service
   }
   System {
    return system
   }
  }
 }
}
wm title . [launchtype]