OZ++ Sample: GlyphCursor

/******************************************************************************  *  * Copyright (c) 2014 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED.  *  * Redistribution and use in source and binary forms, with or without  * modification, are permitted provided that the following conditions  * are met:  * 1. Redistributions of source code must retain the above copyright  *    notice, this list of conditions, and the following disclaimer.  *  * 2. The name of the author may not be used to endorse or promote products  *    derived from this software without specific prior written permission.  *  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  *  *  *  GlyphCursor.cpp  *  *****************************************************************************/ #include <oz++/motif/ApplicationView.h> #include <oz++/motif/GlyphCursor.h> #include <oz++/motif/FontCursor.h> #include <oz++/motif/Color.h> namespace OZ { class MainView :public ApplicationView { private:   SmartPtr<GlyphCursor> cursor;   SmartPtr<FontStruct>  sfont;   SmartPtr<FontStruct>  mfont;   void    draw(Event& event)   {     Display* display = getDisplay();     if(cursor == NULL) {       Color   color(display);       XColor  fg, bg;       color.allocNamedColor("red",  &fg);       color.allocNamedColor("green", &bg);       sfont = new FontStruct(display,             "-adobe-courier-medium-r-normal--20-*-*");        mfont = new FontStruct(display,              "-adobe-courier-bold-r-normal--20-*-*");        cursor = new GlyphCursor(display,                    sfont->getFont(), mfont->getFont(),                    'X', 'X', &fg, &bg);       XDefineCursor(display, getWindow(), cursor->get());     }   } public:   MainView(Application& applet, const char* name, Args& args)   :ApplicationView(applet, name, args)   {     cursor = NULL;     addEventHandler(ExposureMask, this,           (Handler)&MainView::draw, (void*)"Hello");    }   ~MainView()   {   } }; } // int main(int argc, char** argv) {   try {     const char*  appclass = argv[0];     Application applet(appclass, argc, argv);     Args args;     args.set(XmNgeometry, "300x200");     MainView view(applet, argv[0], args);     view.realize();     applet.run();   } catch (Exception& ex) {     caught(ex);   }   return 0; }