|
@@ -1174,6 +1174,8 @@ updateProtocolsList
|
|
|
!
|
|
!
|
|
|
|
|
|
|
|
updateSourceAndButtons
|
|
updateSourceAndButtons
|
|
|
|
|
+ | currentProtocol |
|
|
|
|
|
+
|
|
|
self disableSaveButton.
|
|
self disableSaveButton.
|
|
|
classButtons contents: [:html |
|
|
classButtons contents: [:html |
|
|
|
html button
|
|
html button
|
|
@@ -1206,9 +1208,12 @@ updateSourceAndButtons
|
|
|
html option
|
|
html option
|
|
|
class: 'important';
|
|
class: 'important';
|
|
|
with: 'New...'.
|
|
with: 'New...'.
|
|
|
|
|
+ currentProtocol := selectedProtocol.
|
|
|
|
|
+ (currentProtocol isNil and: [ selectedMethod notNil ])
|
|
|
|
|
+ ifTrue: [ currentProtocol := selectedMethod category].
|
|
|
self protocols do: [:each |
|
|
self protocols do: [:each |
|
|
|
option := html option with: each.
|
|
option := html option with: each.
|
|
|
- selectedProtocol = each ifTrue: [ option at: 'selected' put: 'selected' ] ]].
|
|
|
|
|
|
|
+ currentProtocol = each ifTrue: [ option at: 'selected' put: 'selected' ] ]].
|
|
|
selectedMethod isNil ifFalse: [
|
|
selectedMethod isNil ifFalse: [
|
|
|
referencesSelect := html select.
|
|
referencesSelect := html select.
|
|
|
referencesSelect
|
|
referencesSelect
|
