Added WGSetContentWidth and WGSetContentHeight

Documentation.md

@@ -858,6 +858,32 @@ Not available
 </pre></td></tr>
 </table>
 
+
+####WGViewWidth
+Changes the content width of the currently selected view.
+
+<table width="100%">
+<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td>
+A: 		New content width for the view
+</td><td>
+Not available
+</td></tr>
+</table>
+
+
+####WGViewHeight
+Changes the content width of the currently selected view.
+
+<table width="100%">
+<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td>
+A: 		New content height for the view
+</td><td>
+Not available
+</td></tr>
+</table>
+
+
+
 <br>
 
 Drawing Routines

WeeGUI_MLI.s

@@ -69,4 +69,6 @@ WGExit					= 70
 WGCreateProgress		= 72
 WGSetState				= 74
 WGViewSetRawTitle		= 76
+WGSetContentWidth		= 77
+WGSetContentHeight		= 78
 

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