equal
deleted
inserted
replaced
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 LastURL := url. |
6391 LastURL := url. |
6392 tempFile := Filename newTemporary. |
6392 tempFile := FileStream newTemporary close fileName. |
6393 self withWaitCursorDo:[ |
6393 self withWaitCursorDo:[ |
6394 response := HTTPInterface get:url destinationFile:tempFile. |
6394 response := HTTPInterface get:url destinationFile:tempFile. |
6395 ]. |
6395 ]. |
6396 response isErrorResponse ifTrue:[ |
6396 response isErrorResponse ifTrue:[ |
6397 Dialog warn:(resources string:'Could not load image ("%1")' with:response responseText). |
6397 Dialog warn:(resources string:'Could not load image ("%1")' with:response responseText). |