2008-03-13 14:47 UTC
Once I have the following sub loaded the palette pops back up as expected, but the onInitialize event won't fire - I have to hit my "refresh" button to populate the form.
This is the OnEnteringNoDocState sub:
This is the OnDocActivated sub:
This is the OnInitialize sub:
This is the command entry point sub:
This line of code is at the end of the .fas file - loaded at document start-up (from a menu .mnl file):
So the form pops up, but the OnInitialize event doesn't fire. It's not the OnInitialize sub becaues the "refresh" button just calls the OnInitialize sub. I have documented this in two seperate paletttes. Any thoughts? bug??
This is the OnEnteringNoDocState sub:
(defun c:jb002_00_OnEnteringNoDocState ( /)
(if (dcl_Form_IsActive jb002_00)
(progn (vl-bb-set 'jbKeynotesFloating "true")
(dcl_form_close jb002_00)))
)This is the OnDocActivated sub:
(defun c:jb002_00_OnDocActivated (/) (c:jb002_00_OnInitialize))This is the OnInitialize sub:
(defun c:jb002_00_OnInitialize (/ file data)
(if (not(dcl_Control_GetValue jb002_00_note))
(dcl_Control_SetEnabled jb002_00_LEADER 0)
(dcl_Control_SetEnabled jb002_00_LEADER 1))
(dcl_Control_Setcaption jb002_00_PREVIEW "")
;;; Drawing specific keynote file
;(setq file (jb:ReturnKeynoteFilename))
;;; Project specific keynote file
(setq file(jb:ReturnKeynoteFilename))
(if file
(setq data (jb:getKeynoteFileData file)))
(if data
(progn (dcl_ListBox_Clear jb002_00_DIV)
(dcl_ListBox_AddList jb002_00_DIV (car data))
(dcl_ListBox_Clear jb002_00_ListBox)
(dcl_ListBox_AddList jb002_00_ListBox (cadr data)))
(progn (dcl_ListBox_Clear jb002_00_ListBox)
(dcl_ListBox_Clear jb002_00_DIV))))This is the command entry point sub:
(defun c:jbkeynotesdialog (/ )
(if(not(member "jb002" (dcl_GetProjects)))
(dcl_Project_load "jb002"))
(if (not (dcl_Form_IsActive jb002_00))
(dcl_Form_Show jb002_00))
(princ))This line of code is at the end of the .fas file - loaded at document start-up (from a menu .mnl file):
(if
(= (vl-bb-ref 'jbKeynotesFloating) "true")
(c:jbkeynotesdialog))So the form pops up, but the OnInitialize event doesn't fire. It's not the OnInitialize sub becaues the "refresh" button just calls the OnInitialize sub. I have documented this in two seperate paletttes. Any thoughts? bug??