@@ -10,7 +10,7 @@ module tab_widget |
| 10 | 10 | gtk_label_new, gtk_box_set_spacing, gtk_widget_set_hexpand, & |
| 11 | 11 | gtk_widget_set_halign, GTK_ALIGN_END |
| 12 | 12 | use tab_manager, only: tab_state, get_tab, num_tabs, active_tab_index, & |
| 13 | | - MAX_TABS, switch_to_tab |
| 13 | + MAX_TABS, switch_to_tab, create_tab, close_tab |
| 14 | 14 | use gtk_app, only: update_ui_for_active_tab |
| 15 | 15 | implicit none |
| 16 | 16 | private |
@@ -147,9 +147,30 @@ contains |
| 147 | 147 | |
| 148 | 148 | ! Callback when plus button is clicked |
| 149 | 149 | subroutine on_plus_clicked(button, user_data) bind(c) |
| 150 | + use gtk_app, only: get_home_directory |
| 150 | 151 | type(c_ptr), value :: button, user_data |
| 151 | | - print *, "Plus button clicked - new tab" |
| 152 | | - ! TODO: Call new_tab_cb when registered |
| 152 | + integer :: new_tab_index |
| 153 | + type(tab_state), pointer :: new_tab |
| 154 | + |
| 155 | + print *, "Plus button clicked - creating new tab" |
| 156 | + |
| 157 | + ! Create a new tab for the home directory |
| 158 | + ! TODO: Add directory picker to let user choose path |
| 159 | + new_tab_index = create_tab(get_home_directory()) |
| 160 | + |
| 161 | + if (new_tab_index < 0) then |
| 162 | + print *, "ERROR: Failed to create new tab (max tabs reached?)" |
| 163 | + return |
| 164 | + end if |
| 165 | + |
| 166 | + print *, "Created new tab ", new_tab_index |
| 167 | + |
| 168 | + ! Rebuild tab bar to show the new tab |
| 169 | + ! TODO: Implement proper clear_tab_bar to avoid duplicates |
| 170 | + ! For now, just refresh which will add the new tab |
| 171 | + call refresh_tab_bar() |
| 172 | + |
| 173 | + print *, "Tab bar refreshed with new tab" |
| 153 | 174 | end subroutine on_plus_clicked |
| 154 | 175 | |
| 155 | 176 | ! Callback when a tab button is clicked |
