Andrew's git - gitweb.git/blob - git-gui/lib/win32.tcl

   1# git-gui Misc. native Windows 32 support
   2# Copyright (C) 2007 Shawn Pearce
   3
   4proc 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
  12proc 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 nativename [file join $oguilib win32_shortcut.js]] \
  22                $lnk_path \
  23                [file nativename [file join $oguilib git-gui.ico]] \
  24                $lnk_dir \
  25                $lnk_exec] $lnk_args
  26}