diff --git a/Documentation.md b/Documentation.md index f506c79..0c1de14 100644 --- a/Documentation.md +++ b/Documentation.md @@ -858,6 +858,32 @@ Not available + +####WGViewWidth +Changes the content width of the currently selected view. + + + +
AssemblyApplesoft
+A: New content width for the view + +Not available +
+ + +####WGViewHeight +Changes the content width of the currently selected view. + + + +
AssemblyApplesoft
+A: New content height for the view + +Not available +
+ + +
Drawing Routines diff --git a/WeeGUI_MLI.s b/WeeGUI_MLI.s index 4b09b3e..67a7276 100644 --- a/WeeGUI_MLI.s +++ b/WeeGUI_MLI.s @@ -69,4 +69,6 @@ WGExit = 70 WGCreateProgress = 72 WGSetState = 74 WGViewSetRawTitle = 76 +WGSetContentWidth = 77 +WGSetContentHeight = 78 diff --git a/views.s b/views.s index e0b85b9..b91375a 100644 --- a/views.s +++ b/views.s @@ -1415,6 +1415,44 @@ WGScrollYBy_done: rts +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; WGSetContentWidth +; Sets the content width of the current view +; A: New width +; +WGSetContentWidth: + phy + pha + + LDY_ACTIVEVIEW + pla + + sta WG_VIEWRECORDS+7,y + jsr cacheClipPlanes ; Content width changed, so clipping cache is stale + + ply + rts + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; WGSetContentHeight +; Sets the content width of the current view +; A: New height +; +WGSetContentHeight: + phy + pha + + LDY_ACTIVEVIEW + pla + + sta WG_VIEWRECORDS+8,y + jsr cacheClipPlanes ; Content height changed, so clipping cache is stale + + ply + rts + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; WGViewPaintAll ; Repaints all views diff --git a/weegui.dsk b/weegui.dsk index 3dadced..db3936a 100644 Binary files a/weegui.dsk and b/weegui.dsk differ