summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-26 08:05:00 +0000
committerNorbert Preining <preining@logic.at>2009-02-26 08:05:00 +0000
commit65a2860236d1425b90f6121a6e5198028a6d752f (patch)
tree4b2fd9fbe3a21c6922deceea146e9c9d5708a970
parent9ae478010313e293a4f2ee3871d0a0602103a56b (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.pm11
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;