home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / gkdemo.zip / GKFILES.SET / CLOCK.GKR < prev    next >
Text File  |  1994-12-09  |  1KB  |  72 lines
  1. #
  2. # Clock demo
  3. # 
  4.  
  5. !include "gui-kit.gkr"
  6.  
  7. ObjectGroup "ClockGroup" {
  8.  
  9.     Object GfxContainer "Clock" {
  10.  
  11.         # The following objects are built in increasing Z-order
  12.         Object GfxImage "ClockFace" {
  13.             ImageFile    "aclock.bmp"
  14.         }
  15.  
  16.         # The shape of Hour/MinuteHand is set from
  17.         # within the program
  18.         Object GfxLine    "HourHandShadow" {
  19.             GfxObj.ForegroundColor    "Gray30"
  20.             GfxObj.FillStyle        Solid
  21.         }
  22.  
  23.         Object GfxLine    "HourHand" {
  24.             GfxObj.ForegroundColor    "SeaGreen"
  25.             GfxObj.FillStyle        Solid
  26.         }
  27.  
  28.         Object GfxLine    "HourHandOutline" { 
  29.             GfxObj.LineWidth    3
  30.         }
  31.  
  32.         Object GfxLine    "MinuteHandShadow" {
  33.             GfxObj.ForegroundColor    "Gray30"
  34.             GfxObj.FillStyle        Solid
  35.         }
  36.  
  37.         Object GfxLine    "MinuteHand" { 
  38.             GfxObj.ForegroundColor    "SeaGreen"
  39.             GfxObj.FillStyle        Solid
  40.         }
  41.  
  42.         Object GfxLine    "MinuteHandOutline" {
  43.             GfxObj.LineWidth    3
  44.         }
  45.  
  46.         Object GfxLine    "SecondHand" { 
  47.             GfxObj.LineWidth    3
  48.             GfxObj.ForegroundColor    "Red"
  49.             GfxObj.FillStyle        Solid
  50.         }
  51.  
  52.         Object GfxImage "ClockHandMiddle" {
  53.             ImageFile    "aclkmid.xpm"
  54.             Origin        "190, 181"
  55.             TransparentColor    "Red"
  56.         }
  57.     }
  58.  
  59.     Object Frame "ClockFrame" {
  60.         Title    "Clock Demo"
  61.         Window.BackgroundGfxObj "Clock"
  62.         Window.Width        412
  63.         Window.Height        388
  64.         Window.DoubleBuffer    True
  65.     }
  66.  
  67.     Object Timer "Timer" {
  68.         NotifyProc    "TimerNotify"
  69.         Interval    1000
  70.     }
  71. }
  72.