[Date Index] [Thread Index] [Author Index]

Re: Dynamic palette of open notebooks

• To: mathgroup at smc.vnet.net
• Subject: [mg82928] Re: Dynamic palette of open notebooks
• From: David Reiss <dbreiss at gmail.com>
• Date: Sat, 3 Nov 2007 03:32:44 -0500 (EST)
• References: <fgenb0$fq1$1@smc.vnet.net>

The following is an example of how one might go about doing this.
However, I word of warning: this is a buggy example.  This is not
because of the code itself, but because of a notebook redrawing bug in
Mathematica (at least on the Mac).  The bug is that when one opens and
closes notebooks, the palette that this code has created will update
in a way that obscures the top of its notebook window in a way that
the operating system close button will be "below" an un-deleted
button.

This bug has been duly reported to Wolfram Research and is in the
queue...


I created this bit of code a while back thinking that a generalization
of it might be good as a replacement--or an adjunct--for the All
Notebooks Palette

http://scientificarts.com/worklife/documentation/allnotebookspalette.html

in A WorkLife Framework

http://scientificarts.com/worklife/

Here is the code:

notebooksPalette[] :=
 DynamicModule[{pagewidth, allNotebooks, names, buttons}, pagewidth =
100;
  allNotebooks = Dynamic[Refresh[Notebooks[], UpdateInterval -> 1]];
  names = Dynamic[
    CurrentValue[#, "NotebookFileName"] & /@ First[allNotebooks]];
  buttons =
   Dynamic[Column[
     Button[Style[#[[1]], 10, Bold, Darker@Blue],
SetSelectedNotebook[#[[2]]],
         Appearance -> "Palette", Alignment -> Left,
        ImageSize -> {pagewidth, All}] & /@
      Transpose[{First[names], First[allNotebooks]}]]];
  CreateWindow@
   PaletteNotebook[buttons, PageWidth -> pagewidth, WindowSize ->
All]]


I hope this helps!

And, of course you should download the fully functional trial version
of A WorkLife Framework from

http://scientificarts.com/worklife/trial.html

--David
A WorkLife FrameWork
E x t e n d i n g MATHEMATICA's Reach...
http://scientificarts.com/worklife/




On Nov 2, 4:32 am, buml... at gmail.com wrote:
> Howdy,
>
> I often have several notebooks open full screen on a second monitor.
> It would be nice to have some sort of taskbar in mathematica to switch
> between notebooks at a click (and indeed just see what I have open).
> Now it's easy enough to make a palette of open notebooks, but I can't
> figure out how to make it dynamic (in version 6.0).  That is, if I
> open or close a notebook, the palette changes automatically to reflect
> this.  Can this be done?  Does anybody have any suggestions?