From 7b57d376d428935b0b02de988d0794b46ecc19dc Mon Sep 17 00:00:00 2001
From: Elliot Nunn <elliotnunn@me.com>
Date: Sat, 27 Mar 2021 14:50:31 +0800
Subject: [PATCH] Resizing works but is a bit nasty

---
 ServerDA.a | 104 ++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 99 insertions(+), 5 deletions(-)

diff --git a/ServerDA.a b/ServerDA.a
index 99c617b..9697f0b 100644
--- a/ServerDA.a
+++ b/ServerDA.a
@@ -89,7 +89,7 @@ DAOpen
     st          -(SP)           ; visible
     clr.l       -(SP)           ; value/min
     clr.l       -(SP)           ; max/procID=pushbtn
-    move.l      #OpenBtn-DAEntry,-(SP)  ; refCon
+    move.l      #$80000000+OpenBtn-DAEntry,-(SP)  ; refCon (high flag means pin right)
     dc.w        $A954           ; _NewControl
 
     move.l      D3,-(SP)        ; theWindow
@@ -98,7 +98,7 @@ DAOpen
     st          -(SP)           ; visible
     clr.l       -(SP)           ; value/min
     clr.l       -(SP)           ; max/procID=pushbtn
-    move.l      #CloseBtn-DAEntry,-(SP) ; refCon
+    move.l      #$80000000+CloseBtn-DAEntry,-(SP) ; refCon
     dc.w        $A954           ; _NewControl
 
     move.l      D3,-(SP)        ; theWindow
@@ -238,8 +238,11 @@ CtlEvtMouse
     move.l      (SP)+,D4
 
     move.l      D4,D0
-    bsr         UseFakeGrowBox
-    beq         .noControlClicked ; actually, we resized the window
+    bsr         UseFakeGrowBox ; takes pt in D0, leaves old/new sizes in D0/D1
+    bne.s       .didNotResize
+    bsr         MoveWindowControls
+    bra.s       .noControlClicked
+.didNotResize
 
     subq        #2,SP       ; List Manager to handle it?
     move.l      D4,-(SP)
@@ -320,7 +323,7 @@ Exit
 
 ***************************** SUBROUTINES ****************************
 
-UseFakeGrowBox ; takes D0 as point argument, returns NE if not inside
+UseFakeGrowBox ; takes D0 as point argument, returns NE if not inside, old/new size in D0/D1
     move.l      (A5),A0
     move.l      (A0),A0
     move.l      $14(A0),D1
@@ -338,6 +341,8 @@ UseFakeGrowBox ; takes D0 as point argument, returns NE if not inside
     move.l      A1,-(A1)
     move.l      A1,$7E(A0)      ; insert the fake one
 
+    move.l      $14(A0),-(SP)   ; Keep botRight of old portRect
+
     move.l      A0,-(SP)    ; _SizeWindow's theWindow
     subq        #4,SP       ; _GrowWindow's return, _SizeWindow's w/h
     move.l      A0,-(SP)    ; _GrowWindow's theWindow
@@ -352,7 +357,11 @@ UseFakeGrowBox ; takes D0 as point argument, returns NE if not inside
     st          -(SP)       ; _SizeWindow's fUpdate (do add to upd rgn)
     dc.w        $A91D       ; _SizeWindow
 
+    move.l      (A5),A0     ; return old/new size in D0/D1
+    move.l      (A0),A0
+    move.l      $14(A0),D1
     clr.w       D0          ; return EQ
+    movem.l     (SP)+,D0    ; preserve D0 flag
 .miss
     rts
 
@@ -416,6 +425,91 @@ kgbcnt equ 3
     rts
 
 
+MoveWindowControls ; takes old/new size in D0/D1
+    bsr         SubPt
+    move.l      D1,D3       ; keep delta safe because we use it a lot
+
+    move.l      (A5),A2
+    move.l      (A2),A2     ; A2 is window
+
+    ; Erase everything below the list
+    move.l      $98(A2),A3  ; list handle as ever is in window refcon
+    move.l      (A3),A0
+    move.l      $14(A2),-(SP) ; botRight of window
+    clr.w       -(SP)       ; left of window
+    move.w      4(A0),-(SP) ; bottom of list
+    move.l      SP,-(SP)
+    dc.w        $A8A3       ; _EraseRect
+    addq        #8,SP
+
+    ; Adjust the list
+    move.l      $98(A2),A3  ; list handle as ever is in window refcon
+    move.l      (A3),A0
+    move.l      4(A0),D1    ; current size field
+    move.l      D3,D0       ; delta size
+    bsr         AddPt
+    move.l      D1,-(SP)    ; listWidth/listHeight args to LSize
+    move.l      A3,-(SP)    ; lHandle
+    move.w      #96,-(SP)
+    dc.w        $A9E7       ; _LSize
+
+    ; Move the buttons (what a pain!)
+    move.l      $8C(A2),D0      ; handle to first control
+.ctlLoop
+    beq.s       .doneControls
+    move.l      D0,A3
+    move.l      A3,D2
+    move.l      (A3),A3         ; deref the handle
+
+    tst.b       $28(A3)
+    beq.s       .skipControl
+
+    move.l      D3,D0
+    btst.b      #7,$24(A3)      ; test high bit of refCon
+    bne.s       .doHorizontalMove
+    clr.w       D0
+.doHorizontalMove
+
+    move.l      8(A3),D1        ; current topLeft of control
+    bsr         AddPt
+    move.l      D1,8(A3)
+    move.l      12(A3),D1       ; current botRight of control
+    bsr         AddPt
+    move.l      D1,12(A3)
+
+.skipControl
+    move.l      (A3),D0         ; get next control handle
+    bra.s       .ctlLoop
+.doneControls
+
+    move.l      A2,-(SP)
+    dc.w        $A969 ; _DrawControls
+
+    bsr         DrawFakeGrowBox
+
+    rts
+
+
+AddPt ; adds D0 to D1, preserving D0
+    add.w   D0,D1
+    swap    D0
+    swap    D1
+    add.w   D0,D1
+    swap    D0
+    swap    D1
+    rts
+
+
+SubPt ; subtracts D0 from D1, preserving D0
+    sub.w   D0,D1
+    swap    D0
+    swap    D1
+    sub.w   D0,D1
+    swap    D0
+    swap    D1
+    rts
+
+
 ***************************** CONTROLS ****************************
 
 OpenBtnRect     dc.w    kWinH-20,kWinW-76,kWinH-3,kWinW-20