Message Boards

WOLFRAM COMMUNITY

1919 Views

3 Replies

6 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Interface Construction Wolfram Language

Placing checkboxes in popup window

Gerald Proteau

Posted 1 year ago

I've attached a working example file containing some controls functioning in a manipulate structure. The code produces a varying number of checkboxes. I'm looking for a way to place these checkboxes into a popup menu to save space. The ability to check more than one checkbox in the popup menu is required. I've attached the working file. Please advise, or direct me to something in the reference material. Much Thanks. G

POSTED BY: Gerald Proteau

3 Replies

Sort By:

Rohit Namjoshi

Posted 1 year ago

Not great, ... values = Table[Quantity[loadcase, "DegreesCelsius"], {loadcase, -20, 120, 10}]; temps =. {TogglerBar[Dynamic[temps], values, Appearance -> "Horizontal" -> {Automatic, 5}], Dynamic@temps}

POSTED BY: Rohit Namjoshi

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 1 year ago

Gerald, a very simple way of doing so would be to place the whole `Manipulate[]` in a new extra notebook, i.e.: CreateDocument[Manipulate[t, Control[{{ lt, -20, "Start Temperature", ImageSize -> Tiny}, -40.0, 240.0, 10.0, ImageSize -> Tiny, Appearance -> "Labeled", ControlPlacement -> Left}], Control[{{ incr, 10, "Temp Increment", ImageSize -> Tiny}, 1, 50.0, 10.0, ImageSize -> Tiny, Appearance -> "Labeled", ControlPlacement -> Left}], Control[{{ ut, 120, "End Temp.", ImageSize -> Tiny}, -40.0, 240.0, 10.0, ImageSize -> Tiny, Appearance -> "Labeled", ControlPlacement -> Left}], Control@{{t, {}, ""},Table[loadcase -> ToString[loadcase] <> " deg C", {loadcase, lt, ut, incr}], ControlType -> CheckboxBar, Appearance -> ("Vertical"), ControlPlacement -> Bottom, Appearance -> "Labeled"}], WindowTitle -> "Please Input Values", WindowSize -> All]; Does that fit your needs? Regards -- Henrik

Gerald,

a very simple way of doing so would be to place the whole Manipulate[] in a new extra notebook, i.e.:

CreateDocument[Manipulate[t,
   Control[{{ lt, -20, "Start Temperature", ImageSize -> Tiny}, -40.0,
      240.0, 10.0, ImageSize -> Tiny, Appearance -> "Labeled", 
     ControlPlacement -> Left}],
   Control[{{ incr, 10, "Temp Increment", ImageSize -> Tiny}, 1, 50.0,
      10.0, ImageSize -> Tiny, Appearance -> "Labeled", 
     ControlPlacement -> Left}],
   Control[{{ ut, 120, "End Temp.", ImageSize -> Tiny}, -40.0, 240.0, 
     10.0, ImageSize -> Tiny, Appearance -> "Labeled", 
     ControlPlacement -> Left}],
   Control@{{t, {}, ""},Table[loadcase -> ToString[loadcase] <> " deg C", {loadcase, lt, ut, 
       incr}], ControlType -> CheckboxBar, Appearance -> ("Vertical"),
      ControlPlacement -> Bottom, Appearance -> "Labeled"}], 
    WindowTitle -> "Please Input Values", WindowSize -> All];

Does that fit your needs? Regards -- Henrik

POSTED BY: Henrik Schachner

Gerald Proteau

Posted 1 year ago

I don't think this is what I'm looking for but thanks for the suggestion. Looking at other options I'm thinking a PopupMenu might work but can more than one selection be made into a pick list from the list displayed?

POSTED BY: Gerald Proteau

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback