diff --git a/examples/compositor/main.c b/examples/compositor/main.c
index 9d320c97..7ac549e5 100644
--- a/examples/compositor/main.c
+++ b/examples/compositor/main.c
@@ -23,6 +23,13 @@ struct sample_state {
 	struct xdg_shell_state xdg_shell;
 };
 
+/*
+ * Convert timespec to milliseconds
+ */
+static inline int64_t timespec_to_msec(const struct timespec *a) {
+	return (int64_t)a->tv_sec * 1000 + a->tv_nsec / 1000000;
+}
+
 void handle_output_frame(struct output_state *output, struct timespec *ts) {
 	struct compositor_state *state = output->compositor;
 	struct sample_state *sample = state->data;
@@ -39,6 +46,12 @@ void handle_output_frame(struct output_state *output, struct timespec *ts) {
 			wlr_texture_get_matrix(surface->texture, &matrix,
 					&wlr_output->transform_matrix, 200, 200);
 			wlr_render_with_matrix(sample->renderer, surface->texture, &matrix);
+
+			struct wlr_frame_callback *cb, *cnext;
+			wl_list_for_each_safe(cb, cnext, &surface->frame_callback_list, link) {
+				wl_callback_send_done(cb->resource, timespec_to_msec(ts));
+				wl_resource_destroy(cb->resource);
+			}
 		}
 	}
 
diff --git a/include/wlr/types/wlr_surface.h b/include/wlr/types/wlr_surface.h
index 88a9a4d8..2bfd5d36 100644
--- a/include/wlr/types/wlr_surface.h
+++ b/include/wlr/types/wlr_surface.h
@@ -3,6 +3,11 @@
 
 #include <wayland-server.h>
 
+struct wlr_frame_callback {
+	struct wl_resource *resource;
+	struct wl_list link;
+};
+
 struct wlr_surface {
 	struct wl_resource *pending_buffer;
 	bool pending_attached;
@@ -16,6 +21,8 @@ struct wlr_surface {
 		struct wl_signal destroy;
 		struct wl_signal commit;
 	} signals;
+
+	struct wl_list frame_callback_list; // wl_surface.frame
 };
 
 struct wlr_renderer;
diff --git a/types/wlr_surface.c b/types/wlr_surface.c
index c6011e86..5bcf44a5 100644
--- a/types/wlr_surface.c
+++ b/types/wlr_surface.c
@@ -23,9 +23,36 @@ static void surface_damage(struct wl_client *client,
 	wlr_log(L_DEBUG, "TODO: surface damage");
 }
 
+static void destroy_frame_callback(struct wl_resource *resource) {
+	struct wlr_frame_callback *cb = wl_resource_get_user_data(resource);
+
+	wl_list_remove(&cb->link);
+	free(cb);
+}
+
 static void surface_frame(struct wl_client *client,
 		struct wl_resource *resource, uint32_t callback) {
-	wlr_log(L_DEBUG, "TODO: surface frame");
+	struct wlr_frame_callback *cb;
+	struct wlr_surface *surface = wl_resource_get_user_data(resource);
+
+	cb = malloc(sizeof(struct wlr_frame_callback));
+	if (cb == NULL) {
+		wl_resource_post_no_memory(resource);
+		return;
+	}
+
+	cb->resource = wl_resource_create(client,
+			&wl_callback_interface, 1, callback);
+	if (cb->resource == NULL) {
+		free(cb);
+		wl_resource_post_no_memory(resource);
+		return;
+	}
+
+	wl_resource_set_implementation(cb->resource,
+			NULL, cb, destroy_frame_callback);
+
+	wl_list_insert(surface->frame_callback_list.prev, &cb->link);
 }
 
 static void surface_set_opaque_region(struct wl_client *client,
@@ -37,7 +64,6 @@ static void surface_set_opaque_region(struct wl_client *client,
 static void surface_set_input_region(struct wl_client *client,
 		struct wl_resource *resource,
 		struct wl_resource *region_resource) {
-
 	wlr_log(L_DEBUG, "TODO: surface input region");
 }
 
@@ -55,6 +81,7 @@ static void surface_commit(struct wl_client *client,
 			} else {
 				uint32_t format = wl_shm_buffer_get_format(buffer);
 				wlr_texture_upload_shm(surface->texture, format, buffer);
+				wl_resource_queue_event(surface->pending_buffer, WL_BUFFER_RELEASE);
 			}
 		}
 	}
@@ -102,6 +129,11 @@ static void destroy_surface(struct wl_resource *resource) {
 	struct wlr_surface *surface = wl_resource_get_user_data(resource);
 	wl_signal_emit(&surface->signals.destroy, surface);
 	wlr_texture_destroy(surface->texture);
+
+	struct wlr_frame_callback *cb, *next;
+	wl_list_for_each_safe(cb, next, &surface->frame_callback_list, link) {
+		wl_resource_destroy(cb->resource);
+	}
 	free(surface);
 }
 
@@ -112,8 +144,8 @@ struct wlr_surface *wlr_surface_create(struct wl_resource *res,
 	surface->resource = res;
 	wl_signal_init(&surface->signals.commit);
 	wl_signal_init(&surface->signals.destroy);
+	wl_list_init(&surface->frame_callback_list);
 	wl_resource_set_implementation(res, &surface_interface,
 			surface, destroy_surface);
-
 	return surface;
 }