Squeak-dev March 2018

squeak-dev@lists.squeakfoundation.org

53 participants
146 discussions

The Trunk: Morphic-mt.1406.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1406.mcz ==================== Summary ==================== Name: Morphic-mt.1406 Author: mt Time: 29 March 2018, 2:40:42.042957 pm UUID: 961c7e17-5ab5-844d-91b3-c8ccfbe623fd Ancestors: Morphic-mt.1405 Deprecate *Colorized: messages because of the newer Form >> #dyed: message. =============== Diff against Morphic-mt.1405 =============== Item was removed: - ----- Method: MenuIcons class>>checkBoxOffColorized: (in category 'accessing - icons') ----- - checkBoxOffColorized: aColor - - ^ self checkBoxOff - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>checkBoxOnColorized: (in category 'accessing - icons') ----- - checkBoxOnColorized: aColor - - ^ self checkBoxOn - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>checkBoxPressedColorized: (in category 'accessing - icons') ----- - checkBoxPressedColorized: aColor - - ^ self checkBoxPressed - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>fullscreenWireframeIconColorized: (in category 'accessing - icons') ----- - fullscreenWireframeIconColorized: aColor - - ^ self fullscreenWireframeIcon - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonOffColorized: (in category 'accessing - icons') ----- - radioButtonOffColorized: aColor - - ^ self radioButtonOff - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonOnColorized: (in category 'accessing - icons') ----- - radioButtonOnColorized: aColor - - ^ self radioButtonOn - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonPressedColorized: (in category 'accessing - icons') ----- - radioButtonPressedColorized: aColor - - ^ self radioButtonPressed - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>squeakLogoIconColorized: (in category 'accessing - icons') ----- - squeakLogoIconColorized: aColor - - ^ self squeakLogoIcon - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>subMenuMarkerColorized: (in category 'accessing - icons') ----- - subMenuMarkerColorized: aColor - - ^ self subMenuMarker - collectColors: [:c | aColor alpha: c alpha]!

1 0

The Trunk: 60Deprecated-mt.12.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.12.mcz ==================== Summary ==================== Name: 60Deprecated-mt.12 Author: mt Time: 29 March 2018, 2:38:37.422957 pm UUID: 90b410a3-4c46-894a-b994-967911ba8abd Ancestors: 60Deprecated-eem.11 Deprecate *Colorized: messages because of the newer Form >> #dyed: message. =============== Diff against 60Deprecated-eem.11 =============== Item was added: + ----- Method: MenuIcons class>>checkBoxOffColorized: (in category '*60Deprecated') ----- + checkBoxOffColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxOff dyed: aColor! Item was added: + ----- Method: MenuIcons class>>checkBoxOnColorized: (in category '*60Deprecated') ----- + checkBoxOnColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxOn dyed: aColor! Item was added: + ----- Method: MenuIcons class>>checkBoxPressedColorized: (in category '*60Deprecated') ----- + checkBoxPressedColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxPressed dyed: aColor! Item was added: + ----- Method: MenuIcons class>>fullscreenWireframeIconColorized: (in category '*60Deprecated') ----- + fullscreenWireframeIconColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self fullscreenWireframeIcon dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonOffColorized: (in category '*60Deprecated') ----- + radioButtonOffColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonOff dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonOnColorized: (in category '*60Deprecated') ----- + radioButtonOnColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonOn dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonPressedColorized: (in category '*60Deprecated') ----- + radioButtonPressedColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonPressed dyed: aColor! Item was added: + ----- Method: MenuIcons class>>squeakLogoIconColorized: (in category '*60Deprecated') ----- + squeakLogoIconColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self squeakLogoIcon dyed: aColor! Item was added: + ----- Method: MenuIcons class>>subMenuMarkerColorized: (in category '*60Deprecated') ----- + subMenuMarkerColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self subMenuMarker dyed: aColor!

1 0

The Trunk: Morphic-mt.1405.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1405.mcz ==================== Summary ==================== Name: Morphic-mt.1405 Author: mt Time: 29 March 2018, 2:34:02.381957 pm UUID: afa48519-1b10-634d-8ffc-40ae0f4db608 Ancestors: Morphic-mt.1404 Make use of new #dyed: message in forms to dye forms. =============== Diff against Morphic-mt.1404 =============== Item was changed: ----- Method: MenuItemMorph class>>defaultSubMenuMarker (in category 'defaults') ----- defaultSubMenuMarker + ^ MenuIcons subMenuMarker dyed: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).! - ^ MenuIcons subMenuMarkerColorized: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).! Item was changed: ----- Method: MenuItemMorph>>offImage (in category 'private') ----- offImage "Return the form to be used for indicating an '<off>' marker" + ^ MenuIcons checkBoxOff dyed: (self userInterfaceTheme textColor ifNil: [Color black])! - ^ MenuIcons checkBoxOffColorized: (self userInterfaceTheme textColor ifNil: [Color black])! Item was changed: ----- Method: MenuItemMorph>>onImage (in category 'private') ----- onImage "Return the form to be used for indicating an '<on>' marker" + ^ MenuIcons checkBoxOn dyed: (self userInterfaceTheme textColor ifNil: [Color black])! - ^ MenuIcons checkBoxOnColorized: (self userInterfaceTheme textColor ifNil: [Color black])! Item was changed: ----- Method: TheWorldMainDockingBar>>squeakMenuOn: (in category 'construction') ----- squeakMenuOn: aDockingBar "Private - fill the given docking bar" aDockingBar addItem: [ :item | item contents: ''; + icon: (MenuIcons squeakLogoIcon dyed: - icon: (MenuIcons squeakLogoIconColorized: (self userInterfaceTheme logoColor ifNil: [Color black])); + selectedIcon: (MenuIcons squeakLogoIcon dyed: - selectedIcon: (MenuIcons squeakLogoIconColorized: (self userInterfaceTheme selectionLogoColor ifNil: [Color white])); addSubMenu: [ :menu | self aboutMenuItemOn: menu; updateMenuItemOn: menu. menu addLine. self saveMenuItemOn: menu; saveAsMenuItemOn: menu; saveAsNewVersionMenuItemOn: menu. menu addLine. self saveAndQuitMenuItemOn: menu; quitMenuItemOn: menu ] ]! Item was changed: ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- toggleFullScreenOn: aDockingBar | toggleMorph onIcon offIcon box bgColor | + offIcon := MenuIcons fullscreenWireframeIcon dyed: - offIcon := MenuIcons fullscreenWireframeIconColorized: (self userInterfaceTheme logoColor ifNil: [Color black]). + onIcon := MenuIcons fullscreenWireframeIcon dyed: - onIcon := MenuIcons fullscreenWireframeIconColorized: (self userInterfaceTheme selectionLogoColor ifNil: [Color white]). bgColor := (UserInterfaceTheme current get: #selectionColor for: #DockingBarItemMorph) ifNil: [Color blue]. toggleMorph := offIcon asMorph. box := Morph new color: Color transparent; hResizing: #shrinkWrap; vResizing: #spaceFill; listCentering: #center; width: toggleMorph width; changeTableLayout; borderWidth: 1; borderColor: Color transparent; balloonText: 'toggle full screen mode' translated; addMorph: toggleMorph. toggleMorph setToAdhereToEdge: #rightCenter. box on: #mouseUp send: #value to: [ DisplayScreen toggleFullScreen. "toggleMorph image: MenuIcons smallFullscreenOffIcon" ] ; on: #mouseEnter send: #value to: [ toggleMorph image: onIcon. box color: bgColor; borderColor: bgColor]; on: #mouseLeave send: #value to: [ toggleMorph image: offIcon. box color: Color transparent; borderColor: Color transparent]. aDockingBar addMorphBack: box! Item was changed: ----- Method: ThreePhaseButtonMorph class>>checkBox (in category 'instance creation') ----- checkBox "Answer a button pre-initialized with checkbox images." | f | ^self new + onImage: (f := MenuIcons checkBoxOn dyed: Color red); + pressedImage: (MenuIcons checkBoxPressed dyed: Color black); + offImage: (MenuIcons checkBoxOff dyed: Color black); - onImage: (f := MenuIcons checkBoxOnColorized: Color red); - pressedImage: (MenuIcons checkBoxPressedColorized: Color black); - offImage: (MenuIcons checkBoxOffColorized: Color black); extent: f extent + (2@0); setDefaultParameters; yourself ! Item was changed: ----- Method: ThreePhaseButtonMorph class>>radioButton (in category 'instance creation') ----- radioButton "Answer a button pre-initialized with radiobutton images." | f | ^self new + onImage: (f := MenuIcons radioButtonOn dyed: Color black); + pressedImage: (MenuIcons radioButtonPressed dyed: Color black); + offImage: (MenuIcons radioButtonOff dyed: Color black); - onImage: (f := MenuIcons radioButtonOnColorized: Color black); - pressedImage: (MenuIcons radioButtonPressedColorized: Color black); - offImage: (MenuIcons radioButtonOffColorized: Color black); extent: f extent + (2@0); setDefaultParameters; yourself !

1 0

The Trunk: Graphics-mt.395.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.395.mcz ==================== Summary ==================== Name: Graphics-mt.395 Author: mt Time: 29 March 2018, 2:31:08.332957 pm UUID: 0f0f6d41-5000-fe41-9970-5a08bf0f66b1 Ancestors: Graphics-tcj.394 New support message to dye forms. To be used for our mono icons for UI themes. Implementation might be improved in the future to also dye non-mono, rich-color forms. =============== Diff against Graphics-tcj.394 =============== Item was added: + ----- Method: Form>>dyed: (in category 'converting') ----- + dyed: aColor + "Dye this form with the given color. For now, the alpha channel should be sufficient to preserve the meaning of the form." + + ^ self collectColors: [:ea | aColor alpha: ea alpha]!

1 0

Re: [squeak-dev] kudos to Eliot
by Bruce O'Neel 29 Mar '18

29 Mar '18

And another huzzah

1 0

The Trunk: Morphic-mt.1404.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1404.mcz ==================== Summary ==================== Name: Morphic-mt.1404 Author: mt Time: 29 March 2018, 10:02:19.017053 am UUID: c6566b82-98cf-d247-9b7a-9792b583499d Ancestors: Morphic-mt.1403 Fix minor regression from last commit. Sorry. =============== Diff against Morphic-mt.1403 =============== Item was changed: ----- Method: ScrollPane>>drawOverlayOn: (in category 'drawing') ----- drawOverlayOn: aCanvas "Draw my border OVER my submorphs because the scrollbars overlap." - self borderStyle width = 0 ifTrue: [^ self]. - self wantsRoundedCorners ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: self borderStyle width color: self borderStyle color] + ifFalse: [aCanvas frameRectangle: self bounds width: self borderStyle width color: self borderStyle color]. + + super drawOverlayOn: aCanvas.! - ifFalse: [aCanvas frameRectangle: self bounds width: self borderStyle width color: self borderStyle color].!

1 0

The Trunk: System-mt.1008.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1008.mcz ==================== Summary ==================== Name: System-mt.1008 Author: mt Time: 29 March 2018, 9:40:40.867053 am UUID: 8ccebea8-0f21-4144-855d-0017623a16d9 Ancestors: System-mt.1007 Support class-comment nagging color in all UI themes. =============== Diff against System-mt.1007 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self dbYellow; set: #errorColor for: #TestRunner to: self dbRed; + set: #passColor for: #TestRunner to: self dbGreen. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self dbRed.! - set: #passColor for: #TestRunner to: self dbGreen.! Item was changed: ----- Method: MonokaiTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self backgroundColor; set: #errorTextColor for: #TestRunner to: self backgroundColor; set: #passTextColor for: #TestRunner to: self backgroundColor. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self grayLight}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self grayLight}.! Item was changed: ----- Method: SolarizedTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self darkBackground; set: #errorTextColor for: #TestRunner to: self darkBackground; set: #passTextColor for: #TestRunner to: self darkBackground. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self darkContentSecondary}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self darkContentSecondary}.! Item was changed: ----- Method: SolarizedTheme class>>addLightToolColors: (in category 'instance creation') ----- addLightToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self lightBackground; set: #errorTextColor for: #TestRunner to: self lightBackground; set: #passTextColor for: #TestRunner to: self lightBackground. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self lightContentSecondary}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self lightContentSecondary}.! Item was changed: ----- Method: SqueakTheme class>>addToolColors: (in category 'instance creation') ----- addToolColors: theme "Tool-specific colors." "SUnit's TestRunner." theme set: #failureColor for: #TestRunner to: Color yellow; set: #errorColor for: #TestRunner to: Color red; set: #passColor for: #TestRunner to: Color green; derive: #failureTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor; derive: #errorTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor; derive: #passTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor. "Monticello Tools." theme set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut}; set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: Color gray}. "set: #rejectedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut}; set: #acceptedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis underlined}; set: #conflictingOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis bold}." "Halos." theme derive: #borderColor for: #HaloMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.8]; derive: #borderColor for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c twiceDarker alpha: 0.75]; + derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08]. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: Color red.! - derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08].!

1 0

The Trunk: Tools-mt.802.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.802.mcz ==================== Summary ==================== Name: Tools-mt.802 Author: mt Time: 29 March 2018, 9:39:05.973053 am UUID: 17d05dbc-cfba-5e40-9f1c-5d9c8e01723d Ancestors: Tools-tcj.801 Pick color for class-comment nagging from UI theme. =============== Diff against Tools-tcj.801 =============== Item was changed: ----- Method: Browser>>noCommentNagString (in category 'class comment pane') ----- noCommentNagString + ^ Text + string: 'THIS CLASS HAS NO COMMENT!!' translated + attribute: (TextColor color: (self userInterfaceTheme noClassCommentColor ifNil: [Color red]))! - ^ Text string: 'THIS CLASS HAS NO COMMENT!!' translated attribute: TextColor red. - !

1 0

The Trunk: Morphic-mt.1403.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1403.mcz ==================== Summary ==================== Name: Morphic-mt.1403 Author: mt Time: 29 March 2018, 9:29:39.408053 am UUID: a71ca488-3caf-e649-bea1-9cd9e0d8d770 Ancestors: Morphic-mt.1402 Minor visual fix regarding the border of scroll panes. =============== Diff against Morphic-mt.1402 =============== Item was added: + ----- Method: ScrollPane>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + + self wantsRoundedCorners + ifTrue: [aCanvas fillRoundRect: self bounds radius: self cornerRadius fillStyle: self fillStyle] + ifFalse: [aCanvas fillRectangle: self bounds fillStyle: self fillStyle].! Item was added: + ----- Method: ScrollPane>>drawOverlayOn: (in category 'drawing') ----- + drawOverlayOn: aCanvas + "Draw my border OVER my submorphs because the scrollbars overlap." + + self borderStyle width = 0 ifTrue: [^ self]. + + self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: self borderStyle width color: self borderStyle color] + ifFalse: [aCanvas frameRectangle: self bounds width: self borderStyle width color: self borderStyle color].!

1 0

The Trunk: WebClient-Core-topa.114.mcz
by commits＠source.squeak.org 28 Mar '18

28 Mar '18

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.114.mcz ==================== Summary ==================== Name: WebClient-Core-topa.114 Author: topa Time: 28 March 2018, 9:49:17.368144 pm UUID: 6f483d27-959e-49ce-8a4b-2e825409953b Ancestors: WebClient-Core-ul.113 Support token-based Bearer/OAuth2 auth. Note: server part is overly simplified and surely needs extensions for proper OAuth2 =============== Diff against WebClient-Core-ul.113 =============== Item was added: + ----- Method: WebAuthRequired>>token: (in category 'initialize') ----- + token: aString + "Use the given token as credentials" + + | params | + params := self isProxyAuth ifTrue:[client proxyParams] ifFalse:[client authParams]. + + (params at: #token ifAbsent: [nil]) = aString + ifFalse: + [params at: #token put: aString. + self resume: true] + ! Item was changed: ----- Method: WebClient>>authDispatch:from:header:params: (in category 'authentication') ----- authDispatch: request from: response header: authHeader params: params "Dispatch on an authentication method. Subclasses can extend this method to support more auth methods." (authHeader copyUpTo: Character space) caseOf: { ['Basic'] -> [self basicAuth: request from: response header: authHeader params: params]. ['Digest'] -> [self digestAuth: request from: response header: authHeader params: params]. + ['Bearer'] -> [self bearerAuth: request from: response + header: authHeader params: params]. } otherwise:["ignore"]. ! Item was added: + ----- Method: WebClient>>bearerAuth:from:header:params: (in category 'authentication') ----- + bearerAuth: request from: response header: header params: params + "Provide token-based OAuth2 authentication for the request" + + | token args | + authParams at: #authMethod ifPresent:[:method| ^self]. "do not retry repeatedly" + authParams at: #authMethod put: 'Bearer'. + + args := WebUtils parseAuthParams: header. + args at: 'realm' ifPresent:[:realm| authParams at: #authRealm put: realm]. + + token := (params at: #token ifAbsent:[nil]) ifNil:[^self]. + authParams at: #authResponse put: token. + ! Item was added: + ----- Method: WebClient>>token (in category 'accessing') ----- + token + "The token for remote OAuth2 authentication" + + ^authParams at: #token ifAbsent:[nil]! Item was added: + ----- Method: WebClient>>token: (in category 'accessing') ----- + token: aString + "The token for remote OAuth2 authentication" + + authParams at: #token put: aString! Item was added: + ----- Method: WebServer>>addToken:toRealm: (in category 'authentication') ----- + addToken: aString toRealm: realm + | hash | + hash := WebUtils md5Digest: aString, ':', realm. + self passwordHashAt: (aString,':',realm) put: hash! Item was changed: ----- Method: WebServer>>authAccept:request:realm:header: (in category 'authentication') ----- authAccept: method request: request realm: realm header: authHeader "Performs the requested authentication method. Returns true if successfully authenticated. Subclasses can extend this method to support more auth methods." ^method asLowercase caseOf: { ['basic'] -> [self basicAuth: request realm: realm header: authHeader]. ['digest'] -> [self digestAuth: request realm: realm header: authHeader]. + ['bearer'] -> [self bearerAuth: request realm: realm header: authHeader]. } otherwise:[false]. ! Item was changed: ----- Method: WebServer>>authHeader:request:realm: (in category 'authentication') ----- authHeader: method request: request realm: realm "Answer the authentication header for the given method. Subclasses can extend this method to support more auth methods." ^method asLowercase caseOf: { ['basic'] -> ['Basic realm="', realm,'"']. ['digest'] -> ['Digest realm="', realm,'", nonce="', self newNonce,'", qop="auth"']. + ['bearer'] -> ['Bearer realm="', realm,'"']. } otherwise:[nil]. ! Item was added: + ----- Method: WebServer>>bearerAuth:realm:header: (in category 'authentication') ----- + bearerAuth: request realm: realm header: authHeader + "Perform Bearer-based OAuth2 auth for the given request" + + | data hash | + data := authHeader copyAfter: $ . + hash := WebUtils md5Digest: data, ':', realm. + ^(self passwordHashAt: data, ':', realm) = hash + !

1 0

← Newer
1
2
3
4
5
6
7
...
15
Older →

Jump to page: