let label_story = (Label.create ~text:"Past events : " ~borderwidth:1 ~relief:`Ridge infoFrame : Widget.label Widget.widget)