diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenShot2_small.png b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenShot2_small.png new file mode 100644 index 0000000000..2b2cfdbbe7 Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenShot2_small.png differ diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenshot_small.png b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenshot_small.png new file mode 100644 index 0000000000..54f46d8bba Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/linux/ToDoListScreenshot_small.png differ diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot2_small.png b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot2_small.png new file mode 100644 index 0000000000..045955d3f1 Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot2_small.png differ diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot_small.png b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot_small.png new file mode 100644 index 0000000000..ab724bc7ce Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/mac/ToDoListScreenshot_small.png differ diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot2_small.PNG b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot2_small.PNG new file mode 100755 index 0000000000..bdce56d882 Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot2_small.PNG differ diff --git a/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot_small.PNG b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot_small.PNG new file mode 100755 index 0000000000..18441a9e40 Binary files /dev/null and b/Toolset/palettes/tutorial/courses/First Run/tutorials/To Do List/_resources/windows/ToDoListScreenshot_small.PNG differ diff --git a/Toolset/palettes/tutorial/revtutorial.livecodescript b/Toolset/palettes/tutorial/revtutorial.livecodescript index 878f0fda70..374046903f 100644 --- a/Toolset/palettes/tutorial/revtutorial.livecodescript +++ b/Toolset/palettes/tutorial/revtutorial.livecodescript @@ -2124,7 +2124,7 @@ on revTutorialConfigureMessage pData local tImageFile if pData["image"] is not empty then local tImageWidth - put revIDETutorialInternalResource(pData["image"]) into tImageFile + put revTutorialImageForScreenSize(pData["image"]) into tImageFile set the filename of image "Image" of stack "revTutorial" to tImageFile put the formattedWidth of image "Image" of stack "revTutorial" + 2 * kMargin into tImageWidth put max(tWidthOverride, tImageWidth) into tWidthOverride @@ -2162,6 +2162,23 @@ on revTutorialConfigureMessage pData revTutorialPositionStack "", "", tWidthOverride, false end revTutorialConfigureMessage +function revTutorialImageForScreenSize pImage + local tScreen, tScreenRect + put the screen of stack "revTutorial" into tScreen + put line tScreen of the the screenrects into tScreenRect + if item 4 of tScreenRect - item 2 of tScreenRect <= 1080 then + local tSmallImage, tFile + put pImage into tSmallImage + set the itemdelimiter to "." + put "_small" after item -2 of tSmallImage + put revIDETutorialInternalResource(tSmallImage) into tFile + if there is a file tFile then + return tFile + end if + end if + return revIDETutorialInternalResource(pImage) +end revTutorialImageForScreenSize + function revTutorialScriptRetry pCurrent local tText put "Your script is not quite right. You have:" & return & return after tText diff --git a/notes/bugfix-20040.md b/notes/bugfix-20040.md new file mode 100644 index 0000000000..f5b4939c63 --- /dev/null +++ b/notes/bugfix-20040.md @@ -0,0 +1 @@ +# Use smaller images of todo list on smaller screens