kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Close #137

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-25 18:22:06 +00:00
parent 84fa553530
commit fe4501aa84
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
projects/kiss-flixel/src/kiss_flixel/SimpleWindow.kiss
View File

@@ -120,8 +120,12 @@
(prop &mut :FlxText titleText) (prop &mut :FlxText titleText)
(prop &mut :FlxText leftText) (prop &mut :FlxText leftText)
(prop &mut :FlxText rightText) (prop &mut :FlxText rightText)
(prop &mut :FlxText columnText)
(prop &mut :FlxText xText) (prop &mut :FlxText xText)
(method columnTextStr []
"$(* cameraColumn ".")*$(* (- columnWidths.length 1 cameraColumn) ".")")
(method makeScrollArrows [] (method makeScrollArrows []
(unless hasScrollArrows (unless hasScrollArrows
// The left arrow control is not added until the window scrolls right // The left arrow control is not added until the window scrolls right
@@ -141,7 +145,17 @@
(controls.add ftext) (controls.add ftext)
(dictSet _actions ftext ->:Void _ (scrollRight)) (dictSet _actions ftext ->:Void _ (scrollRight))
(set rightText ftext)) (set rightText ftext))
(set hasScrollArrows true))) (let [ftext (new FlxText (fHalf width) height 0 (columnTextStr) textSize)]
(set ftext.cameras [controlCamera])
(-= ftext.x (fHalf ftext.width))
(-= ftext.y ftext.height)
(set ftext.color textColor)
(dictSet _colors ftext ftext.color)
(controls.add ftext)
(set columnText ftext))
(set hasScrollArrows true))
// A column could be added while the same window is shown.
(set columnText.text (columnTextStr)))
(prop :Map<FlxSprite,Action> _actions (new Map)) (prop :Map<FlxSprite,Action> _actions (new Map))
(prop :Map<FlxSprite,FlxColor> _colors (new Map)) (prop :Map<FlxSprite,FlxColor> _colors (new Map))
@@ -286,8 +300,10 @@
(-= titleText.x scrollAmount)) (-= titleText.x scrollAmount))
(-= leftText.x scrollAmount) (-= leftText.x scrollAmount)
(-= rightText.x scrollAmount) (-= rightText.x scrollAmount)
(-= columnText.x scrollAmount)
(when xText (when xText
(-= xText.x scrollAmount))))) (-= xText.x scrollAmount)))
(set columnText.text (columnTextStr))))
(method scrollRight [] (method scrollRight []
(when (< cameraColumn (- columnWidths.length 1 )) (when (< cameraColumn (- columnWidths.length 1 ))
@@ -297,12 +313,14 @@
(+= titleText.x scrollAmount)) (+= titleText.x scrollAmount))
(+= leftText.x scrollAmount) (+= leftText.x scrollAmount)
(+= rightText.x scrollAmount) (+= rightText.x scrollAmount)
(+= columnText.x scrollAmount)
(when xText (when xText
(+= xText.x scrollAmount))) (+= xText.x scrollAmount)))
(+= cameraColumn 1) (+= cameraColumn 1)
(when (< (apply + (columnWidths.slice cameraColumn)) width) (when (< (apply + (columnWidths.slice cameraColumn)) width)
(controls.remove rightText)) (controls.remove rightText))
(controls.add leftText))) (controls.add leftText)
(set columnText.text (columnTextStr))))
// Irreversibly disable the window's buttons (for when you're going to hide it in the next frame) // Irreversibly disable the window's buttons (for when you're going to hide it in the next frame)
(method clearActions [] (method clearActions []