lib/win32.tcl

   1 # git-gui Misc. native Windows 32 support
   2 # Copyright (C) 2007 Shawn Pearce
   3
   4 proc win32_read_lnk {lnk_path} {
   5         return [exec cscript.exe \
   6                 /E:jscript \
   7                 /nologo \
   8                 [file join $::oguilib win32_shortcut.js] \
   9                 $lnk_path]
  10 }
  11
  12 proc win32_create_lnk {lnk_path lnk_exec lnk_dir} {
  13         global oguilib
  14
  15         set lnk_args [lrange $lnk_exec 1 end]
  16         set lnk_exec [lindex $lnk_exec 0]
  17
  18         eval [list exec wscript.exe \
  19                 /E:jscript \
  20                 /nologo \
  21                 [file join $oguilib win32_shortcut.js] \
  22                 $lnk_path \
  23                 [file join $oguilib git-gui.ico] \
  24                 $lnk_dir \
  25                 $lnk_exec] $lnk_args
  26 }