proc openSupportWebsite {dongleIdComboBox} {
set dongleId [$dongleIdComboBox getCurrentValue]
GuidoExecServer "secOpenGemcomSupportWebsite" [subst {dongleId = "$dongleId"} ]
}
proc emailLicenceRequest {dongleIdComboBox} {
set dongleId [$dongleIdComboBox getCurrentValue]
GuidoExecServer "secEmailLicenceRequest" [subst {dongleId = "$dongleId"} ]
}
proc translateInstructionsVal { } {
global selfServiceLicenseInstructions
set buffer [GuidoExecServer "FioMapFile" {logicalFile = "SSI_ETC:"} ]
set etcPath "[GuidoGetParamBufferValue $buffer physicalFile]"
$selfServiceLicenseInstructions setCurrentValue [GuidoMessage translate SELF_SERVICE_LICENSING_STARTUP_LABEL $etcPath]
}
GuidoForm frm00656 {
-default_buttons
-label "Update licence"
-layout BoxLayout Y_AXIS
-tip 00656_TIP_0
-height 26
-width 50
GuidoPanel frm00656_10 {
-layout CentreLineLayout
GuidoPanel frm00656_6 {
-layout CentreLineLayout
GuidoPanel labelPanel {
-layout BoxLayout Y_AXIS
GuidoFiller filler1 {
-height 0.1
}
GuidoLabel licenseTypeLabel {
-label "Licence Type"
}
}
GuidoButtonGroupPanel type {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm00656_3 {
-caption none
-selected_value none
}
GuidoRadioButton frm00656_5 {
-caption local
-selected_value local
}
GuidoRadioButton frm00656_4 {
-caption network
-selected_value network
}
}
}
GuidoPanel informationPanel {
-layout BoxLayout Y_AXIS
GuidoFiller frm00656_11 {
-height 0.1
}
GuidoLabel frm00656_8 {
-label LICENSING_NONE_DESCRIPTION
}
GuidoFiller frm00656_11 {
-height 0.3
}
GuidoLabel frm00656_9 {
-label LICENSING_LOCAL_DESCRIPTION
}
GuidoFiller frm00656_11 {
-height 0.3
}
GuidoLabel frm00656_12 {
-label LICENSING_NETWORK_DESCRIPTION
}
}
}
GuidoPanel SelfServiveLicensePanel {
-layout BoxLayout Y_AXIS
GuidoFiller filler2 {
-height 0.3
}
GuidoPanel checkBoxPanel {
-layout CentreLineLayout
GuidoCheckBox selfServiceLicenseCheckBox {
-selected_value Y
-unselected_value N
-default false
}
GuidoLabel selfServiceLicenseLabel {
-label SELF_SERVICE_LICENSING_SUPPORT_REQUEST
}
}
GuidoPanel donglePanel {
-layout Flowlayout Left
GuidoLabel dongleIdLabel {
-dependency {"[$selfServiceLicenseCheckBox getCurrentValue]" == "Y"}
-label SELF_SERVICE_LICENSING_DONGLEIDCOMBO
}
GuidoPanel comboPanel {
-layout Flowlayout Left
GuidoComboBox dongleIdCombo {
-dependency {"[$selfServiceLicenseCheckBox getCurrentValue]" == "Y"}
-display_length 10
-format none
-max_length 10
-null false
-tip SELF_SERVICE_LICENSING_DONGLEIDCOMBO_TIP
}
GuidoButton byEmailButton {
-dependency {"[$selfServiceLicenseCheckBox getCurrentValue]" == "Y"}
-caption "By Email"
-action valueChanged {[emailLicenceRequest $dongleIdCombo]}
-tip SELF_SERVICE_LICENSING_BY_INTERNET_EMAIL_TIP
}
GuidoButton byInternetButton {
-dependency {"[$selfServiceLicenseCheckBox getCurrentValue]" == "Y"}
-caption "Using the Internet"
-action valueChanged {[openSupportWebsite $dongleIdCombo]}
-tip SELF_SERVICE_LICENSING_BY_INTERNET_BUTTON_TIP
}
}
}
}
GuidoPanel selfServiceLicenseInstructionsPanel {
-layout CentreLineLayout
GuidoTextArea selfServiceLicenseInstructions {
-linewrap true
-wrap_style_word true
-editable false
-width 50
-height 18
-dependency {"[$selfServiceLicenseCheckBox getCurrentValue]" == "Y"}
-default SELF_SERVICE_LICENSING_STARTUP_LABEL
-action initial {[translateInstructionsVal]}
}
}
}
