#712 Application window is reduced by 1 click on the main bar

[krunch]

This is a strange behavior concerning the Application window main bar (above) : in some cases the Application window is reduced when you click on the main bar

Please see the sample below..

Apparently this problem occurs :
- if KeepFocus=nil
- if the TextBox triggers a OnKillFocus function
- if this function contains an OpenDCL property (/method /function ?) to evaluate
- if the TextBox looses focus when you click on the main bar..

The Lisp to test it :
(defun c:go ()
(command "OPENDCL")
(dcl_Project_Load "AppBar" T)
(dcl_Form_Show AppBar_Form1)
(princ)
)
(defun c:DO (/ out gr)
(dcl_TextBox_SetSel AppBar_Form1_TextBox1 0 0)
(princ)
)
(defun c:Appbar_Form1_TextBox1_OnKillFocus (/ tmp)
;;; (princ) ; doesn't causes the problem
;;; (setq tmp 0)
(dcl_Control_GetText Appbar_Form1_TextBox1) ; need something like that
)

The post in the forum : http://www.opendcl.com/forum/index.php?topic=1597.msg7859#msg7853

[krunch]