ctview / column

[ladagnou@irit.fr (Philippe LADAGNOUS)]

 Bonjour,

 Lorsque j'execute ce script, la rangee "row1" ne s'affiche pas dans le ctview
 mais deux fenetres X sont ouvertes contenant chacune un bouton "apply" ou "goal".
 Il y a surement qqe chose que je n'ai pas compris et ca n'aurait rien d'etonnant.
 Si qqun avait l'amabilite de m'expliquer ce qui cloche... merci.

(setq ct (map-ctview "as" () () () () () () ()))


(de :add-command-buttons ()
    (lets
     ((apply ({butobj}:create 0 0 (view (centeredimage 0 0 60 15 "apply")
                                        (box 0 0 60 15)) ':apply))
      (goal ({butobj}:create 0 0 (view (centeredimage 0 0 60 15 "goal")
                                       (box 0 0 60 15)) ':goal))
      (row1 (fixrow apply goal)))
     (send 'hide-frame ct)
     ({editor-view}:add-to-column ct row1 0)
     (send 'show row1)
     (send 'show-frame ct)))

(:add-command-buttons)


P.S: si au lieu d'inserer "row1" on insere un bouton, cela fonctionne.
     Ces 2 types d'objets auraient-ils des status differents?