@@ -1226,28 +1226,42 @@ downloadAs attrs { url, filename, label } =
12261226 (Internal.Unkeyed [ label ])
12271227
12281228
1229+
1230+{- NEARBYS -}
1231+
1232+
1233+createNearby : Internal.Location -> Element msg -> Attribute msg
1234+createNearby loc element =
1235+ case element of
1236+ Internl.Empty ->
1237+ Internal.NoAttribute
1238+
1239+ _ ->
1240+ Internal.Nearby loc element
1241+
1242+
12291243{-| -}
12301244below : Element msg -> Attribute msg
12311245below element =
1232− Internal.Nearby Internal.Below element
1246+ createNearby Internal.Below element
12331247
12341248
12351249{-| -}
12361250above : Element msg -> Attribute msg
12371251above element =
1238− Internal.Nearby Internal.Above element
1252+ createNearby Internal.Above element
12391253
12401254
12411255{-| -}
12421256onRight : Element msg -> Attribute msg
12431257onRight element =
1244− Internal.Nearby Internal.OnRight element
1258+ createNearby Internal.OnRight element
12451259
12461260
12471261{-| -}
12481262onLeft : Element msg -> Attribute msg
12491263onLeft element =
1250− Internal.Nearby Internal.OnLeft element
1264+ createNearby Internal.OnLeft element
12511265
12521266
12531267{-| This will place an element in front of another.
@@ -1257,14 +1271,14 @@ onLeft element =
12571271-}
12581272inFront : Element msg -> Attribute msg
12591273inFront element =
1260− Internal.Nearby Internal.InFront element
1274+ createNearby Internal.InFront element
12611275
12621276
12631277{-| This will place an element between the background and the content of an element.
12641278-}
12651279behindContent : Element msg -> Attribute msg
12661280behindContent element =
1267− Internal.Nearby Internal.Behind element
1281+ createNearby Internal.Behind element
12681282
12691283
12701284{-| -}