Unexpected output when using Button

Questions
1

Here’s a strange one for the community: I’m using CreateWindow[DialogNotebook[<some expression>]] to pop-up some information for the user. But when I trigger this with a Button i.e. Button["show window",CreateWindow[...]] I lose the scrollbar in the displayed Dataset.

ButtonandnoButton.png
ButtonandnoButton.png1638×1346 116 KB

The controls at the bottom of the dataset are missing too. “Method”->“Queued” doesn’t help… since that’s the first go-to with Button issues.

2

Here’s some code you can use to create it yourself:

sampleDataset = 
  Dataset[Association @@ 
    Table[j -> (AssociationThread[{"set1", "set2", "set3"} -> 
         Characters@FromCharacterCode[{100, 200, 300} + j]]), {j, 
      100}]];

CreateWindow[DialogNotebook[sampleDataset]]

Button["Click",CreateWindow[DialogNotebook[sampleDataset]]]