+(defun textboxes (model)
+ "TEXTBOXES MODEL => TEXTBOX-DEFS
+
+ TEXTBOX-DEFS: TEXTBOX-DEF*
+ TEXTBOX-DEF: (:left LEFT :top TOP :height HEIGHT :width WIDTH :display DISPLAY)
+
+ARGUMENTS AND VALUES:
+
+ MODEL: A valid model
+ LEFT: An integer representing the left position
+ TOP: An integer representing the top position
+ HEIGHT: An integer representing height, in characters
+ WIDTH: An integer representing width, in characters
+ DISPLAY: A string representing display name
+
+DESCRIPTION:
+
+ Returns textbox definitions that get declared in the textboxes of the
+ MODEL. This is used to initialize the interface."
+ (remove nil
+ (mapcar
+ (lambda (widget)
+ (typecase widget
+ (textbox
+ (list
+ :left (textbox-left widget)
+ :top (textbox-top widget)
+ :width (truncate (- (textbox-right widget) (textbox-left widget)) clnl-gltk:*font-width*)
+ :height (truncate (- (textbox-bottom widget) (textbox-top widget)) clnl-gltk:*font-height*)
+ :display (textbox-display widget)))))
+ (model-interface model))))
+