diff options
author | Norbert Preining <preining@logic.at> | 2009-02-26 08:05:00 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-26 08:05:00 +0000 |
commit | 65a2860236d1425b90f6121a6e5198028a6d752f (patch) | |
tree | 4b2fd9fbe3a21c6922deceea146e9c9d5708a970 | |
parent | 9ae478010313e293a4f2ee3871d0a0602103a56b (diff) |
fix for do_postaction code, forgot that the func from TLWinGoo are not imported
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12242 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ac728ca12e0..938158710c9 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1431,19 +1431,22 @@ sub _do_postaction_shortcut { $args =~ s!^TEXDIR/!$texdir/!; $args = conv_to_w32_path($args); if ($type eq "menu") { - add_menu_shortcut($TeXLive::TLConfig::WindowsMainMenuName, + TeXLive::TLWinGoo::add_menu_shortcut( + $TeXLive::TLConfig::WindowsMainMenuName, $name, $icon, $cmd, $args, $hide); } elsif ($type eq "desktop") { - add_desktop_shortcut($name, $icon, $cmd, $args, $hide); + TeXLive::TLWinGoo::add_desktop_shortcut( + $name, $icon, $cmd, $args, $hide); } else { tlwarn("Unknown type of shortcut: $type\n"); return 0; } } elsif ($how eq "remove") { if ($type eq "menu") { - remove_menu_shortcut($TeXLive::TLConfig::WindowsMainMenuName, $name); + TeXLive::TLWinGoo::remove_menu_shortcut( + $TeXLive::TLConfig::WindowsMainMenuName, $name); } elsif ($type eq "desktop") { - remove_desktop_shortcut($name); + TeXLive::TLWinGoo::remove_desktop_shortcut($name); } else { tlwarn("Unknown type of shortcut: $type\n"); return 0; |