}
}
-sub insert_image {
+sub insert_bitmap {
my $self = shift;
{
local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::insert_image( '@_' )";
+ push @mock::calls, __PACKAGE__ . "::insert_bitmap( '@_' )";
+ }
+}
+
+sub freeze_panes {
+ my $self = shift;
+
+ {
+ local $" = "', '";
+ push @mock::calls, __PACKAGE__ . "::freeze_panes( '@_' )";
}
}