home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
gkdemo.zip
/
INSTAL2.GKR
< prev
next >
Wrap
Text File
|
1994-12-08
|
3KB
|
128 lines
#
# GUI-Kit Demo Installation Resource file
#
!include "gui-kit.gkr"
Options {
NumFiles 57
}
ObjectGroup "InstallGroup" {
Object Font "TitleFont" {
PointSize 300 # 30.0pt
}
Object Font "TitleFont-Italic" {
Name "Arial-Italic"
PointSize 300 # 30.0pt
}
Object Font "SubTitleFont" {
PointSize 150 # 15.0pt
}
Object DialogFrame "BkgFrame" {
Frame.Title "GUI-Kit Demo Installation"
Object FormWithEtchedFrame - {
Form.AutoTopToBottom -
Object Label "TitleLabel" {
}
Object FormWithEtchedFrame - {
Form.Label "Installation Options"
Form.AutoLeftToRight -
Window.RightEdge FixedRight
Object Label "DestLabel" {
Text "Destination Directory:"
# 22 chars * 12pt font = 5cm
Window.Width 5cm
}
Object Edit "DestEdit" {
Text "C:\\GKDEMO"
VisibleChars 30
}
# ----------------------------------------
# Install/Cancel
Object PushButton "InstallButton" {
Button.Label "&Install"
Button.Default True
Button.NotifyProc "InstallNotify"
Window.UpperObj "DestEdit"
Window.LeftObj NULL
}
Object PushButton "CancelButton" {
Button.Label "&Cancel"
Button.NotifyProc "CancelNotify"
}
# ----------------------------------------------------------------------
# Progress Form
Object FormWithSunkenFrame - {
Form.AutoTopToBottom -
Window.UpperObj "InstallButton"
Window.LeftObj NULL
Form.RightMargin 1mm
Form.BottomMargin 1mm
Object Label "ProgressLabel" {
Text "Please Enter Installation Parameters."
Window.LeftDistance 1mm
Window.UpperDistance 1mm
Window.Width 19cm
}
Object Window "MeterWindow" {
Window.BackgroundColor "Red"
Window.Width 0
Window.Height 0
}
}
}
}
}
}
# ----------------------------------------------------------------------
ObjectGroup "YesNoDialog" {
Object GfxText "YesNoDialogGfxText" {
WordWrap True
String ""
Geometry "0, 0, 10cm, 0"
}
Object DialogFrame "YesNoDialogFrame" {
Frame.Title ""
Frame.OwnerFrame "BkgFrame"
Object FormWithEtchedFrame - {
Form.AutoLeftToRight -
Object Label "YesNoDialogLabel" {
GfxObj "YesNoDialogGfxText"
}
Object PushButton "YesButton" {
Button.Label "&Yes"
Button.NotifyProc "YesNoButtonNotify"
Window.Width 2cm
Window.LeftDistance 29mm
Window.UpperObj "YesNoDialogLabel"
Window.LeftObj NULL
}
Object PushButton "NoButton" {
Button.Label "&No"
Window.Width 2cm
Button.NotifyProc "YesNoButtonNotify"
}
}
}
}