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 instructions
global multipleDongles
set buffer [GuidoExecServer "FioMapFile" {logicalFile = "SSI_ETC:"} ]
set etcPath "[GuidoGetParamBufferValue $buffer physicalFile]"
if { [$multipleDongles getCurrentValue] == "Y"} {
set translated_val [GuidoMessage translate SELF_SERVICE_LICENSING_MULTIPLE_LABEL $etcPath]
} else {
set translated_val [GuidoMessage translate SELF_SERVICE_LICENSING_SINGLE_LABEL $etcPath]
}
$instructions setCurrentValue $translated_val
}
GuidoForm SelfServiceLicensingForm {
-label "Request licence"
-layout BoxLayout Y_AXIS
-height 22
-width 54
GuidoPanel panel1 {
-layout BoxLayout Y_AXIS
GuidoTextArea instructions {
-linewrap true
-wrap_style_word true
-editable false
-width 54
-height 18
-default SELF_SERVICE_LICENSING_SINGLE_LABEL
-action initial {[translateInstructionsVal]}
}
}
GuidoPanel panel2 {
-layout FlowLayout Left
GuidoComboBox dongleIdCombo {
-display_length 10
-format none
-label SELF_SERVICE_LICENSING_DONGLEIDCOMBO
-max_length 10
-null false
-tip SELF_SERVICE_LICENSING_DONGLEIDCOMBO_TIP
}
GuidoCheckBox multipleDongles {
-default false
-visible false
-selected_value Y
-unselected_value N
-action valueChanged {[translateInstructionsVal]}
}
}
GuidoPanel buttonsPanel {
-layout BoxLayout X_AXIS
GuidoPanel helpButtonPanel {
-layout Flowlayout Left
-alignmentX left
GuidoButton helpButton {
-legacy_button
-selected_value help
-icon "icons/16/help.png"
}
}
GuidoPanel buttonPanel {
-layout Flowlayout Right
-alignmentX right
GuidoButton byEmailButton {
-caption "By Email"
-action valueChanged {[emailLicenceRequest $dongleIdCombo]}
-tip SELF_SERVICE_LICENSING_BY_INTERNET_EMAIL_TIP
}
GuidoButton byInternetButton {
-caption "Using the Internet"
-action valueChanged {[openSupportWebsite $dongleIdCombo]}
-tip SELF_SERVICE_LICENSING_BY_INTERNET_BUTTON_TIP
}
GuidoButton applyButton {
-legacy_button
-selected_value ok
-icon "icons/16/activate.png"
-caption "Read licence file"
-display_length 12
-tip SELF_SERVICE_LICENSING_READ_LICENCE_BUTTON_TIP
}
GuidoButton cancelButton {
-legacy_button
-selected_value cancel
-icon "icons/cancel.png"
-caption "Cancel"
-display_length 8
}
}
}
}
