equal
deleted
inserted
replaced
6386 url := Dialog |
6386 url := Dialog |
6387 request:(resources string:'Load Image from URL') |
6387 request:(resources string:'Load Image from URL') |
6388 initialAnswer:LastURL. |
6388 initialAnswer:LastURL. |
6389 |
6389 |
6390 url notEmptyOrNil ifTrue:[ |
6390 url notEmptyOrNil ifTrue:[ |
|
6391 HTTPInterface isNil ifTrue:[ Smalltalk loadPackage:'stx:goodies/communication']. |
|
6392 |
6391 LastURL := url. |
6393 LastURL := url. |
6392 tempFile := FileStream newTemporary close fileName. |
6394 tempFile := FileStream newTemporary close fileName. |
6393 self withWaitCursorDo:[ |
6395 self withWaitCursorDo:[ |
6394 response := HTTPInterface get:url destinationFile:tempFile. |
6396 response := HTTPInterface get:url destinationFile:tempFile. |
6395 ]. |
6397 ]. |