Hola a todos, hice este sencillo programita probando algnas funciones y me 
encontr con este problema que no dibuja el rectngulo, sabrian orientame

gracias

#include "appevent.ch"
#include "xbp.ch"
#include "gra.ch"

Procedure Main
*Begin
   Local oDLG, nEvent, mp1 :=1, mp2 :=1, oXbp, lE

   oDlg := XbpDialog():new( AppDesktop() )
   oDlg:taskList := .T.
   oDlg:title    := "Prueba"
   oDlg:visible  := .F.
   oDlg:close    := {|| PostAppEvent(xbeP_Quit) }
   oDlg:Create( ,, {100,100},{650,460} )
   oDlg:Show()
   SetAppFocus( oDlg )

   lE :=AppDesktop():lockPs()
   GraBox( lE, {150, 70}, {460,200}, GRA_OUTLINE, 20, 20 )
   AppDesktop():unLockPs()

   nEvent := xbe_None
   WHILE nEvent != xbeP_Quit
      nEvent := AppEvent( @mp1, @mp2, @oDlg )
      oDlg:handleEvent( nEvent, mp1, mp2 )
   ENDDO

   Return
*End;

Jorge,
Fijate en las modificaciones respecto a tu cdigo fuente.

   oPS :=oDlg:drawingArea:lockPs()
   GraBox( oPS, {150, 70}, {460,200}, GRA_OUTLINE, 20, 20 )
   oDlg:drawingArea:unLockPs( oPS )

Espero haber sido de ayuda.


Saludos

Jos Luis Otermin
Soporte Tcnico
Alaska Software Inc.
http://www.alaska-software.com