{import * from CURL.GUI.STANDARD}

{let public constant direction-pmd:PropertyMetaData =
    {OptionMetaData
        "direction",
        {EnumerationEditor
            {StringArray "vertical", "horizontal"}
        },
        help-text =
            {message
                Specifies whether a Scrollbar stretches out
                vertically or horizontally.
            }
    }
}

{define-class public DesignTimeScrollbar {inherits DesignTimeGraphic}

  {constructor public {default}
    {construct-super
        {ObjectMetaData
            {MetaDataCategory
                name = "General",
                design-name-pmd,
                direction-pmd
            },
            standard-geometry-meta-data-category,
            {MetaDataCategory
                name = "Colors",
                color-pmd,
                control-color-pmd,
                background-pmd
            },
            standard-border-meta-data-category,
            {EventHandlerCategory
                {EventHandlerMetaData "Adjustment"}
            },
            default-selected-property = "design-name",
            default-selected-event = "Adjustment"
        }
    }
  }

  {getter public open {initial-properties}:{Array-of PropertyDescriptor}
    {return
        {new {Array-of PropertyDescriptor},
            {PropertyDescriptor direction-pmd, "\"horizontal\""}
        }
    }
  }

  {getter public {runtime-class-name}:String
    {return "Scrollbar"}
  }

  {method protected {new-object element:LayoutElement}:GraphicOptions
    {return {Scrollbar}}
  }

  {getter public {palette-tab-name}:String
    {return "Controls"}
  }

  {getter protected {palette-graphic}:Graphic
    {return 
        {image
            blocking? = true,
            source = {url "images/scrollbar-icon.gif"}
        }
    }
  }
}

{register-palette-item DesignTimeScrollbar}

{getter public {runtime-class-name}:String
  {return "submit-button"}
}

{getter public {design-time-class-name}:String
  {return "CommandButton"}
}

{getter public {class-name-for-display}:String
  {return "Submit Button"}
}

{curl 8.0 package}
{package COM.WIDGETS.PROGRESS, version = "1.0"}

{import * from CURL.GUI.STANDARD}

{define-class public DocProgressBar {inherits Fill}

  || This field holds a value from 0 to 1, representing
  || the amount of progress to be displayed.
  field private _progress:double = 0.0
  
  || This getter fetches the current progress value.
  {getter public {progress}:double
    {return self._progress}
  }

  || This setter changes the current progress value,
  || ensuring that it is in the proper range, and
  || signals that a a redraw is necessary.
  {setter public {progress new-value:double}:void
    set self._progress = {max 0.0, {min 1.0, new-value}}
    {self.request-draw}
  }
  
  {constructor public {default ...}
    {construct-super ...}
  }
  
  {method public {draw r:Renderer2d}:void
    let bounds:GRect = {self.layout.get-bounds}
    let width:Distance = self._progress * bounds.width
    {r.render-rectangle
        -bounds.lextent,
        -bounds.ascent,
        width,
        bounds.height,
        fill-pattern = self.color
    }
  }
  
}

{import * from CURL.GUI.STANDARD}
{import * from COM.WIDGETS.PROGRESS,
    location = "progress/load.scurl"
}

{define-class public final DesignTimeProgressBar 
  {inherits DesignTimeGraphic}

  {constructor public {default}
    {construct-super
        {ObjectMetaData
            default-selected-property = "design-name",
            default-selected-event = "PointerPress",
            {MetaDataCategory
                name = "General",
                design-name-pmd,
                name-pmd
            },
            standard-geometry-meta-data-category,
            {MetaDataCategory
                name = "Colors",
                color-pmd,
                background-pmd
            },
            standard-border-meta-data-category,
            {EventHandlerCategory
                {EventHandlerMetaData "PointerEnter"},
                {EventHandlerMetaData "PointerLeave"},
                {EventHandlerMetaData "PointerPress"},
                {EventHandlerMetaData "PointerRelease"}
            }
        }
    }
  }

  {getter public open {initial-properties}:{Array-of PropertyDescriptor}
    {return
        {new {Array-of PropertyDescriptor},
            {PropertyDescriptor background-pmd, "\"silver\""},
            {PropertyDescriptor color-pmd, "\"blue\""},
            {PropertyDescriptor border-color-pmd, "\"black\""},
            {PropertyDescriptor border-width-pmd, "1pt"},
            {PropertyDescriptor width-pmd, "144pt"},
            {PropertyDescriptor height-pmd, "24pt"}
        }
    }
  }

  {getter public {runtime-class-name}:String
    {return "DocProgressBar"}
  }

  {method protected {new-object element:LayoutElement}:GraphicOptions
    {return {DocProgressBar}}
  }

  {getter public open {palette-tab-name}:String
    {return "Widgets"}
  }

  {getter protected {palette-graphic}:Graphic
    {return 
        {image
            blocking? = true,
            source = {url "images/progressbar-icon.gif"}
        }
    }
  }

  {method public open 
    {collect-import-descriptors layout-file:LayoutToolFile}:void
    {layout-file.add-import-descriptor
        {CopyImportDescriptor
            "COM.WIDGETS.PROGRESS",
            version = "1.0",
            {url "progress/load.scurl"},
            dest-path = "progress-1-0/load.scurl"
        }
    }
  }
}

{register-palette-item DesignTimeProgressBar}

{curl 8.0 package}
{package COM.WIDGETS.PROGRESS-VLE-EXT}

{import * from CURL.GUI.STANDARD}
{import * from COM.CURL.LAYOUT-EDITOR.EDITOR}
{import * from COM.WIDGETS.PROGRESS}

{define-class public final DesignTimeProgressBar 
  {inherits DesignTimeGraphic}

  {constructor public {default}
    {construct-super
        {ObjectMetaData
            default-selected-property = "design-name",
            default-selected-event = "PointerPress",
            {MetaDataCategory
                name = "General",
                design-name-pmd,
                name-pmd
            },
            standard-geometry-meta-data-category,
            {MetaDataCategory
                name = "Colors",
                color-pmd,
                background-pmd
            },
            standard-border-meta-data-category,
            {EventHandlerCategory
                {EventHandlerMetaData "PointerEnter"},
                {EventHandlerMetaData "PointerLeave"},
                {EventHandlerMetaData "PointerPress"},
                {EventHandlerMetaData "PointerRelease"}
            }
        }
    }
  }

  {getter public open {initial-properties}:{Array-of PropertyDescriptor}
    {return
        {new {Array-of PropertyDescriptor},
            {PropertyDescriptor background-pmd, "\"silver\""},
            {PropertyDescriptor color-pmd, "\"blue\""},
            {PropertyDescriptor border-color-pmd, "\"black\""},
            {PropertyDescriptor border-width-pmd, "1pt"},
            {PropertyDescriptor width-pmd, "144pt"},
            {PropertyDescriptor height-pmd, "24pt"}
        }
    }
  }

  {getter public {runtime-class-name}:String
    {return "DocProgressBar"}
  }

  {method protected {new-object element:LayoutElement}:GraphicOptions
    {return {DocProgressBar}}
  }

  {getter public open {palette-tab-name}:String
    {return "Widgets"}
  }

  {getter protected {palette-graphic}:Graphic
    {return 
        {image
            blocking? = true,
            source = {url "images/progressbar-icon.gif"}
        }
    }
  }

  {method public open {collect-import-descriptors layout-file:LayoutToolFile}:void
    {layout-file.add-import-descriptor
        {DelegateImportDescriptor
            "COM.WIDGETS.PROGRESS",
            version = "1.0",
            {url "../manifest.mcurl"}
        }
    }
  }
}

{import * from COM.WIDGETS.PROGRESS-VLE-EXT}

{register-palette-item DesignTimeProgressBar}