Skip to content
This repository has been archived by the owner on Aug 31, 2021. It is now read-only.

Commit

Permalink
Updated file menu with extra options and corrected print calls from menu
Browse files Browse the repository at this point in the history
  • Loading branch information
runrevben committed Jun 4, 2015
1 parent 9be04f4 commit 5cf3002
Showing 1 changed file with 12 additions and 7 deletions.
19 changes: 12 additions & 7 deletions Toolset/palettes/menubar/revmenubar.livecodescript
Expand Up @@ -734,11 +734,16 @@ private function revMenubarFileMenu pContext

local tFile
put "&New Stack" & return after tFile
put tab & "Default" & return after tFile
put tab & "iPhone (375x667)" & return after tFile
put tab & "iPad//Tablet (768x1024)" & return after tFile
put tab & "Default Size" & return after tFile
put tab & "-" & return after tFile
put tab & "Script only" & return after tFile
put tab & "iPhone 4 (320x480)" & return after tFile
put tab & "iPhone 5 (320x568)" & return after tFile
put tab & "iPhone 6 (375x667)" & return after tFile
put tab & "iPhone 6 Plus (540x960)" & return after tFile
put tab & "iPad//Tablet Portrait (768x1024)" & return after tFile
put tab & "iPad//Tablet Landscape (1024x768)" & return after tFile
put tab & "-" & return after tFile
put tab & "Script only Stack" & return after tFile

if tIsUserTarget then
put "&New Substack of" && char 1 to 20 of the mainStack of the topStack & "/|New Substack" & return after tFile
Expand Down Expand Up @@ -2015,10 +2020,10 @@ on revMenubarFileMenuPick pWhich
revIDEPrintPageSetup
break
case "Print Card..."
revIDEPrintCard this card
revIDEPrintCurrentCard
break
case "Print Field..."
revIDEPrintField line 1 of (the selObj)
revIDEPrintField the long ID of the selectedobject
break
case "Quit"
case "Exit"
Expand All @@ -2031,7 +2036,7 @@ on revMenubarFileMenuPick pWhich
case "New Stack"
local tStackType
put item 2 of pWhich into tStackType
if tStackType is "Script only" then
if tStackType is "Script Only Stack" then
revIDEActionNewScriptOnlyStack
else
revIDEActionNewMainstack tStackType
Expand Down

0 comments on commit 5cf3002

Please sign in to comment.