Return to Answer

added 6 characters in body

Source Link

edited Aug 29, 2023 at 18:09

400.5k
18
488
929

Wrap TogglerBar with Pane and use desired settings for ImageSize and Scrollbars:

selectionDialog[list_] := 
 DialogInput[{choice = {}}, 
  Column[{Row[{"Do something:"}], 
    Pane[TogglerBar[Dynamic[choice], list, Appearance -> "Vertical"], 
     ImageSize -> {100Automatic, 300}, Scrollbars -> {False, True}], 
    Button["OK", DialogReturn[choice]]}]]

list = Table["Phrase" <> (i // ToString), {i, 1, 100, 1}];

selectionDialog[list]

Wrap TogglerBar with Pane and use desired settings for ImageSize and Scrollbars:

selectionDialog[list_] := 
 DialogInput[{choice = {}}, 
  Column[{Row[{"Do something:"}], 
    Pane[TogglerBar[Dynamic[choice], list, Appearance -> "Vertical"], 
     ImageSize -> {100, 300}, Scrollbars -> {False, True}], 
    Button["OK", DialogReturn[choice]]}]]

list = Table["Phrase" <> (i // ToString), {i, 1, 100, 1}];

selectionDialog[list]

Wrap TogglerBar with Pane and use desired settings for ImageSize and Scrollbars:

selectionDialog[list_] := 
 DialogInput[{choice = {}}, 
  Column[{Row[{"Do something:"}], 
    Pane[TogglerBar[Dynamic[choice], list, Appearance -> "Vertical"], 
     ImageSize -> {Automatic, 300}, Scrollbars -> {False, True}], 
    Button["OK", DialogReturn[choice]]}]]

list = Table["Phrase" <> (i // ToString), {i, 1, 100, 1}];

selectionDialog[list]

Source Link

created Aug 29, 2023 at 15:34

kglr

400.5k
18
488
929

Wrap TogglerBar with Pane and use desired settings for ImageSize and Scrollbars:

selectionDialog[list_] := 
 DialogInput[{choice = {}}, 
  Column[{Row[{"Do something:"}], 
    Pane[TogglerBar[Dynamic[choice], list, Appearance -> "Vertical"], 
     ImageSize -> {100, 300}, Scrollbars -> {False, True}], 
    Button["OK", DialogReturn[choice]]}]]

list = Table["Phrase" <> (i // ToString), {i, 1, 100, 1}];

selectionDialog[list]