elseif slides.item.is_slide_stack then
					-- agregar acá todos los slides del este slide_stack
					
					legend := once "slide stack"
					pixbuf := slide_stack_pixbuf
					segment_model.set_string (s_iter, service_col_n, legend)
					create g_value.with_gtype (gdk_type_pixbuf)
					g_value.set_object (pixbuf)
					segment_model.set_value (s_iter, service_col_n - 1, g_value)
					
					from
						stacked_slides := slides.item.as_slide_stack.get_new_iterator_on_items
					until
						stacked_slides.is_off
					loop
						segment_model.append (slide_iter, s_iter)
						if stacked_slides.item.is_slide_text then
							legend := once "slide text"
							pixbuf := slide_stack_pixbuf
						elseif stacked_slides.item.is_empty_slide then
							legend := once "empty slide"
							pixbuf := slide_stack_pixbuf
						else
							check stacked_slides.item.as_slide_media.media.is_media_image end
							legend := once "media image"
							pixbuf := slide_stack_pixbuf
						end
						segment_model.set_string (slide_iter, service_col_n, legend)
						create g_value.with_gtype (gdk_type_pixbuf)
						g_value.set_object (pixbuf)
						segment_model.set_value (slide_iter, service_col_n - 1, g_value)

						stacked_slides.next
					end