Red by Example - an accessible reference by example

index     parse     vid     series     help     about     links     contact     

Red VID Example - Miscellaneous Faces
 

Red [
    needs 'view
    file: %misc-faces.red
    Author: "Mike Parr"
]

button1-down: function [] [          
    mytext/text: "You clicked 1!" 
    print "button1 clicked" 
    progress1/data: 44%  
]
   
button1-over: function [] [
    mytext/text: "You hovered 1!"
]

button2-down: function [] [
    mytext/text: "You clicked 2!" print "hello"
]

button2-over: function [] [
    mytext/text: "You hovered 2!"
    button2/text: "Changed"   
]
 
view [
    size 500x600      ;-- window
    h4 "    Red Vid Examples    "  
    return
    
    mytext: text 300x25 bold orange font-size 12 "Messages"     ;for output
    return

    h4 "Buttons:  "
    button1: button   "Try My Hover"  font [name: "Consolas" size: 15 color: blue]
    on-down [button1-down]
    on-over [button1-over]

    button2: button "Try Me 2"
    on-down [button2-down]
    on-over [button2-over]
    return
   
   
   h4 "progress, slider:"
   return
   
   progress1: progress 33%   []     ;-- initially 33%  
  
   slider2: slider [mytext/text:  face/data] 
 
   slider1:  slider 20x100 50%  [         ;-- vertical, initially at middle
      mytext/text: mold face/data  
      progress1/data: face/data           ;-- set progress to slider
   ]
   return

   h4 "base, image, box, tab-panel" 
   return   
   base ;--defaults only     
   
   hills-image: image 140x140  %country.png  ;-- supply a file name
   
   box blue
   return
   
   tab-panel  250x120 [
       "Tab A" [h4 "In a tab!" button "Click in A" [print "A"] ]      
       "Tab B" [button "Click in B" [print "B"] ]
       "Tab C" [button "Click in C" [print "C"] ]
  ]  
]