equal
deleted
inserted
replaced
4334 "let user specify borders and add them" |
4334 "let user specify borders and add them" |
4335 |
4335 |
4336 |bindings left top right bottom img| |
4336 |bindings left top right bottom img| |
4337 |
4337 |
4338 bindings := IdentityDictionary new. |
4338 bindings := IdentityDictionary new. |
4339 bindings at:#left put:(left := 0 asValue). |
4339 bindings at:#left put:(left := 1 asValue). |
4340 bindings at:#right put:(right := 0 asValue). |
4340 bindings at:#right put:(right := 1 asValue). |
4341 bindings at:#top put:(top := 0 asValue). |
4341 bindings at:#top put:(top := 1 asValue). |
4342 bindings at:#bottom put:(bottom := 0 asValue). |
4342 bindings at:#bottom put:(bottom := 1 asValue). |
4343 (self openDialogInterface:#ungropDialogSpec withBindings:bindings) |
4343 (self openDialogInterface:#ungropDialogSpec withBindings:bindings) |
4344 ifTrue:[ |
4344 ifTrue:[ |
4345 left := left value. |
4345 left := left value. |
4346 right := right value. |
4346 right := right value. |
4347 top := top value. |
4347 top := top value. |