DwgPreview update problem in 7.0.0.1

Bricscad 12.1.2
OpenDCL  7.0.0.1
Win XP

A small problem with DwgPreview:
To load a new dwg in a preview you have to first make it invisible.
See attached files.

Put all files in a single folder.
Open one of the drawings.
Load the lisp.
Enter BKG_BLOCKBROWSER to run.
Hit Reload button.
Result: only BkgBlockBrowser_Main_DwgPreview1 has been updated.


(defun c:BkgBlockBrowser_Main_btnReload_OnClicked ()
 ; (dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview0 nil) ; required for ODCL 7.0.0.1
 (dcl_DWGPreview_LoadDwg BkgBlockBrowser_Main_DwgPreview0 "A002.dwg")
 (dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview0 'T)
 (dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview1 nil) ; required for ODCL 7.0.0.1
 (dcl_DWGPreview_LoadDwg BkgBlockBrowser_Main_DwgPreview1 "A003.dwg")
 (dcl_Control_SetVisible BkgBlockBrowser_Main_DwgPreview1 'T)
)

Good catch. This is now fixed for the next build.

Thanks Owen.

Owen,
Any time frame for an update on this.

In the meantime I'm using

(defun c:KDUB_BlockInserter_Main_ListBox_OnSelChanged (ItemIndex Value /)
  (dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 'T)
  (dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 nil)
    (dcl_dwgpreview_loaddwg KDUB_BlockInserter_Main_DwgPreview1
                          (strcat G1003-SelectedFolder "\\" Value)
  )
  (dcl_Control_SetVisible KDUB_BlockInserter_Main_DwgPreview1 'T)   
)

Good workaround roy_043.

I am planning to upload Alpha 2 this weekend.

Thanks Owen.

I'll be in Santa mode  :D

All the best for the Silly Season.
Be well