Data commit

Task/Simple-windowed-application/Lingo/simple-windowed-application.lingo

@@ -0,0 +1,47 @@
+on startMovie
+
+  -- window settings
+  _movie.stage.title = "Hello World!"
+  _movie.stage.titlebarOptions.visible = TRUE
+  _movie.stage.rect = rect(0,0,320, 240)
+  _movie.centerStage = 1
+
+  -- create a label (called "field" in Director)
+  m = new(#field)
+  m.name = "label"
+  m.rect = rect(0,0,320,0)
+  m.text = "There have been no clicks yet"
+  m.alignment = "center"
+
+  -- create sprite, assign field
+  _movie.puppetSprite(1, TRUE)
+  sprite(1).member = m
+  sprite(1).loc = point(0,80)
+
+  -- create a button
+  m = new(#button)
+  m.rect = rect(0,0,220,0)
+  m.text = "click me"
+  m.alignment = "center"
+
+  -- create sprite, assign button
+  _movie.puppetSprite(2, TRUE)
+  sprite(2).member = m
+  sprite(2).loc = point(50,105)
+
+  -- create new script at runtime, assign it to button sprite
+  m = new(#script)
+  m.scriptType = #score
+  m.scriptText = "on mouseDown"&RETURN&\
+  "  m=member("&QUOTE&"label"&QUOTE&")"&RETURN&\
+  "  m.text=string(integer(m.text)+1)"&RETURN&\
+  "end"
+  sprite(2).scriptInstanceList.add(m.script.new())
+
+  -- force immediate update
+  _movie.updateStage()
+
+  -- show the window
+  _movie.stage.visible = 1
+
+end