How to put Magnification control in docked cell

Question

I have made a handy toolbar that provides access to menu items that are not visible when I F12 a workbook.

I would like to add the following function to a button in the toolbar:

magnification = 1.0;
SetOptions[SelectedNotebook[], 
Magnification :> Dynamic[magnification] ];
Slider[Dynamic[magnification], {0.8, 2, .01}]

which gives me a Slider with more control over the notebooks magnification.

However, although I can put the Slider in a Button, when I add the Button to the row of docked cells, it won't do anything. Can this be made to work?

Kuba · Accepted Answer · 2016-02-20T07:53:35.043

9

Basing only on your description I can't really diagnose the problem. Let me put here something what does what you need but with a slightly different approach:

You don't have to set Magnification to be dynamic and dependent of any symbols, let the Slider itself to change the Magnification:

SetOptions[
 EvaluationNotebook[],
 DockedCells -> {
   ToBoxes @ DynamicModule[{x}, 
     Slider[Dynamic[ x, 
         (x = CurrentValue[EvaluationNotebook[], Magnification] = #) &
         ], {.8, 2, .01}]
     ]
   }
 ]

edited Feb 20 '16 at 07:53

answered Feb 19 '16 at 21:36

Kuba

136,707
13
279
740

Nice! I'll use this. It's not at all what I would have done, so I'll use it to figure out what I didn't know. – George Wolfe Feb 19 '16 at 22:19
@GeorgeWolfe Feel free to ask if anything is not clear. – Kuba Feb 20 '16 at 06:46
1

related – Simon Woods Feb 20 '16 at 09:21
@SimonWoods at least closely :) – Kuba Feb 20 '16 at 09:22
@f_s and which notebook's magnification do you want to control? – Kuba Dec 21 '21 at 08:33

How to put Magnification control in docked cell

1 Answers1

Linked