英文:
Trying to create a Status Menu app with Platypus.app
问题
我正在尝试创建一个基本的状态菜单应用程序，使用 Platypus.app。
我觉得我快要成功了，但我却无法实现，并且这已经困扰我一个星期了。
#!/usr/bin/perl# 如果没有参数，显示菜单if (!scalar(@ARGV)) {print "MENUITEMICON|AppIcon.icns|~/Desktop\n";print "MENUITEMICON|/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/AlertStopIcon.icns|~/Desktop/3DProjects\n";print "MENUITEMICON|https://sveinbjorn.org/images/andlat.png|~/Desktop/2DProjects\n";print "SUBMENU|子菜单|项目1|项目2|项目3\n";} else {# 我们将菜单标题作为参数system("open $ARGV[0]");}
如果我使用相对路径作为菜单名称，这可以工作，但看起来不太好。如何使用 "Open Desktop"、"Open 3DProjects" 等作为菜单，并使其打开正确的文件夹呢？
另外，是否可以为子菜单项添加图标？
英文:
I'm trying to create a basic status menu app with Platypus.app
I feel I'm almost there but I can't get there and it's been puzzling for a week now.
#!/usr/bin/perl# If 0 arguments, we show menuif (!scalar(@ARGV)) {print "MENUITEMICON|AppIcon.icns|~/Desktop\n";print "MENUITEMICON|/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/AlertStopIcon.icns|~/Desktop/3DProjects\n";print "MENUITEMICON|https://sveinbjorn.org/images/andlat.png|~/Desktop/2DProjects\n";print "SUBMENU|Submenu|Item 1|Item 2|Item 3\n";} else {# We get the menu title as an argumentsystem("open $ARGV[0]");}
This works if I use the relative path as the menu name, but that doesn't look good. How do I use Open Desktop, Open 3DProjects etc as the menu and have it open the correct folder?
Also, is it possible to add an icon to the submenu items?
答案1
得分: 1
> 我如何使用"Open Desktop"、"Open 2DProjects" 等菜单并打开正确的文件夹？
你可以尝试在脚本中保存绝对路径，像这样：
#!/usr/bin/perlmy @menu = ({icon => 'AppIcon.icns',path => '~/Desktop',text => '打开桌面'},{icon => '/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/AlertStopIcon.icns',path => '~/Desktop/2DProjects',text => '打开2D项目'});# 如果没有参数，我们显示菜单if (!scalar(@ARGV)) {for my $item (@menu) {print "MENUITEMICON|" . $item->{icon} . "|" . $item->{text} . "\n";}}else {# 我们将菜单标题作为参数传递my $path;my $text = $ARGV[0];for my $item (@menu) {if ($item->{text} eq $text){$path = $item->{path};last;}}system("open $path");}
请注意，我已经将菜单文本从英文翻译成了中文，以便更好地理解。
英文:
> How do I use Open Desktop, Open 3DProjects etc as the menu and have it open the correct folder?
Can you try save the absolute path in the script like this:
#!/usr/bin/perlmy @menu = ({icon => 'AppIcon.icns',path => '~/Desktop',text => 'Open Desktop'},{icon => '/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/AlertStopIcon.icns',path => '~/Desktop/2DProjects',text => 'Open 2DProjects'});# If 0 arguments, we show menuif (!scalar(@ARGV)) {for my $item (@menu) {print "MENUITEMICON|" . $item->{icon} . "|" . $item->{text} . "\n";}}else {# We get the menu title as an argumentmy $path;my $text = $ARGV[0];for my $item (@menu) {if ($item->{text} eq $text){$path = $item->{path};last;}}system("open $path");}
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论