(script-fu-register
    "script-fu-macro-text-box"  ;func name
    "macro-text-box "    ;menu label
    " "    ;description
    " "    ;author
    " "    ;copyright notice
    " "    ;date created
    "*"    ;image type that the script works on
    SF-IMAGE    "Image"                 0
    SF-DRAWABLE "Drawable"              0
    SF-VALUE "Width" "100"
    SF-VALUE "Depth" "100"
)
(script-fu-menu-register "script-fu-macro-text-box" "<Image>/Tools")
(define (script-fu-macro-text-box image layer width depth )

    ;start
    (gimp-context-push)
    (gimp-image-undo-group-start image)
    
    ;put your procedures here

    (define image[0]) (define layer (car (gimp-image-get-active-layer image)))

    (gimp-text-layer-resize layer width depth)


    ;finish
    (gimp-image-undo-group-end image)
    (gimp-context-pop)
    (gimp-displays-flush)
)