Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

Re: 2 gifs side by side -- with hyperlinks

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36490] Re: [mg36469] 2 gifs side by side -- with hyperlinks
  • From: "P.J. Hinton" <paulh at wolfram.com>
  • Date: Mon, 9 Sep 2002 00:29:29 -0400 (EDT)
  • Organization: "Wolfram Research, Inc."
  • Sender: owner-wri-mathgroup at wolfram.com

On Sun, 8 Sep 2002, Murray Eisenberg wrote:

> (1) Is there a way in Mathematica 4.2 to put two separate gifs into a
> single, cell side by side (with some intervening space), without
> having to combine them in some graphics program first?
>
> In particular, I'd like to do that within a text cell.
>
> Even in a new Input cell, if I first create a GridBox (via Inut>Create
> Table/Matrix/Palette) and then try to insert the first gif (via
> Edit>Insert Object>Create from File ....), Mathematica promptly
> crashes.    (Mathematica 4.2 under Windows 2000.)

You could do something like this:

grlist = Map[Import[#, "GIF"]&, {<first file>, <second file>}]

celist = Map[Cell[GraphicsData["PostScript", DisplayString[#]]]&, grlist]

CellPrint[Cell[BoxData[GridBox[{celist}]], "Text"]]

This embeds the PostScript versions of these graphics each as inline cells
in a GridBox[] structure.

> (2) Is there a way to cause a gif imported into a Mathematica 4.2
> notebook to become a hyperlink -- so that when the user clicks on the
> gif the hyperlink's target is summoned?

Again, we embed the PostScript graphic within an inline cell.  Here is a
function that does what you describe:

createGIFHyperlink[gifImage_String, url_String] :=
  NotebookWrite[EvaluationNotebook[],
    Cell[BoxData[
        ButtonBox[
          Cell[GraphicsData["PostScript",
              DisplayString[Import[gifImage, "GIF"]]]],
          ButtonStyle -> "Hyperlink", ButtonData :> {URL[url], None}]],
      "Text"]]

-- 
P.J. Hinton
User Interface Programmer                         paulh at wolfram.com
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.



  • Prev by Date: Getting hierarchies of partitions (continue)
  • Next by Date: RE: Re: word processing with mathematica
  • Previous by thread: 2 gifs side by side -- with hyperlinks
  • Next by thread: Re: 2 gifs side by side -- with hyperlinks