In this section we create a canvas with text, and math in columns.

$\mathrm{with}\left(\mathrm{DocumentTools}:-\mathrm{Canvas}\right)\:$

$\mathrm{cv}≔\mathrm{NewCanvas}\left(\left[''A\; Sample\; Maple\; Learn\; Document''\,\left[''Some\; Text''\,E=M{C}^2\right]\,\left[E\,M\,C^2\right]\right]\right)\:$

$\mathrm{ShowCanvas}\left(\mathrm{cv}\right)$

In this section we create a blank canvas, then add text, and math via script commands.

$\mathrm{with}\left(\mathrm{DocumentTools}:-\mathrm{Canvas}\right)\:$

$\mathrm{cv}≔\mathrm{NewCanvas}\left(\left[\right]\right)\:$

$\mathrm{ShowCanvas}\left(\mathrm{cv}\,\mathrm{size}=\left[6\,3\right]\right)$

$s≔\mathrm{Script}\left(\right)\:$

$s:-\mathrm{SetText}\left(s\,''A\; Sample\; Maple\; Learn\; Document''\,\mathrm{where}=\left[30\,30\right]\,\mathrm{container}=''textbox''\right)$

$s:-\mathrm{SetText}\left(s\,''Some\; Text''\,\mathrm{where}=''below''\right)$

$s:-\mathrm{SetMath}\left(s\,E=M{C}^2\,\mathrm{where}=''right''\right)$

$s:-\mathrm{SetActive}\left(s\,''1''\right)$

$s:-\mathrm{SetMath}\left(s\,E\,\mathrm{where}=''below''\right)$

$s:-\mathrm{SetMath}\left(s\,M\,\mathrm{where}=''right''\right)$

$s:-\mathrm{SetMath}\left(s\,C^2\,\mathrm{where}=''right''\right)$

At this point the canvas in this section is the same as the one in the previous section. We can embed the script into a new canvas and watch the actions animate in sequence when deployed to Maple Learn.

$\mathrm{cv2}≔\mathrm{NewCanvas}\left(\left[\right]\,s\right)\:$

$\mathrm{ShareCanvas}\left(\mathrm{cv2}\right)$

In this section we create a canvas with a procedure that runs a script when a button is clicked.

$\mathrm{with}\left(\mathrm{DocumentTools}:-\mathrm{Canvas}\right)\:$

Check := proc( canvas )
   local script := Script();
   for local m in GetMath(canvas) do
       script:-SetActive(script,m);
       if m:-math = 2 then
           script:-Annotate(script,"Good job, this is correct");
       else
           script:-Annotate(script,"This is not the answer");
       end if;
   end do;
   script:-ToString(script);
end proc:

$\mathrm{cv}≔\mathrm{NewCanvas}\left(\left[\mathrm{Text}\left(''Calculate\; \%1:''\,\mathrm{`\%+`}\left(1\,1\right)\right)\,\mathrm{Math}\left(''''\right)\,\mathrm{ScriptButton}\left(''Check''\,\mathrm{Check}\right)\right]\right)\:$

$\mathrm{ShowCanvas}\left(\mathrm{cv}\right)$

In this section we generate a script for use in Maple Learn that applies raw script commands to an entered expression.

$\mathrm{with}\left(\mathrm{DocumentTools}:-\mathrm{Canvas}\right)\:$

RunThis := proc( canvas )
   local script := Script();
   for local m in GetMath(canvas) do
       script:-SetActive(script,m);
       script:-Command(script,["COPYDOWN","Left","Left","STOREPOS","Right","MARK","SELECTMARK","PAUSE","BS"]);
   end do;
   script:-ToString(script);
end proc:

$\mathrm{cv}≔\mathrm{NewCanvas}\left(\left[''Write\; an\; expression''\,\mathrm{ScriptButton}\left(''Test\; the\; Script''\,\mathrm{RunThis}\,\mathrm{position}=\left[500\,50\right]\right)\right]\right)\:$

$\mathrm{ShareCanvas}\left(\mathrm{cv}\right)$

                                                                                                                                                                          insertdirect, content = "<?xml version="1.0" encoding="UTF-8"?><Worksheet><Group view='presentation' hide-input='false' hide-output='false' inline-output='false' drawlabel='true'><Input><Text-field alignment='left' style='Text' layout='Normal'><Font style='Hyperlink'><Hyperlink linktarget='https://learn.maplesoft.com/d/HJGLEUPKCKHGHQLKNIMJNSAMBUEKAQJNISCTMREHOPBPGNCPAHGSPNONEOPMLLNQLIBUMJOFMJLTGHKTCFBNCGFRHFNSOUDUCHNK' hyperlink='true'>https://learn.maplesoft.com/d/HJGLEUPKCKHGHQLKNIMJNSAMBUEKAQJNISCTMREHOPBPGNCPAHGSPNONEOPMLLNQLIBUMJOFMJLTGHKTCFBNCGFRHFNSOUDUCHNK</Hyperlink></Font></Text-field></Input></Group></Worksheet>", state = "", minimal = true