Widget Folder

Boa tarde pessoal.

Preciso reduzir o tamanho do aba da folder (cd0204), via upc. Porém não está reduzindo. Alguma dica? (voltando ao progress).

Código:

if p-ind-object = "container" then do:
    if p-ind-event = "initialize" then do:
        lErrorData = NO.
        run get-link-handle in adm-broker-hdl (input p-wgh-object,
                                               input "PAGE-SOURCE":U,
                                               OUTPUT c-folder).
                                                    
        assign h-folder_cd0204 = Widget-handle(C-Folder) No-Error.
        if Valid-handle(h-folder_cd0204) Then do:
          IF c-char = "cd0204.w" THEN DO:
            run create-folder-page  in h-folder_cd0204 (input 6, input "BASTON":U).
            run create-folder-label in h-folder_cd0204 (input 6, input "BASTON":U).
            run select-page in p-wgh-object (input 6).
           
            /* run delete-folder-page in h-folder_cd0204 (input 5). */

            run init-object in p-wgh-object (input "cstvwr/v01cst_0204.w":U, /* Nome do Objeto Viewer */
                                             input p-wgh-frame,
                                             input "Layout = ":U,
                                             OUTPUT h-viewer_cd0204).
            IF VALID-HANDLE(h-viewer_cd0204) THEN DO:
              RUN set-position in h-viewer_cd0204 ( 7.60, 3.50).
            END.
            run get-link-handle in adm-broker-hdl (input p-wgh-object,
                                                   input "container-TARGET":U,
                                                   OUTPUT c-objects).

            IF VALID-HANDLE(h-viewer_cd0204) THEN DO:
              run dispatch in h-viewer_cd0204 ("initialize":U).
            END.
            run select-page in p-wgh-object (input 1).
            assign h_win_cd0204 = p-wgh-object
                   h_win_cd0204:width = 200.
          END.
        END.
    end.
   
end.

Segue image de como está ficando..

Código:

RUN set-attribute-list IN h-folder_cd0204("FOLDER-TAB-TYPE = 3":U).

Obrigado @af.dums. Irei aplicar e volto a postar.

Obrigado @af.dums. Me ajudou.

Em 2021 me ajudou também e muito!
Gratidão