gui: sorted files. started working on TextSel class.

avr/modules/lcd2/gui/base/object.asm

@@ -156,7 +156,7 @@ OBJ_Fini:
 ; CAVEAT: Y is invalid after return!
 ;
 ; @param Y address of object in SDRAM
-; @clobbers none
+; @clobbers any, !Y
 
 OBJ_Free:
   tst yl
@@ -1111,6 +1111,42 @@ OBJ_CountDirectChildren_done:
 
 
 
+; ---------------------------------------------------------------------------
+; @routine OBJ_FreeChildren @global
+;
+; @param Y address of object whose children are to be free'd
+; @clobbers any, !Y
+
+OBJ_FreeChildren:
+  push yl
+    push yh
+      clr r16
+      rcall OBJ_GetFirstChild
+      brcc OBJ_FreeChildren_done
+OBJ_FreeChildren_loop:
+        mov yl, r18
+        mov yh, r19
+        rcall OBJ_GetNext
+        brcs OBJ_FreeChildren_loopFree
+        clr r18
+        clr r19
+OBJ_FreeChildren_loopFree:
+        push r18
+          push r19
+            rcall OBJ_Free
+          pop r19
+        pop r18
+        mov r16, r18
+        or r16, r19
+      brne OBJ_FreeChildren_loop
+OBJ_FreeChildren_done:
+    pop yh
+  pop yl
+  ret
+; @end
+
+
+
 ; ***************************************************************************
 ; data in FLASH